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(U)  This  report  was  prepared  by  the  Vought  Systems  Division, 
LTV  Aerospace  Corporation,  P.  O.  Box  6267,  Dallas,  Texas  75222 
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The  work  was  initiated  under  the  direction  of  Captain  R.  A.  Dowd,  USN 
and  completed  under  Captain  W.  A.  Greene,  USN,  Chief,  Long  Range 
Forecast  Division,  Directorate  of  Estimates,  Defense  Intelligence 
Agency  (DIA-DE-1). 
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ABSTRACT 

(U)  The  SEATIDE  Analysis  Process  is  a semi-automated 
procedure  for  the  generation  of  time-phased,  high  value  cruise  missile 
weapon  systems  concepts,  together  with  the  supporting  technology  and 
intelligence  indicators  which  would  reflect  that  these  technological  goals 
are  being  achieved.  The  SEATIDE  process  can  also  be  used  to  evaluate 
the  effectiveness  of  fixed  force  levels,  existing  forces  in  SAL  environ- 
ments, or  Naval  defenses. 

(U)  The  Defense  Intelligence  Agency,  through  its  Directorate 
of  Estimates,  and  The  Advanced  Research  Projects  Agency  (ARPA)  have 
sponsored  the  development  of  this  computer  based  analysis  at  the  weapon 
system  and  Naval  force  structure  level.  A previous  process,  RIPTIDE, 
was  developed  for  DIA  for  use  in  analysis  of  strategic  missile  systems. 

(U)  Generic  to  the  SEATIDE  Analysis  Process  are  three 
major  computer  models:  The  Naval  Engagement  Model  (NEM),  Cruise 
Missile  Concept  Generation  and  Screening  Model  (CM-CGSM)  and  Relative 
Worth  Model  (RWM).  The  NEM  evaluates  force  effectiveness,  tactics,  and 
task  force  configurations:  the  CM-CGSM  enables  definition  and  selection 
of  candidate,  advanced  cruise  missile  system  concepts;  and  the  RWM  per- 
mits assessment  of  worth  in  accordance  with  a variety  of  objective  and 
subjective  criteria.  Each  of  these  models  has  been  checked  out  by  DIA. 

(U)  In  addition  to  exercising  the  computer  models,  there  are 
several  other  analytical  and  engineering  tasks  to  be  performed,  e.  g.  , the 
identification  of  areas  of  current  interest  and  the  associated  criteria  and 
potential  concepts,  the  creation  of  a foreign  technology  data  bank  in  a 
format  needed  by  the  computer  models,  the  engineering  of  concepts  to 
the  required  detail,  and  the  use  of  a verification  analysis  loop. 
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APPENDIX  H 


CGSM  SOURCE  PROGRAM  LISTING 

1.  INTRODUCTION 

This  appendix  presents  the  complete  source  program  listing  of 
the  CGSM.  Data  and  Job  Control  Language  cards  required  for  compilation 
and  use  of  this  program  have  been  discussed  in  the  body  of  the  Users  Manual 
(see  Vol.  IHE). 

The  source  program  is  coded  in  the  FORTRAN  IV  Computer 
language.  Each  subprogram  is  labeled  in  card  columns  73  through  76,  and 
each  card  in  the  subprogram  is  assigned  a sequence  number  in  columns  77 
through  80.  The  CGSM  includes  193  modules,  and  consists  of  over  28,000 
source  cards.  An  index  of  those  modules  is  contained  in  Table  1. 

The  original  CGSM  source  listing  is  included  as  Section  2.  0. 
Modifications  to  the  CGSM  made  during  the  Enhanced  SEATIDE  contract 
period  are  reflected  in  the  listing  of  Section  4. 
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Modifications  to  the  CGSM  during  the  Enhanced  SEATIDE  con- 
tract period  include  I/O  refinements,  screening  refinements,  and  addition 
of  the  Relative  Cost  Model  (see  Vol.  V).  All  modules  are  marked  in  Table  1 
by  an  asterisk.  Modules  which  were  not  changed  during  Enhanced  SEATIDE 
are  listed  in  Section  2.  0 and  are  tabulated  in  Table  1 without  an  asterisk. 
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4.  MODIFIED  CGSM  SOURCE  LISTING 

r.  c^^-rr.sM  f'-aiM  suprcutine  29  jan  1975  fw 

f, 

OFFINF  FIlF  IK  1 6C , 175  , U,  JD  ll  » 

rFFIMF  FILE  12(  5CC, 300,1/,  JD12»  C“ 

CPMMPN/nFV  ICF/  N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,M2  CM 

!^'TFGFR  Z IP,7COnF,7  1,72,23,Z4,Z5,  ?6,Z7,Z8  ,Z9  CM 

rn«MPN/ IN'OIJT/NL  IMF.NPAGF,  PC  ODE  ( 20)  , MI  SC  (7)  ,XMI  SC  (7)  , Z1  P.ZCCnE  ( IR)  C** 
1,  JP  ASH(  20),  TRASK  20)  , IP  ( 8)  , IC  ( 8)  .DUM  ( 8 ) , I nUM(  8 ) ,NFL  AC, , NFL  Ar,2  rvi 

FQUIVALFNCF  ( ZCODE  ( 1 ) , Z 1 ) , f ZCODF  ( 2 ) , Z?  ) , ( ZCODE  ( 3 I , Z3  ) CM 

1 ,IZrr'nF(4),ZA),(ZCC0E(5),Z5),(ZCCnF(6),Z6)  fm 

2 , ( ZCPDFI 7) ,Z7) , ( ZCnDE(8) ,Z3) , (ZCODE (9 ) ,ZP)  r« 

COMMON/SECinZCLASIZO)  0“ 

COMMON  ZIMnUl/I  PR  ( 16)  , JPAR  ( 16)  ,PAR  ( 16)  C*' 

rnMMnN/FASTAR/KZAPL,KZARS  C^* 

CPMMPN/FIL  INC/  KPNPL  ,KSAVPL,KE  AO  CM 

COMMON  /INOUU/  I ABEL  r m. 

fommon/INOUA/JDA  O'* 

C CPMMGN/IN0Ur/JDF,N09,NB9, INDX9(  10,6)  C« 

COMMON  ZINOUII/  JDll,Nnil,NRll,I NDX11(100,7)  CM 

COMMON  / INOU12  / 3012, Nni2,  NB12  fm 

COMMON  /vFIlFS/  N55,  NFILZ(5)  CM 

FATA  PLANK/AF  / CM 

CFCPM/iTS  CM 

1000  form  AT  ( IX  , 19AA,  A8  ) C.m 

2CC0  FORMAT ( IH  1, 7 IX,  AHRAGF , I A/6X, 19AA, A3)  CM 

1CC2  form AT( AA, 3 12, I 10, AI 5, lOAA)  CM 

2CC2  FfrmATI /6X,AA,3I2,I 10,AI 5,ICAA)  C” 

lOro  FORMAT  (10X,7G10.3)  CM 

2003  format  (10X,7G13.6)  '‘M 

2005  format ( IHO, ZOHFRPOR  IN  MAIN  AT  E 1=  ,F8 . 2 , 3X , AA  , 3 I 2 , 1 10 , A I S , 10 AA  ) Cm 

2Cr6  FORMAT! //////////AAX , AHNUK  H Cm 

1 AAX,  7HCM-CGSM//  CM 

2 35x,*vnUGHT  SYSTEMS  OIVISION*,  //  C^ 

3 3AX,25HLTV  AFPOSPACF  CORPORATION  //  FM 

A 37X,  ISHOALLAS,  TEXAS  75222  ) Fm 

NFL  AG  = 0 CM 

NFLAG2=  0 CM 

NO  1 1 = 1 fm 

NRll  = 0 C* 

Nnq  = 1 CM 

MR9  = 0 fm 

L A A 1 = 3 1 CM 

MAAl  = 12  fm 

KZARL=  96  ♦ LAA1*(  5*MAA1)  Cm 

KONPL*0  cm 

KSAVPL=500  fm 

KFNO  = 500  CM 

IMAF.fsl  CM 

RFA0(N5, lOCC)  CLAS,  PCOOE  Cm 

IF  (PCOOE!  1)  .FO.  BLANK)  IMAGE  = 0 CM 

IF  ( IMAGE  .EG.  C)  GO  TO  380  CM 

NPAGF*!  CM 

call  page  CM 

WP ITF(N6,  2006  ) fm 

CALL  PAGE  CM 


■COOlO 
■CCrO20 
■C0030 
•COOAO 
■C0050 
•C0060 
■C0070 
■COOPO 
■CO  090 
■CO  100 
CO  1 10 
cni20 

■C013O 
cni  AO 
00150 
CO  160 
C0170 
CO  IPO 

COl'^Fl 

•C.02O0 
C0210 
C0220 
C0230 
CO  7 AO 
■C0250 
•C0260 
•C02  70 
C02P0 
■C0290 
CO  100 
C03  10 
CO  320 
00330 
CO  3A0 
Cn350 
FO  360 
■CO  170 
COIHO 
r oioo 
roAFio 
COAIO 
F0A20 
FOAIO 
CO  A AO 
C0A50 
F0A6n 
C.0A70 
COAPO 
COAFO 
C0500 
COS  10 
ro520 
C0500 
COGAO 
C0550 


C CAWn  ImagF  PR  IMT 

3‘1  call  C'PPCyf  ,N6,A«;,Cl  ASrPCODE) 

N5  = N9 
3 60  rPNTINOF 
N55  = N6 

1 MPAPF  = I 

lOl  REAP  (N5,  IPOOCLAS,  PCPPE 

MT  = 0 

2 CALI  PAGE 

WRITE  ( N6,  2006  ) 

9CC  CALI  PAGE 

9C2  ri  = ''02. 

RFAC  IN'5,  10C2,  FNr=  10,FRR=9021>  ZC  OOF 
IF  I IPPI  D.FO.O)  GP  TP  9022 
WPITF  IN6,2rn2)  ZCnPE 
M IMF  = ML  INE  -f  2 
9022  C^MTIMUE 
C** 

I F I Z2  .EG  . 1 ) GO  TO  1 

IF  I Z2  .FQ.2  I GP  TP  2 

IF  I 72  .FO.IO)  GO  TP  10 

CALI  CMGSM  ( NIT,  KPET  » 

14  IF  I KRFT  - 1 ) 900,  ooo,  902 
9021  NFI  AC  = NFL  AG  ♦ I 

WPITF  (N6,2005)  El,7C0PF 
rn  TO  902 

C^^FTCP 

10  rPNTINUF 
CALL  PACT 

WPITFIN6,2003)  Nn9,MP9 

STPP 

FMP 


CM-C0560 

C^'-COSTO 

C^-CO'S'IO 

CM-rn99n 

CM-C0600 

(y-cohio 
C.M-C0  620 
C''-C.06  30 
CM-ro640 
rM-ro650 
C,M-C0660 
C.M-Cn670 

rM-ro680 

CM-C0690 
CM-C0  700 
CM-C0710 
CM-C0720 
CO  7 30 
CM-r0740 
CM-ro7so 
C^-r0760 
rM-cn770 
CM-C07H0 
rM-C079O 

c,M-co8on 
r«-cop  10 

C'»-C.0fl20 
CM-COP  30 
CM-C0840 
CM -CO 8 90 
CM-C0860 
CM-roo70 


PinCK  DATA 

r M)6.CM-CG9m  R .K .MCnPMPUGH  28  MARCH  73 

CPMMPM/CEV TCF/MOI  121 

CCMMPN  /SCRMNL/  NPTS(20> tPARVNL(7,20) ,DWNLI7,20J ,DUWMY150» 

1 ,MSCP';T,  irU4M4(  41 

COMMPN  /inouu/  lapfl 

COMMON  /CONSTA/  PFtTWPPI  ,GM,PI  ,RAOfFPNM,RENM,WE 

COMMON  /SCRFFN/7  LFVFL  tLWF  1 , LWF 2, LDES t NOE  S.LPERF , NP ERF ,L S AV , NS AV 
INTEGER  71P,7CanF 

COMMON/ INOUT /ML  INF.NPAGE  ,P I 20 ) ,Ml SC  I 7) , XMI SC ( 7 ) , Z I P , ZCOPF I 19 ) , 

1 JRI  201  ,TR  I 20)  , IPCn6)  ,nLM(  8)  tIOUMIlO) 
common  /INOUl/  I PR  I 16) , JPAR I 16  1 ,PAR I 16) 

common  /SWORTH/  KBASF,W2(2).NPAR,KPAR(20) tPARV(20) ,CERV1(20), 

1 nFRV2(20) 

COMMON  /NFILFS/  NUKY16) 

CATA  NSCOST,  tnU4M4/l,4*0/ 

PA  TA  NP  TS.PAP  VNL  ,DWNL  tOlJMMY  /2  0*0 ,143  *3  . ,140  *0  . ,50  *0  ./ 

OATA  Nl)KY/5,6,  7,  ll,l2tl/ 

TATA  RF  tFPNM,RAD,PENM,WF  tPI t TWOPI  tGH/2 0925688 .» 6076 . 1 155 , 

1 57 .2957795, 3443. 9253, . 004178075 t 3. 1 41 59265 ,6. 2831853, 


OAT  AOOlO 
PAT  A0020 
PATAOOTO 
PAT  AOO AO 
OAT  40050 
0ATA0060 
nATA0070 
PAT A0080 
PAT AOOOO 
PAT  AO  100 
OAT  40  1 IP 
04140120 
PATAOI^O 
DAT A0140 
n4TA0150 
PAT  A0160 
CATAOl 70 
PAT AOl 80 
CATAOIPO 
PAT A0200 


B 


2 l.A0765Fie/ 

CATA  KPASF,W2/n,  2*  100./ 

data  Nl  FVFLfLWFl  .LW^?  , LDE  St  NOF  S » L PF  RF  ,NP  ER  F,  LS  A V,  AS  AV/ 10  , no  ,0  , 
I I,  n,  I,  IC,  I C,  100/ 

OATA  PARVtOERVl  t HFP V2 , K PAR , NP AR/6  0*0. , 20*0 1 1 1 / 

TATA  xMnr.Misr,/  7*0.,  7*0/ 

TATA  A-n/  1,2, 3, A, 5, 6, 7, 6,9,  10, 11, 12/ 

FATA  IPU/ 1 1,  1 ,0, 1 1*  1/ 

OATA  JPAF/16*!/ 

TATA  PAR/16*1.0/ 

PATA  LAPFL/  1/ 

FA'O 


PATAOZIO 
OAT  A0720 
PA  T4  0730 
OAT  40  2^0 
PATA0250 
PAT  A0760 
PAT A0270 
PAT  A02R0 
CAT40290 
PAT  AO  300 
PATAOSIO 
r4TA03?0 


PLOC  K OATA 

CPMMf’M  /AFRH/  X91(  93  ) , SLF  T,  XIO(IO),  PRAX,  XX// 

COMMON  /AFRPRO/  CDOnESllOl,  CLAOFSdO) 
common  /AER7/  AFR79(9»,  FRBTX,  FRB,  NAFRn(30) 

common/ Al FPLK/  AMACH,  A,  ALT,  GAMRAO,  ACCN,  ACCT,  CPC,  C,  SPFF, 
I ACWT,  alpha,  CFNREO,  DEG,  CLALFD 
COMMON  /DOG/  XA/71 21 ,F INF ,XA77(7I ,1 TX,AM5 (5) , 1 PTL, a/M/3 (3 1 , 

1 ITSFCT,  IWSFCT,RXINT,P  XINW,ARV9(9)  ,nE,UMPT(2>  ,NWX,7a,(^)  , 

2 APT, APW.TRT, TRW, /SXC2( 2) 

COMMON  /FORN^W/  NR M , N A L T ,R M V t 2 01 , AL T V ( 10 > ,F R PT , F AC T CR 
COMMON  /L'^T/  SFT  3(  3)  , SF  T,SFT2(2)  ,PL<>,PLP  ,SFF2  (?  ) , I ARX, 

I 1CNTRL,X/2X(2) 

COMMON  /NAFRC/  TNA7/L 

P , «TF  , STT  T,  TR  A T,SWF  ,TR  AW,nCA  SF  tOEDO,  APL6  ,AL5X  ,X  MSX, 

C STFW,  XSTA,FSOVCW-,FSnVCT,WI*TSS,SMPL,SMRH,WWINX,  lARwx, 

P IPLOT.NCGVAR 

S , THNCl.  , TNG7L  , Tl  THEO 
COMMON  /P'^ll/  PNW,RN0,IARW0,BHH,RTH 

COMmom  /SEVEN/  ITN,APHI  ,CLP,  IPADAP,IPAY,OANT,XLVOIP,WFO,WMISC, 
1 PHOWH,PMnF0,FUCLR, WHCLR  ,Xl MI  SC , XLFO, XLWH, 

7 nRT,NW,iaPW,  PIVOT, INTYPF  tXLPAYI  tWPAYI  ,WWH,XLFHT, 

■>  XLFW,  XLFVT,XLET,EXTRSV(25) 

COMMON  /SURFX/  RMOES, wnGtGU  T , I WT S , WWI NG I ,WTI , WOVAW  ,WOV AMT , 

1 wnVAVT,W0VAT,WXW3n)  , VTALOC,  WXW5(5) 

2 , SLEW, SI FVT, ISURFWtl PLANWtl  SURF T, I PLANT 
rOMMON  /UP  INI  T/  PPAMB<12<:),  XCGD  1 

C'’MM0N/XINFR  T/  XPPOP  ,PEL  TAN,RL3,  XPA  Y , XMOTQR  , W ARP  AY  ,XA,P  ANWW  , 
1PW,CRW,CTW,NPANFL,PAMWHT,CRHT,CTHT,RKT ,BZ ,PANWVT,CRVT,CTVT, 
?PVT,RI,1/RT,CPT,CTT,WINL,WPST,XBST,YBST,ZBST,XINL,YINL,/TNL, 
3XW,YW,/W,XVT,YVT  ,/VT,XHT, YHT, /HT  ,I /N,I PST,XT, YT, 7T  , 

A PARRAY,  X IX INL » XI YINL ,XI ZI NL , XI  XRST, XI YBST , XI /RST  ,ri  , 
70L1,WM,V.VT,V.W  ING  ,WHT  ,P  A Nw  T , XT  A NK  , BR  A T,  TH  F T AC  , XC  YL  , XPT  , D A N7 
R,ypROPl,  xppoPZ,  XPP0P3,  XPROPA,  WPRDPl , WPROPZ , WPRCP3,  WPPOPA 
PIMFNSION  WARRAY(20I,  XAI20),  PARRAY(20» 

FOUIVAIFNCF  I X91(18),  CLAT  ),  I ZA(3>,  RT  ) 

EOUIVALENCE  I X9H5fl),  XDl  T ) 
common  /tur/  rcip,clra,clrf,dflvx,fclr,gclp,krair, 

1 PAKS'JPfRATCLP  , PFHTIIR,  THF  AD  , THEPST,  TUPTHK, 

2 KMTAIL,  WINO.CL,  WTMAX,  XLTMAX,  DTUBMX,  XLTBMX,  ZPYLCN 
FOP  PACKAGING  SUBMODEL 


FATAOOIO 
OATA0020 
OATAOOSO 
OAT  AOOAO 
''ATA0050 
OATAnOftO 
OATAOOTO 
OAT  ADORD 
OAT A03Q0 

OAT  AO  ion 

n AT  AO  I 1 3 
PAT AOl 20 
DAT  AOl 30 
OAT  AOl  40 
r.AT  AO  I SO 
OATAO  IBO 
OA  T 40 1 70 
OAT AOl BO 
•'AT  AO  IPO 
''AT  A0200 
OAT  A''/  10 
PAT AO270 
FAT  AO  2 30 
CAT  AO740 
OAT  AO  2 BO 

OAT  A02(>0 
OAT  AO  7 70 
OAT AP230 
OAT  A02O0 
OA  T A0300 
DAT  A03  10 
OAT A0370 
nATA033n 
OAT  AP  040 
PAT  AOOSO 
PAT A03B0 
PAT A037n 
PAT  A03B0 
OATAOTOO 
OAT  A0400 


I' 


1 

I' 


i 


1 


i 

, j 

I 

( 

! 

i 
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CeT A Sf LP.CLKAf  CLRFfOFL VX/l. , 3*6./ 

CATA  FCIP  »r,C»  Pf  KKAIR  ,PAKSUD/6C.  ,12.  f2  ,0./ 

TATA  RATCLP,RBHTUB,THEA0,THEB5T/2. ,2.,4. ,40./ 
r AT  A TUPTHK ,KMTA  FL , W F MGC L , WTMA  X/4. ,2 ,90. ,2  0000./ 

CATA  XI  T^*AX,  HTUBMX.XLTBMX,  ZPYLON/500.  , 50.  ,500.  , 18.  / 

TATA  CnoOFS.CLAOFS/O. 12,9*0. ,0.12 ,9*0.  / 

TATA  xniT/9.5/ 

TATA  f'AFPn/  ?,  C,  0,  C,  I,  4,  0,  0,  0,  I,  I,  0,  0,  0,  I,  15*0/ 
CATA  XC  GO  I,  C L AT,  8 T,  SET/5.,.  05  I 5,*:',.  ,234./ 

CATA  rCP,CLALFD/0.lB,  0.17/ 

CATA  XIXINL,  XIYINL,  XlZINL,  XIXBST,  XIYBST,  XIZBST,IBST/ 

I 1520.,  56C45.,  56045.,  8B10.  , 605000.,  605000.  ,0/ 

CATA  XPPnPl,  XPRnP2,  XPR0P3,  XPR0P4,  WPROPl,  WPR0P2,  WPPCPS, 

I wppnPA/  21.15,  'i.0, 22.0, 22.0,  146.,  46.,  192.,  192./ 

CATA  Rl  I,  WM,WVT,WWING,WHT,  XTANK , THFTAC  ,Cl  ,XBT/ 

1 37.5,1000.,  0. 0,0.0,  0.0,  21.15,  0.165,  15. ,0.0/ 

CATA  XPRPP,  DFLTAN,RL3,XPAY,XM0T0R,  BW,CRW,CTVi/ 

1 6<3.n,  0.0,  149.  ,80.  ,44.  ,3*0.  0/ 

CATA  NPAMFL,  P AN WHT, C P HT,C TH T,RNT ,B T ,PANW VT ,CR VT, C T VT , R VT/ 

1 0,25.,C.C,O.C,4.0,24.5,25.,0.0,0.0,0.0/ 

CATA  Rl,  rRT,CTT,WINL ,W8ST ,XBST, YBST ,ZBST/ 

1 7.5,  15.,  4.5,  95. ,0.0, 0.0,  0.0,  0.0/ 

CATA  X FML  , YINL,XW,YW,ZW,XVT,YVT,ZVT,  XHT,  YHT  ,ZHT  ,ZIM/ 

I loo.,  1C. ,0.0, 0.0,0. 0,0. 0,0. 0,0. 0,0. 0,0. 0,0. 0,0.0/ 

CATA  XT,YT,7T,PARRAY,  WARRAY/0.0,  0.0,  0.0,20*0.0,20*0.0/ 

CATA  APHF.CLR,  IPADAP  ,lPAY,nANT/  20.  , 1 . , 1 , 1 , 1 1 . / 

CATA  XI VniD,WF0,WMfSr,RHnWH,RHGFQ/27.,92. ,125. , . 06 , .03/ 

CATA  FOCI  R,WHCLR,XLMISC, XLEO, XLWH/ 1.  , 1 . , 2.  ,29., 22./ 

CATA  PlVnT,INTYPF,XlPAY[ ,WPAYI , WWH , XI FHT , XLEW , X LE VT , X LFT/ I . , 

I 2,  80.,3  54.,  13  7.,  134.,0. , 134. ,134.  / 

CATA  lAPW, I ART, 1 CNTP L , 1 TN ,NW , ART , SLE T/0,4 , I , 2 ,0 ,2 . 57 , 3fl ./ 

CATA  ITSEC.T,  IWSFCT/I,  1/ 

CATA  1 APX,NWX,BRAX, lTX/4,0,0.  ,2/ 

DATA  PTH,  OXINT,  STE,  STET,  TRT,  TRAT,  8WH,  RXINW,  SWE/ 

I 19.75,  0.50,  117.,  O.C,  0.32,  0.04,  25.50,  0.50,  0.0/ 

CATA  TRW,  TRAW,  DCASE,  DEOn,  DE , THNGL  , TNOZL,  APL6,  A15X/ 

I 0.3,  .C5,  15.0,  14.50,  14.20,  Ul.O,  10. 0,  113.0,  85.0/ 

CATA  XMSX,  BRAT,  FINE,  TLTHEC,  STEW,  RL4,  RL5,  FAC.TCR/ 

1 2.40,  C.C,  2.50,  149.0,  0.0,  134.0,  50.0,  0.50/ 

CATA  NPM,P,MV/6,  .4,.9,  1.,  1 . 5 , 2 . ,4.  , 14*0.  / 

CATA  NAl T, Al T V/ 3 , C. , 4 CC CC. , 1 00000. , 7*0 . / 

CATA  RNQ,PMW,PANWT,PANWW/4. ,2. ,2  0. ,40.  / 

CATA  XSTA,FPBT,FSnVCW,FSGVCT,WMl  SS/4*0. , I 000. / 

CATA  WW  INX,  1ARWX,PZ/0.,0,24./ 

CAT  A SHPl  , SMRH/0.,0./ 

CATA  IPLOT.NCGVAP /2*0/ 

CATA  RMCF5 ,wnG,GUL  T, 1 WT S , WT I , WWl NGI /2.  , 1000. , I 0. , 3 , 25 . , 50. / 

CATA  WPVAW, WOVAHT, WO VA VT , WO VA T , VT AL0C/4*6 . ,.5/ 

CATA  SI FW,SLFVT/50.,45./ 

CATA  ISUPFW,  IPLANW.ISFJRFT, [PLANT /4*l  / 

CATA  IP  A OAR , CLR , OANT , XL VO ID /O , 0. , I . , 1. / 

END 


CATA04  10 
CAT  A0420 
cat A0430 
OAT A0440 
DAT  A0450 
OAT A0460 
CAT A0470 
CATA04fl0 
nAT40490 
OAT  A05O0 
CATA0510 
OAT A0520 
OAT AO530 
CAT A0540 
CATA0550 
OAT  A0560 
OAT A0570 
OAT An580 
OAT A0590 
TAT  A06O0 
CAT A0610 
CATA0620 
OAT  A0630 
CATA0640 
OAT A0650 
OAT  A0660 
nATA0670 
OAT A06R0 
OAT A0690 
OAT A0700 
HAT  A0710 
OAT  A0720 
PAT  AO  730 
nATA0740 
''AT  A0750 
OAT  AOTf 0 
OAT A0770 
CAT  AOTPO 
I5AT  AOTfiO 
CAT AOROO 
CAT  AOR  10 
CAT A0520 
f'AT  A0H30 
OAT  AORAO 
PAT  A0R5O 
CAT  A0H60 
CATA0870 
OAT  A08R0 
CAT  A0890 
OAT AOOOn 
OAT  A0910 
OAT  A0920 


HA  6 


fsj  fn 


PlTfK  TATA 


HAT AOOl 0 


NUK.C»'-rr';«  P .K  .MCDONOUGH  FIV/EBCO  10/18/73 
PPFSTOPF  NAHFLIST  OftTA 
FILL  VFHPFP  rpuMOFi  BLOCKS 

common  /^'FWVPM/  DALPH.DALT.OCFN.DFLMAX,  DHCLtOMACH,CMIN,nSTART, 

C DVCL  fFPFF,rRp  FAC,  IPBOPl,  JPRI  N T , M XSTE  P ,N  TR  YS  ,R  A KGE  I , RT  01.  , 
r T IMF  UGKG.GKV  ,GKVCPU,GTrPT,SLnPEl20)  ,TPHASF(20)  ,TTOT  ALl  20» , 

F PMOr  F(  ?o  » 

CIMENSIOG  fderf(  670I,  7TCIVP(72) 

EOIIIVALFE'CE  (7PFPF(l),  KBYPSM),  ( ZTOVPd),  RPOWP  ) 
common  /PFRF/  KBYPSMjKPYORG, VELI fXMACHI  ,GAMMai , ALT  I , “CPT, N!  PHA7, 
I NCPHA7,NDPHA7,XMArHF{20) ,ALTF{20) ,GAMMAF(20» ,FVALUE(20), 

XP  ITrH{  10, 20  ) ,YPITCH(  IC,  20)  , I TERM  (20  ) ,NA  ERC  ( 20  ) , 

IPTYPFC  20)  ,MnnFS(  20)  ,MHGEK'(  2 0)  , ICnNT(20l 
, ALPMAXC  20),AN7MAX(20),FUSY(20) 

COMMON  /TOVPFR/  BOnwP ,BI SPV.RTHVAC ,BEX1 T, SUSWP,SFX ( T,  PCANT A, 

1 WT INT  fOROPST, OROPFB.K INO , A 5 A 3, A6A 3 ,A C A3 ,03 , 

2 TVACMX,  TVACMN, Yf SP( 20) , XTHRTL(20),  EXTRA(15) 

common  /PYAIP / SREF, SMACHl (20) ,SMACH2( 2 0)  ,SMACH3 (20)  ,SMACHA(20  ) , 

1 SMArH5(20),  CLALFl  (20),CLALF2(20)  ,CLALF3  (20)  ,CLALFA(  20  ) , 

2 CIALFF(20),  OMAC  H 1 ( 20 ) ,0  macH2  ( 2 0)  , 0MACH3  ( 20 ) , PMACHA  ( 20  ) , 

3 0MACH5(20),  coni ( 20 ,5) ,Cn02 (20,5) ,Cnn3 (20,5) ,Cr0A(20 ,5 ) , 

A 0005(  20,  5) 


OAT A0020 
OAT  A0030 
DAT AOOAO 
PAT AOOSO 
OAT  AOOf.0 
DATAC070 
''ATAOOflO 
OAT AOOOO 
PAT  AO  100 
CATAOl  10 
CATA0120 
f'AT  AOl’O 
f'AT  AOl  AO 
DAT  A0150 
PAT  AO IftO 
DATAO  170 
CATAO  IPO 
DAT AOlOO 
rATA0200 
"ATA0210 
PAT A0220 
CAT  A0730 


data  ROrWP,RlSPV,PTHVAC,RFXIT,SUSWP,SFX!T,BCANTA,  DROPST, 

1 CROP FP/3A8  .A, 27t.0t, 370^0. , I.A0R2 ,550. , 0.0  ,0.,  9R.ft,0./ 

CAT  A A5A3,A6A3,ACA3/.55,.9  3,.2  72/ 

fata  TVACMX,  TVACMN,YI SP, XTHRTL/50000. ,5000. ,0.,276.06 ,325. ,17*0., 
I 0.,.73,  1.,  17*0./ 

DATA  K PYP  SM  ,KBYr)P  G/2*0/ 

DATA  VCI.  I,XMACHI  ,GAMMAT,ALT1  , MOP  T / 86 1 . 9 , . 8 , 0.  , 1 000  0 . , I / 

DATA  NLPHA7 ,NCPHA7,NnPHA7/7,^,2/ 

CATA  xMACFF/2.A,A*A.,2*2.5,13*C.  / 
data  ALTF  / l0000.,3*80P0n. ,3*5CC.  ,13*0.  / 

CATA  GAMmaf/20*0./,  NAERO/l, 6*2,  13*0/,  I TFR  M/6  ,7  , I , 7 , 1 , 4 , 1 3*0/ 

CATA  FVALUE/3*0.,5.,3.,0.  ,1.  ,13*0.  / 

DATA  (PTYPE/ 1, 6*A, 13* C/,  MQOF S /O , 1 , 0 , 0 ,-l , 1 5 *0/ 

DATA  ALPMAX/20., 2*5., 2C., 3*5.  ,13*0./,  AMZM A X/ 10 . , 3 . , 1 8* 1 0 . / 

CATA  rcnA)T/l,  12,  14,13,  12,  14,13,13*0/,  MHGFN/0,1  ,18  *0/ 

CATA  XP  ITCH/O.,  .0  1, 3.  5,  5.  ,16*0.,  20*0.,  0.  , 1 000000  .,  18*0 . , 140*0. 

CATA  VP  ITCH/  2*0.  , 2*  15.  , 16*0.  , 20*0.,  2*4.  ,18*0.,  140*0./ 


'•AT  A0240 
CAT  A0250 
PAT  AORftO 
OAT  A0'>70 
PAT  A02PO 
OAT  A02O0 
PAT  AO  300 
CATA03  10 
PAT  A0320 
PAT  AO330 
PAT  A034P 
PAT A0350 
FAT  AOTFO 
PAT  AO  T 70 
PAT  An  3p  , 

/n  AT  AO 3 90 
pat  A0400 


CATA 
DATA 
CAT  A 

1 

CATA 

CATA 

DATA 

CATA 

1 

2 

DATA 
CAT  A 
CAT  A 
CATA 
DATA 


DMACH  / .5,  .8 
SMACHl /.5,  .8 
rCPl/0., .157 

40000.,  . 188, . 
CLALF  I/. 141, 
SMACt-2/  1 .5,  2 
CLALF2/.14e, 

Cnf)2/0.,  .26  f . 
40000.  ,.  2 P4  , . 

80000..  .341, 
SMACH3/2C*C./ 
C‘'ACH3/20*0./ 
CL  A|  r 3/ 20*0./ 

con?/ 100*0./, 

SPFr/1.6667/ 


,l.,l.  1,1. 2, 1.5, 2.  ,2.5,3.  ,11*0./  nftTA04n 

,1.,  1.1,1. 2, 1.5, 2.  ,2. 5, 3.,  1 1*0./  PAT  An  4, 70 

, .245,.4,.4S5, .5C5,.48,.402,.3  56  ,. 329, 10*0.,  PAT  AO 4 nO 

2 7,  . 42  ,.54,.  54  8,.  502,.  42  7,.  3 78,.  345, 70*0./  r ^r  An/,4,0 

. I 61  ,.  1 74,.  184,.  187,.  162,.  134,.  122,  . 1 15,  1 1*0./  ''ATA04,SO 
, 3.  ,4.  ,5.  ,15*0.  /,  0MACH2/1.5  ,2.  ,3.  ,4  . , 5 . , 15  *0. /n  AT  A04,6  0 
.1U,.C5,.C8,.0  76,15*0.  / patao/.to 

228..  18,. 152,.  134,14*0. , mat  A04P0 

24  7,.  19  7,  .164,.  145  ,14*0.  , CATA  04no 

297. . 237. .198.. 175.14*0. , 40*0./  nATAOSno 

, SMACH4/20*0. /,  SMACH5/20*0./  '•ATAOSin 

, nMACH4/2C*C. /,  0MACH5/20*0. / DAta0570 

, CLALF4/20*0. /,  CL  AL  F5 /2  0*0.  / PATAnsTO 

rnn4/ioo*c./,  coo5/ioo*o./  nATA0S40 

hat  AT)550 


n«T4  c>'/'CHi,r:MAci-2/AC»o./ 

TATA  S‘'ArHl,SMACH2/^0*0.  / 

TATA  n ALF  1»CLALF2/AC*C.  / 

TATA  rr>ni,cnn2/200*T./ 

CATA  MnPT/l/ 

OAT  A OALPM.TAL  T»  CC FN, TEL  HA  X ,OHC L f OMACH /. 035 , 1 0000, ».l ,60. , 

I 10000.,.A/ 

TATA  OH  IN.OSTARTtOVCL ,FREF,FRRFAC/,001 I ,100. , .0005,5./ 

DATA  IPPOP  1, JPR INT,MXSTFP,MTRYS/0,1 ,2000,10/ 

CATA  RANGF  l,RTnL  ,T1MF1  ,r,KG  ,GKV,GKVCRlJ,GT0PT/0.  , 10  . ,0  . , I . , .00  I , 

I .1,!./ 

CATA  SI  nPF,  TPFASE,  TTOTAL/20*0.  ,2  0*10000.  ,2  0*10000./ 

DATA  PHnRE/2C*0./ 

CATA  ZPFRr,7TnVP/670*C,, 72*0,/ 

EK'O 


nATA0560 
CATAQ570 
DAT A05R0 
DAT AOSOO 
DAT  A0600 
DAT A0610 
DATAn620 
rATA0630 
DAT A06A0 
DAT  A0650 
OAT A0660 
DAT A0670 
PAT A0680 
CAT A0690 
PATA0700 


PLOCK  DATA  DATAOOlO 

CCMMCN  /SnCHIS/  CSTAPl,  CSTAR2,  ETSISP,  DUH7(7I  nATA0020 

Cr’MMPM/PlMSnL/TAI  SPll  , TA  I SP  2(  80)  , TA  1 SP3  1 80)  , T AI  S FA  ( 60)  , PAT  A00  30 

lTAISP5(60),TAlSPt(60)  ,TAISP7(80)  ,TAISP8(80) ,T AI SP9 ( 60) , T A I S P A) 60 ) CATAOOAO 


CATA  TA  ISP  1/  1 .0,  2.0, 
120.,  30.,  AO.,  50, 

, 75., 

100.,  150., 

200.,  300.,  AOO., 

DAT A0050 
DAT  unobO 

2500.,  750., 

1000., 

1250.  , 

1500.,  1750 

. , 2000 . , 

DAT  A0070 

3A. 

t 6 • f S • 

, 10., 

12.,  lA. 

t 

16.,  18. 

, 20.,  25.,  30., 

DAT AOOPO 

A35 

• t AO  • f 

A5.,  50. 

, 60. , 

70. 

, 80.  , 

90.,  100., 

PAT  40090 

5 

25A.6,  266.7,  27A. 

6,  280.5 

f 

286.0, 

PAT  AO  100 

6 

288.9, 

292.0, 

29A. 7, 

297.0, 

301.8, 

OAT AOllO 

7 

305. A, 

308. A, 

310.9, 

313.0, 

31A.8  , 

CAT A0120 

8 

317.9, 

320.5, 

322.6, 

32A.A, 

325.9, 

OAT  40130 

c 

255.6, 

267.7, 

275. 5, 

281. A, 

286.0, 

OATAOIAO 

A 

280.8, 

292.9, 

295.5, 

297.9, 

302.6, 

PAT  40 150 

B 

306.2, 

309.2, 

311.6, 

313.8, 

315.6, 

CAT40 160 

C 

318.7, 

321.2, 

323.2, 

325.0, 

326.6, 

CAT A0170 

D 

256.3, 

260. A, 

276.2, 

2 82 . 0 , 

289.6  , 

PAT  40180 

F 

290. A, 

293.5, 

296.  1, 

298. A, 

303. 1 , 

PAT  ADI  90 

F 

306.8, 

309,7, 

312.2, 

31A.3, 

316. 1 , 

PAT  A0200 

G 

319. 2, 

321.6, 

323. 7, 

325.5, 

327.0/ 

nAT49?10 

DATA  TAISP2/ 
I 256.8, 

268.9, 

276.7, 

282.5, 

27A.9, 

PAT  AO?T0 
PAT  40230 

2 

200. 8, 

293.9, 

296.6, 

298.9, 

303.6  , 

PAP  402A0 

3 

307.2, 

310.1, 

312.6, 

31A.7, 

316.5, 

CAT  40259 

A 

319.5, 

322.0, 

32A.0, 

325.8, 

327.3, 

PAT A0260 

c 

257.8, 

269.8, 

277.5, 

2B3.A, 

288.0, 

DAT  40270 

6 

291.6, 

29A.7, 

297. A, 

299.7, 

30A.3, 

nAT40?fi0 

7 

307.9, 

310.8, 

313.3, 

315.3, 

317.1, 

PAT AO?90 

8 

320.2, 

322.6, 

32A.6, 

326. A, 

327.9, 

CAT  AO  300 

9 

259. A, 

270. A, 

278.  1, 

283.9, 

288.5, 

DAT A0310 

A 

292.2, 

295.2, 

297.  9, 

300.2, 

30A.8  , 

DAT An32n 

8 

308. A, 

311.3, 

313.7, 

315.8, 

317.6, 

PAT A0330 

C 

320.6, 

323.0, 

325.0, 

326.7, 

328.3, 

DAT  A03A0 

0 

259.2, 

271.3, 

278.9, 

2 BA . 6 , 

289.2, 

PAT  AO  350 

F 

292.9, 

296.0, 

298.6, 

300.9  , 

305.5, 

CAT  AO  160 

F 

309.0, 

31  1.9, 

31A.3, 

316. A, 

318.2  , 

CAT A0370 

HA 


8 


G 32l.lt 
C«TA  TAISP3/ 
1 259. P, 

293.4, 

309. 5, 

32  1.5, 

260.6, 
294. C, 

310.0, 
322. C, 

261.1, 

294.5, 

310.4, 

322.3, 

261.5, 

294.  P, 

310.7, 

322. 5, 

TATA  TAtSP4/ 

262.2, 

295.3, 

311.2, 
322.9, 
262.  (■, 

299. 7, 

311.5, 

323.2, 
26?.  9, 

295.  9, 

311.7, 

323.4, 

TATA  TAISP*:/ 

263.2, 
296.1, 

31 1. f, 

4 323.5, 

5 263.4, 

6 296.3, 

7 312. C, 

R 323.6, 

9 263.6, 

A 296.4, 

P 312.1, 

C 323.7, 

CATA  TATSP6/ 

5 254.6, 

6 258.9, 

7 305.4, 

P 317.9, 

9 255.6, 

A 2P9.e, 

P 306.2, 

0 3 15.7, 

0 256.?, 

E 290.4, 


323.5, 

325.5, 

327.3, 

328.7/ 

PAT  A0350 
OAT A0399 

27 1 .P, 

2 79.4, 

285.2  , 

259.7, 

OAT  A0409 

296.4, 

299.1, 

301.3, 

306.0, 

nATA0410 

312.3, 

314. 7, 

316.8, 

315.5, 

rATA0420 

323.9, 

325.9, 

327.6, 

329.  1 , 

OAT  A0430 

272.5, 

250.  1 • 

285. 8, 

290.4, 

CAT  A04A0 

297.1, 

299. 7, 

301.9, 

306.5, 

PAT A0450 

312.9, 

315.3, 

317.3, 

319.1  , 

OAT  A0460 

324 .4, 

326.3, 

328.0, 

329.5, 

PATA0470 

273.0, 

280.6  , 

286.3  , 

290.8, 

OAT A0480 

297.5, 

300. 1, 

302.4  , 

306.9, 

PAT A0490 

313.3, 

315.6, 

317.6, 

319.4, 

OAT  A0500 

324.7, 

326.6, 

328.3  , 

329.8  , 

OAT APSIO 

273.4, 

281.0, 

286.5  , 

291.2  , 

OAT  A0520 

297. e. 

300. 4 , 

3 02 . 7 , 

307.2, 

OAT AnS30 

31 3.5, 

315.9, 

317.9, 

319.6, 

PAT A0540 

•'24.9, 

326.8, 

328.5, 

330.0/ 

OATAOSSO 
CAT A0560 

274.0, 

281.6, 

287.2  , 

291.7, 

''AT  AOSTO 

295.4, 

300. 9, 

303.2  , 

307.7  , 

OAT  A0580 

314.0, 

316.3, 

318.3  , 

320.0, 

OAT  AO‘^90 

325.3, 

327.2, 

328.9, 

330.3, 

PAT  A0600 

274.4, 

281.9, 

287.5, 

292.0, 

rATA06  10 

298.  7, 

3C1. 3, 

303.5, 

308.0  , 

CAT A0620 

314.3, 

316.6, 

318.6, 

320.3, 

PAT A0630 

325.5, 

327.4, 

329.  1 , 

330.5  , 

OAT  A0640 

274.7, 

252.1, 

287.8, 

292.3, 

OAT  A0650 

299.0, 

301. 5, 

303.7, 

308.2  , 

OAT  A0660 

314.5, 

316.8, 

318.8, 

320.5, 

PAT An670 

»25. 7, 

327.6, 

329.  3 , 

330.7/ 

PAT  An6P0 

hat  A0690 

275.0, 

282. 5, 

288.0, 

292.5, 

CAT  Ari700 

799.  1 , 

301.  7, 

303.9, 

308.4, 

OAT  AP710 

314.6, 

317.0, 

318.9, 

320.6  , 

PAT  Aa720 

325.5, 

327.7, 

329.4, 

330.8, 

PAT  AO  730 

275.2, 

282.7, 

288.2  , 

292.7, 

PAT  A0740 

2cq.3, 

3C1.9, 

304.  1 , 

308.5  , 
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5.000, 
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DAT  A0770 
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2.000, 

0.2CC, 

l.OCC, 

3.0C0, 

0.200, 

i.ono, 
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l.OCO, 
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0.300, 
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2.000, 
C.OCO, 
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3.000, 
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0.3CC, 

r.6co, 
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0.600, 
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0.200, 

1.000, 
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0.300, 
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0.383, 

0.600, 

0.365, 

C.330, 

0.600, 

0.297, 

0.273, 

0.600, 

0.209/ 

C.830, 

0.  100, 

0. 753, 

O.AOO, 

0.670, 

0.700, 

C.668, 

O.lOO, 

C.589, 

O.AOO, 

C.A85, 

0.  700, 
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0.100, 

0.580, 

O.AOO, 

0.A66, 

0.700, 
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O.lOO, 

C.576, 

O.AOO, 

0. A56, 

0. 700, 

0.666, 

0.100, 

C.573, 

O.AOO, 

0. AA8, 

0.700, 

0. 666, 

0.  100, 

0.572, 

O.AOO, 

0. AAA, 

0.700, 

0.666, 

0.  100, 

0.570, 

O.AOO, 

0. AA3, 

0.700, 

0. 29A, 

O.AOO, 

0. 380, 

0. 178, 

O.AOO, 
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0. 125, 

O.AOO, 

0.233, 

C.C95, 

O.AOO, 

0.197, 

C. 080, 

O.AOO, 
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0.333, 

0.500, 

0.385, 

0.800, 

0.315  , 

0.800, 

0.23Q, 

0.800, 

0.805  , 

0.200, 

0.727, 

0.500, 

0.6A0, 

0.800, 

0.6A2, 

0.200, 

0.560, 

0.500, 

0.A35  , 

O.flOO, 

0.639, 

0 .200  , 

0.5AR, 

0.500, 

O.AIO, 

0.800, 

0.637, 

0.200, 

0.5A3, 

0.500, 

0.398, 

0.800, 
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0.200, 

0.539, 

0.500, 

0.390, 

0.800, 

0.635  , 

0.200, 

0.536, 

0.500, 

0.386  , 

0.800, 

0.635  , 

0.200, 

0.535, 

0.500, 

0.3B5, 

0.800, 

0.335, 

0.700  , 

0.232, 

0.700, 
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0.700, 

O.IAA, 

0.700, 

0.121  , 

0.700, 
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0.700, 

0.375, 
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OAT  40880 
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0.698, 
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0.613, 
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PAT  A0950 
nATA0960 

0.525, 
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0.365, 
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0.61  1, 
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PAT  41000 

0.510, 

PATAIOIO 

0 .338  , 

f'AT  A1020 

0.610, 

PAT A1030 
PAT AlOAO 

0.503, 

PAT  A1P50 

0.321/ 

OAT A1060 

0.607, 

PAT A1070 
OA'^A  1080 

0.A98, 

PATA 1090 

0.311, 

PATAllOO 

0.606, 

PATAlllO 

rATAll20 

0 .A95, 

pat A1130 

0 . 30  5 , 

PAT  A 1 1 AO 

0.605, 

PATA1150 
PAT A1  i60 

0.A93, 

TATAl  170 

0.300/ 

PAT41 1 RO 

0 . 36  6 , 

PAT A1 100 
PAT  A 1200 

0.270, 

PAT  A 1210 
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PAT  Al?6n 
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OAT  A1270 
PAT A1280 
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PATA1300 
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0.38  1, 
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l.CCC, 

0. 380, 

PAT A1360 

2.0CC, 

rATA1370 

n.300. 

0. 277, 

0.500, 

0.295 , 

0.700, 

0.297, 

PAT A1380 

i.noo, 

0.285, 

OAT  A1350 

3.ocn, 

PAT A1400 

C.3CO, 

0.235, 

0.500, 

0.246, 

0.700, 

0.243, 

PAT  A 14  10 

l.OCO, 

0.232, 

rATA1420 

OCCt 

CATA1430 

0.300, 

0. 204, 

0.500, 

0.213  , 

0.700, 

0.208, 

PAT A1440 

1.000, 

0.157, 

PAT  A1450 

•5.000, 

PAT A1460 

0.300, 

0.177, 

0.500, 

0.  186, 

0.700, 

0 .18  1 , 

PAT A1470 

l.OCO, 

0.  167/ 

PA’^  A 1480 

PATA 

xrP751/l.CCC, 

PATA  1450 

0.000, 

0.456, 

O.lOO, 

0.487  , 

0.200, 

0 .475, 

PAT A1500 

0.300, 

0. 463, 

0.400, 

0.451 , 

0 .500  , 

0.438, 

pat A1510 

0.600, 

0.422, 

0.700, 

0.405, 

0.800  , 

0.38  1, 

PATA 1520 
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OAT  A1 530 

O.OCP, 

0.470, 

0.100, 

0.457, 

0.200, 

0 .44  1 , 

PAT A1540 

0. 300, 

0.426, 

0.400, 

0.405, 
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0.350, 

PAT A1560 
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0.318, 

0.800, 
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PATAl56n 
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PATM570 
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0.415, 

0.400, 

0.400, 

0 .500  , 

0 .370, 
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3.733  , 

3.317, 

0 .800, 

0.27  3, 

PATA  1600 
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PAT  A 1610 

C.OOO, 

0.468, 

0. 100, 

0.451 , 

0.200, 

0.433, 

PAT  A 1620 

0. 300, 

0.415, 

0.400, 

0.394  , 

0.500, 

0.371  , 

O^'T  AliS30 

0.600, 

0. 344, 

0.700, 

0.305 , 

0.800, 

0.260/ 

OAT A1640 

TATA 

xrP7?2/5.000, 

PAT  A 1660 

0.000, 

0.467, 

0. 100, 

0.450, 

0.200, 

0 .430  , 

P'  AT  A1660 

0. 3C0, 

0.410, 

0.400, 

0.385, 

0.500, 

0 . 36^  , 

PAT  Mf,70 

0. 6CC, 

0.336, 

0.700, 

0.258, 

0.800, 

0.250, 

OAT  A liSPO 

6.0C0, 

PATA1650 

o.occ. 

0.467, 

0.100, 

0.449, 

0.200, 

0.428, 

PAT A1 700 

0.300, 

0. 408, 

0.400, 

0.385  , 

0.500, 

0 . 36  0 , 

PAT A1 710 

c.6cr. 

0.  330, 

0. 700, 

0.251  , 

0.800, 

0.243, 

PAT  A 1 720 

7.000, 

OA’-  A1730 

0.000, 

0.467, 

0. 100, 

0.447, 

0.200, 

0.427, 

PAT  A 1740 

0. 300, 

0.4  05, 

0.400, 

0.382, 

0.500, 

0.366, 

PA’-  A 1 760 

0.600, 

0.325, 

0.700, 

0.285  , 

0.800, 

0.236/ 

PAT  A 1760 

TATA 

CNA  21  1/0.000, 

PAT A1 770 

0.200, 

2.430, 

0.300, 

2.410, 

0.400, 

2.380, 

OAT  A1 780 

0.500, 

2.360, 

0.600, 

2.340, 

0.800  , 

2.200, 

OAT  A 1 790 

1.000, 

2. 220, 

CAT  A1 800 

0.500, 

OATA18  10 

0.200, 

2. 780, 

0.300, 

2.810, 

0 .400, 

2.820, 

PAT A1820 

0.500, 

2. 825, 

0.600, 

2.830, 

0.800 , 

2.800, 

PAT A1830 

1.000, 

2. 760, 

OAT  A1  8«,0 

1.000, 

PAT  A186n 

0.200, 

2. 850, 

0.300, 

2.520, 

0.400, 

2.560, 

OAT  A1860 

0.500, 

2.550, 

0.600, 

3.020, 

0.800, 

3 .040, 

PAT A1970 

l.OCO, 

3. 045/ 

PATA 1080 

PATA 
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2.880, 

0.300, 
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O.EOO, 

2.C90, 

0.60C, 

3.  LAO, 

0 .800  , 

3.220, 
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i.noo, 

3. 290, 

OAT AIO20 
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3.0C0, 

PAT A1930 
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0.2C0, 
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0.300, 

2.950, 

O.AOO, 

3.030, 

PAT AlOAO 
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C. SCOt 
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3.  190, 

0.800, 
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OAT  A1950 
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l.OOO, 

3.39C, 

PAT A1960 
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A.OOOt 
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2. eAO, 

0.300, 

2.930, 
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3.030, 

PAT  A1980 

A 

0.5C0, 

3.1A0, 

0.600, 

3.220, 

0.800, 
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PAT  AIOQO 
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1. OCO, 

3.A10/ 

''ATA2000 

TATA 

CF'A22/  C.OCO. 

PATA2010 
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0. 200, 

1.25C, 

0.300, 

1.530, 

O.AOO, 

1 .730, 

CAT  A?020 

2 

0.600, 

1.960, 

0.800, 

2.110, 

1 .000  , 

2.220, 

PAT A2030 

3 

0.5C0, 

PAT A20A0 

A 

0.200, 

1.560, 

0.300, 

1.900, 

O.AOO , 

2.160, 

PAT A2O50 

5 

0.6C0, 

2.A70, 

0.800, 

2.650, 

1 .000, 

2.760, 

PATA2060 

6 

1. OCO, 

PAT A2070 

7 

0.2C0, 

1.630, 

0.300, 

2,0A0, 

O.AOO, 

2.380, 

CAT A2080 

P 

0.600, 

2. 520, 

C. BOO, 

3.020, 

1.000, 

3.060, 

PAT  A209n 
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2.000, 

PAT  A2 lOP 

A 

0.200  , 

1.720, 

0. 300, 

2.200, 

0 .AOO  , 

2.580, 

PAT  A21  10 

fl 

0.600, 

3.070, 

0. 800, 

3.200, 

1.000, 

3.290, 

PAT A2120 
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3. OCO, 

nATA2130 

r 

C.2C0, 

1.790, 

0.300, 

2.280, 

O.AOO, 

2.670, 

PAT A21A0 

E 

0.600, 

3. 1 80, 

0.800, 

3.390, 

1 .000, 

3. 300, 

CATA2150 

F 

A. 000, 

OAT A2160 

G 

0.2C0, 

l.flOO, 

0.300, 

2.300, 

0 .AOO, 

2.690, 

PAT A2170 

H 

C.6CC, 

3. 190, 

0.800, 

3.A30, 

1.000, 

3.A10/ 

PAT A2180 

PAT  A 

fNA23l/O.OCO, 

PAT A2190 

2 

0. 300, 

1.930, 

O.AOO, 

1.900, 

0.600, 

1.880, 

PATA2200 

3 

0. 700, 

1. 870, 

0.800, 

1.860, 

0.900, 

1.860, 

f'ATA2210 

A 

1.000, 

1. 860, 

PATA2220 

5 

0.  500, 

''AT  A2230 

6 

0.300, 

2.500, 

O.AOO, 

2.600, 

0 .600, 

2.620, 

PAT  A22A0 

7 

0.7C0, 

2.610, 

0.800, 

2. 605, 

o.oon. 

2 .600, 

PAT  A225n 

H 

1.000, 

2.580, 

PAT  A2260 
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1. OCO, 

''ATA2270 

A 

0.300, 

2. 690, 

O.AOO, 

2.790, 

0.600, 

2.910, 

PAT  42280 

P 

0. 700, 

2. 9A0, 

0. 800, 

2.980, 

0 .900, 

2.990, 

f'AT  A2290 

C 

1.000, 

3.000, 

PAT  A2  300 

c 

2.000, 

''AT  A2310 

F 

0.3CO, 

2.730, 

O.AOO, 

2.860, 

0.600, 

3.060  , 

PAT  A2320 

r 

C. 7CC, 

3.130, 

0.800, 

3.200, 

0.900, 

3.2AO, 

PAT  A2370 

r 

1.000, 

3.290/ 

CAT  A? 340 

TATA 

rNA232/ 3.0C0, 

PATA2  350 
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0.300, 

2. 760, 

O.AOO, 

2.910, 

0 .600  , 

3.  lAO, 

PAT  A2360 

2 

0.700, 

3.220, 

0. 800, 

3.290, 

0.900  , 

3.360, 

PA-'-  A2370 

1 

1.000, 

3. A30, 

PAT  A23P0 

A 

A. OCO, 

PA’^  A2390 

5 

C.3C0, 

2. 770, 

O.AOO, 

2.920, 

0.600, 

3. 160, 

PATA24nO 

6 

0. 700, 

3.2AO, 

0.800, 

3.320, 

0.900, 

3.380, 

PAT4?4,io 

7 

1.000, 

3.A75, 

PAT A2420 

e 

5.000, 

PAT A2430 

9 

0.300, 

2.  790, 

O.AOO, 

2.9A0  , 

0.600, 

3.165, 

PATA2440 

A 

0.700, 

3.2A5, 

0. 800, 

3.325, 

0.900, 

3.A08, 

PAT  A2450 
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rATAl360 
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2. OCC, 

rATA1370 
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0.700, 

0.297, 

OAT A1380 
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l.noo. 
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nATA1390 

6 

3.0C0, 
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7 

C.3CO, 
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0.246, 

0.700, 

0.243, 
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8 
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rATA1420 
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0.700, 
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0.300, 
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0.500, 
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0.700 , 
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l.OCC, 
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TATA 
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0.000, 
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0.100, 

0.487  , 

0.200, 

0 .475, 

CAT  A 1500 

2 

0.30O, 

C. A63, 

0.400, 

0.451  , 

0 .500  , 

0.438, 

cat A1510 

3 

0.600, 

O.A22, 

0. 700, 

0.405  , 

0.800  , 

0.3P  1, 

nATA1523 

<1 

2.000, 

0ATA1530 

5 

o.oco. 

C.^70, 

0.100, 

0.457, 

0.200, 

0 .44  1 , 

rATA1540 

6 

0. 300, 

0.A26, 

0.400, 

0.409, 

0.900, 

0.390, 

rATA1590 

7 

0.600, 

C. J6P, 

0.700, 

0.318, 

0.800, 

0.29  7, 

CAT A1560 
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3. OCO, 

CAT  M 570 
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o.ono. 

C. A6q, 

0.  100, 

0.453  , 

0 .200  , 

0.436, 
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A 

0.300, 
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0.400, 
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0 .500  , 

0 .370, 

OATAISPO 
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0.  ecc. 

C.  33)  , 

3.7  33  , 

3.317, 

0 .800, 
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rATA  1600  ' 

C 

A. 000, 

PAT  A 16  1 0 

r 

c.oco, 

C.A68, 

0.  100, 

0.451  , 

0.200, 

0.433, 

PAT  A 1620 

F 

0.300, 

C.A15, 

0.400, 

0.39A  , 

0.500, 

0.371 , 

P''tai^,80 

F 

0.600, 

C. 3AA, 

0.700, 

0.305  , 

0.800, 

0.260/ 

^»T A1640 

TATA 

XCP  782/5.000, 

r AT  A1680 

1 

0.000, 

0. A67, 

0. 100, 

0.450, 

0.200, 

0 .430  , 

PAT A1660 

2 

C. 3C0, 

C.A  10, 

0.400, 

0.389, 

0.500, 

0 . 36  A , 

pat  A 16  70 

3 

c. ecc. 

0.336, 

0.700, 

0.298, 

0.800, 

0.250, 

PAT  \16P0 

A 

6. OCC, 

PAT  A 1 690 

S 

0. OCC, 

C.A67, 

0.100, 

0.449, 

0.200, 

0.428, 

PAT  A 1700 

t 

0.30C, 

0. AOP, 

0.400, 

0.385  , 

0.500, 

0 . 36  0 , 

PAT A1 710 

7 

C.6CC, 

0.  3 30, 

0. 700, 

0.291  , 

0.800 , 

0.24), 

PAT  A 1 720 

P 

7.000, 

PA’"  A 1 7 30 

q 

c.oco. 

0.467, 

0.  100, 

0.447, 

0.200, 

0.427, 

PAT  A 1 740 

A 

0. 300, 

0.AC5, 

0.400, 

0.382, 

0.500, 

0.386, 

PA’-  A 1 760 

P 

C . 6 C C , 

0. 325, 

0.700, 

0.285  , 

0.800, 

0.236/ 

PATMr60 

TATA 

f NA  2 1 1/0.000, 

PATA1770 

1 

0.200, 

2. A30, 

0.300, 

2.410, 

0 .400  , 

2.380, 

OAT  A1  780 

2 

0.500, 

2. 36C, 

0.600, 

2.340, 

0.800, 

2 .29  0 , 

PAT  A 1 790 

3 

1.000, 

2. 220, 

CAT  M 800 

A 

C.5C0, 

PATA 18  10 

5 

C.2C0, 

2. 780, 

0.300, 

2.810, 

0 .400, 

2.  820, 

PAT  A 18 20 

6 

0.500, 

2. P25, 

0.600, 

2.830, 
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2.800, 

PAT  A 1 8 >0 

7 

1.000, 

2. 760, 

OAT  Al 84  0 

P 

1.000, 

PAT  Al85n 

q 

0.200, 

2.890, 

0.300, 

2.920, 

0.400 , 

2.960, 
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PAT An740 
PAT A0750 
f^AT  A07#)0 
PAT A0770 
PATA0780 
PAT  Aoroo 
^AT AORPO 
PAT  AOBIO 
PAT AnR20 
PAT  A0B3n 
pat  A0P4P 
DAT  APRSp 

PAT  A0860 
PAT  AOBTP 
OATAOBPO 
PAT A0fl90 
PATAOOOO 
CATA09  10 
PAT  A0920 
OAT A093n 
OAT  A0940 
OAT  A0950 
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4WP2 

5GF2 


,WC2,CB1,CC1,CD l,CB2,CC2,C02,CB3,CC3,CD3,GCl ,GD1  ,GEl ,GC2,G02, 
5CF2,  rF2,GG?,GF2,GI 2,GJ2,GC3,G0  3,GE3,GF3,GG3»GH3 ,GI 3 ,GJ3 ,GK3 ,GL 3, 
6GM3,GN3,GP3,GC4, Gn4 , nE4, GF4 ,GG4,GH4 ,G I 4 , G J4 ,GK4 ,GL4  ,GC5 , GD5 , GE5 , 
7CF5,GG5,CFTTAB( I 11 ,PrTTAB(  111 

COMMON  /rSTPRV/  CPLr.,CBMC,CCASE,CCFU,CCI  ,CCM,CCCMI  ,rCCML,  CCCMM, 

1 rCONT,  CCP  C,CFBFU,CEBPO,CETJ,r.FXI  N,CGFU,C&RD, 

2 rGT,CGTOT,C  [GN,r  IR  JFU,  CIRJRD,  CLF,  CLFL  ,CLGG  ,C  L 1 , CL  M, 

CLRFll,CLPRO  ,CLRT,CLTC  ,CLTP,CM,CMGG,CHM,CMTC,CMTP, 

icii  rkiDion.  rD.rDACi.rDcwn.roi.roir. 


CAT  A K INOPS, PI AFRT, SOMMnR/41 , l.,8*0. / 

PAT  A f.FT,PFT,rFr,  ASF,PFCASE,CFC,PFC,CFM,PFM/fl*0.07 
PATA  CrTTAR  / •6,1«,1«,«E, •2,2*5, l«,l«f«6f3«241,l«/ 

PAT  A P FTTaB/.  22®,.  274,  1.,. 9 29,. 2 57,.  723  ,2.571  ,1.386,22.857,1.28  1, 
L 1./ 

CATA  Kr.,KC,KW,KA,KP,  IGTVPF  , IC  TYPE  , 


PATA 

CATA 

PATA 

PATA 

PATA 


CTFPT/0./,RNOZ!/C./,WN/0.  / 

NCONFG/0/, ZXNB/0./,R5/0./,Yl/0. / , WNOZ/0. / , KFM/0/ , M ATT  K/0/ 
CCOM /O.  /, VB  I/0./,Nn  ZWT/0./,MP/0. /,CASFMA0./,WTAKK/0./ 

y wocn/n  / rru/n  / ,H  PPUMP/ 0.  / ,WTF  UF  L/ 0 . / , WC  OMM/ 0 . / 


VrXIN/C./,  VPF0/0./,GGV(/0 
vrpMi /o./ 

WARFFAL1  COST  PRF-STORED  VALUES 


WAP(-FAL1  COST  PKF-binRtU  VALUtb 
CATA  KA 1/1 .0/,WB  1/  103.43/,WCI /23.096/,W01/1352.0/  ,WEl/l .OA 
CATA  WFl/0.0/,MA  2/  1.0/,MB2/64. 91  I /, WC2 /4 3. 29  5/ ,HD2/ 1 .0/ 


CATA  WE2/0.C/,KFUZE/0/ 

CONTROLS  COST  PRF-STORED  VALUES 


PLB40ATA0410 
2,  0ATA0420 
P|,  CATAn430 
Al,  rATA0440 
C6,  CATA0450 
PSR4nAT  A0460 


ii 


c 


r 


r 


r 

c 


rat  A KCAlN/C/,rA  l/l.O/,CPl/47<;0.  /,CC  l/2?2.  7/ ,C01/5  796.3/f  cei/l  .0/  CATA0960 
CATA  CF  l/0./,CA4i/l.C/fCR2/48. /,CC2/88l./,CD2/51l6./,CE2/l.O/  CATA0970 

FATA  CF2/n./,CA  3/ 1./ tC8  3/6?. /»CC  3/2 1 3. / .C03/1880. / #CE3/ 1 ./ ,rF3/0 ./ T AT A0980 
PPfiPULSfHN  (SOLID  SII5TAINFRI  COST  PRE-STORED  VALUES  DATA0990 

CATA  PSAl/.C08l66/,PSBl/U0./tPSCl/.  333/fPSA2/.O2O22/  HATAlOOf) 

data  PSP2/U0./,PSC2/.333/,PSA3/l./,PSB3/O./fPSA9/l./  DATAIOIO 

PAT  A PSe9/.00l03S/,P  SCA/l98./fPS0A/.333/tPSE9/0./t  FSA5/1./  CAT A 1 020 

CATA  PSB5/ .CC17S;/,PSC  S/A .6788 /, P S05/ 1 .9095/ t PSE5/ 1 .5487/  CAT A10  30 

CATA  PSF5/0./,PSA6/l. /,PSB6/l COOOO. /t PSC6/32.006/ ,PS06/ .069/  OAT  A 1090 

CATA  PSF6/  1CCC./,P SF 6/1./, PSG 6/0. /, PSA  7/1. /tPSB7/. 00393/  OAT  A 1050 

C/TA  PSC7/lC00O0./,PSO7/32.0C6/,PSE7/.387/,PSF7/0./  DATA1060 


CATA  PSA8/.1930S/,PSA9/.386l/ 

DATA  PS AlO/l ./,PSP 1C/1./,PSC lC/0./,PSAll/l./,PSBll  /!./ 
CATA  PSri  1/16. 551 /,PSnil/.9263/,PSEll/0./ 

CATA  PSPC/.l/ 

AlPFPAMF  AND  INTFGRATICN  COST  PRE-STORED  VALUES 


OAT  A1070 
CATA1080 
OAT  AlOPO 
CATAI 100 
OAT Al  I 10 


CATA 
CATA 
CATA 
CATA 
CATA 
CATA 
CAT  A 
CATA 
OAT  A 
CATA 
CATA 
CATA 
CATA 
CATA 
C ATA 


PROF  rT/.l/,0n/20./,P/l./ 

AF A 1/26./, AFP  1 / I . / , AFC  I / I . / , AFO 1 / 1 . / 

AFF1/.C396/,AFF1 /.79l/,AFGl/l. 526/,AFHl/. 183/  ,AFIl/0./ 
AFA2/1./, AFP2/l./,AFC2/*008325/,AF02/.873/, AFF2/1.89/ 
AFF2/. 396/, AFG2/C. /, AF A3/ 1. / , AFB3 /I. / , AFC  3/ .00  1 299/ 
AFC3/1.16/,AFF3/1.371/,AFF3/1.201/,AFG3/O./,AFA9/19./ 


0ATA1120 
CAT  Al 130 
OATAl 190 
DAT Al  150 
CATA  1 160 
OAT Al 170 


AFP4/1  ./,AFr.9/  l./,AF09/l./,  AFF9/9.  0127/ , AFF9/  . 769/  , AFG9/ . 899/ C AT  Al  1 80 
AFFA/.178/,AF |9/.066/,AF J9/C./,AFA5/12./,AFB5/l./,AFC5/  1./  OAT  A 1 190 
AFC5/2e.08  9/, AFF5/.79/,AFF5/.  593/, AFG5/.529/, AFH5/0./  OAT  A I 200 

AF  A6/1 ./,AFB6/1 . /, AFC  6/ 3 7. 6 32 / , AF06 /.  689 / , AFF6/ . 629/  OATAl 2 10 

AFF6/ .79  2/,  AFG6/C./ ,AFA7/1. /, AFB7/. 13/,AFC7/l./,AFn7/0./  CAT  A 1220 

AFA8/26./, AFpe/l./,AFC8/l./,AFn8/l./,AFF8/.0396/, AFF8/  .70  1/  CAT  A 1230 
AFCP/ 1.526/,ArHP/. I fi3/,AFI8/0./  OAT Al 240 

AFA9/19./,AFP9/l./,AFC9/l./,AF09/l./  PATA1250 

AFF9/9.0  127/, AFF9/.769/,AFG9/.899/,AFH9/. 178/  ,AF19/  .066/  DAT Al 260 


FATA  AFJP/O./ 

CAT  A AFA  10/  12./, AFPlC/l. / ,AFC I 0/ 1 . /, AFD 1 0/28.  989/ , AF F I 0 / . 79 / 

CATA  ArF10/.593/,AFGl0/.  529 / , AFH 1 0 /O.  / 

CATA  AFAl 1/ 1./, Af  2 ll/l./,AFC 1 1 /3 7. 632 / , AFOl 1 /. 689 / , AFE 1 1 / . 629/ 
CATA  ArFll/.7O2/,AFr.ll/0./ 

CATA  AFA12/1 ./,AFr  12/.  13/,AFC12/1. /,AFD12/0./ 

CATA  AFA13/1 ./, AFP  I 3 / 1. / , AFC  I 3 /O. / 

CATA  ArA19/l./,APP  I 9 / 1 . / , AFC  1 9 /O. / 

guicancf  system  cost  ppf-stcirfo  values 

CATA  GA  l/l./,GP  l/l./,C.Cl/8.37/,GDl/.  0157/,GEl/.35/  ,r.Fl/0./ 

CATA  GA2/ 1./, GO  2/1 ./,Gr 2/7129. /, GD2 /-. 056 / ,GF2 /62 . / , GF2/2 . 35/ 
CATA  Gr2/10;00.  / ,C.H2/2900.  / ,GI  2/193.  / ,GJ2  /28B5  . / ,GK2/0  ./ 

CATA  GA3/1  ./,  CR3/1  ./,r.r.  3/7129.  /,Gn3/-.  056/ ,GE3 /62.  / ,GF3/2 . 35/ 
CATA  GK  3/l500./,CL3/1620.  / ,GM3/.33/,GN3  /.091  / ,GP3/?.5/ 

CATA  G03/0./ 

CATA  GG3/ 105C0./,GH3/2900./,GI 3/ 193. /,G J3/2885./ 

CATA  GA9/ I ./,GP9/1./,GC  9/7129. /,GD9 /-. 056/ ,GF9 /62 . / ,GF9/7.35/ 
CATA  CC9/ 105C0./,rH9/29OC./,GI9/l93. /,GJ9/2885./ 

CATA  GK  9/1  520  ./  ,Gl  9/ 7100.  / ,GA^9/0.  /,G  A5 /I  . / ,GP5  / 1 . / ,GC5/90  18  ./ 
CATA  GO'/.  I 7 7/,  GC  5.'  19  7/,GF  5/1  75.  / ,GG5/3  700.  / ,GH5/0  ./ 

CATA  K S TAP/0 /,KAGATF/0/,NCHAN/0/,KSGATE/0/ 

PROPULSION  (TURPCJFT)  COST  PRE-STCIRFO  VALUES 
PTPl  AND  PTC  I ARE  SET  BY  TURBOJET  RTNE.  IF  NOT  SUPPLIED 
CATA  PTAl/l./,PTB l/0./,PTCl/C./,PT01 /O. / ,PT A2 /5 . 19 0/ , PT P2/ . 260 P/ 


OAT  A1270 
CAT A1280 
CAT  A129n 
CAT  Al 300 
CAT  A1310 
DAT  Al 320 
r'AT  A1330 
CAT  A I 390 
CAT A1350 
CATA1360 
CAT Al 370 
PAT A13P0 
OATAl iOO 
OAT  M900 
f-ATAlAlO 
CAT A1920 
CAT  A1430 
OAT  A1490 
f'AT  A1950 
CAT A1960 
OAT  A1970 
CAT  A 1980 
CAT.M9O0 
CAT  A1500 
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TATA  PTA3/-^  1S/,PTP  ?/.  ?60e/tPTA<» /I.  /,  PTB4/0./ 

CATA  P T A5 / 1. /. P TP PTC  5/3125. /fPTD5/.059/ 

CATA  PTF5/0./,'>TA6/l./tPTR6/.  COOl  /t  PTC6 /3  I 25  ./  ,PT06/.0  29/t  PTF6/0 
CATA  PTA7/l,/tPTP7/l./tPTC7/0. /tPTJC/.  I / , PTA8/ 1 . / , PTBS/ 1 6. 22/ 
CATA  pTCP/.7A36/,PTDP/0. /»P TA 5/1 . / » PTB9/0. / »PT AlO/ 1./ 

CATA  PTPlO/l./,PTr  lC/0./,PTDlC/16.22/,PTE10/.7436/ 

PPPPULSION  (LIQUID  ROCKET)  COST  PRE-STORED  VALUES 
CATA  PI  Al/lO./,PLR  1/639.  l/,PLC  1/ . 5 /,  PL  A2/201  ./ t PL92/ .75/ t PL  A 3/  1. 
CATA  PLP3/C./tPLAA/lO./,PLB5/234.9/,PLCA/.63/, PLA5/3A0.7/ 

CATA  PLB5/.8 l/,PLA6/l C. /,PLB6/36l.9/,PLC6/.5/ ,PLA7/17A.fl/ 

CATA  P( P7/.86/,PLA8/l./»PLB8/0./,PLA9/l0./,PLB9/l25.9/, PLC9/.7/ 
CATA  PL AlO/  l 3 55./,PLRlO/.63/,PLAll/l./,PLBll/0./ ,PLA12/122.83/ 
CATA  PLP12/.A9A9/,PLA13/l./,PLBl3/.275/fPLCl3/.275/  ,PLni3/0./ 

PLBIA  ANC  PLCIA  ARE  SET  BY  LIQUID  ROCKET  RTNE.  IF  NOT  SUPPLI 
CATA  PLA1A/1,/,PLP  lA/0. / ,PLC I A/0. / t PLD I A/0. / f PL A1 5 /I . / 

DATA  PLR15/.  1 1 /, PLC 15/31 25. / ,PLD 1 5/. 069/ , PLF 1 5/1 . 1 8/ , PLFl 5/0 ./ 
CATA  PL A16/1./,PLB16/.COC1/,PLC16/3125./,PL016/.029/,PLF16/0./ 
CATA  PL  A 17/.  192  5/, PLA  I P/ 1 . /tP LBl 8/ 1. / , PLC 1 8/0 . / , PL A 19/ 1 . / 

CATA  PI P19/.231/,PLC19/3C00. /, PL A20 /I . / ,PLB20/0. / 

CATA  PL A?1/1./,PLR21/1./,PLC21/0. /, PLn2 1 /.23 1 / , PLF2I/ 3000 . / 

CATA  PLPC/.l/ 

PROPULSION  (EXTFRNAL  BOOSTFR)  COST  PRE-STORFO  VALUES 
data  PFA1/.00B166/,PFB1/1A0./,PEC 1/.333/ 

CATA  PFA?/  .(12022/,PFR2/IAO.  /,  PEC  2/.  333/ 

CATA  PFA  3/  l./,Pf:B3/C.  /,P  EA  A/1 . /,  PE  BA /.  001 039/ , PECA  / 198  . / 

CATA  PECA/. 323/, PEEA/0./ 

CATA  PFA5/1./,PER5/.001 755/,PeC5/A. 6788/,PED5/l.A0A5/,PFE5/ 1.5A8 
CATA  PrF5/0./ 

CATA  PFA6/l./,PFR6/l./ ,PEC6/3l25./,PED6/.069/,PEE6/0./ 

CATA  PEA7/  l./,PFR7/.0C3A3/,PFC7/ 31 2 5. / , PE07 / .3  87/ , PEE7/0. / 

CATA  PEA8/ . 386  1/,PEA9/. 19305/ 

CATA  PFAIO/  1 ./,PFB 10/1./,PFC lC/0. / 

CATA  PFAll/  l./.PFP  11/  l./,PFC 11 /I  A. 392 / ,PED1 1 /. A263 / 

CATA  PFFl  1/C./,PEBC/. 1/ 

PROPULSION  ( integral  RAMJET)  COST  PRE-STORED  VALUFS 
DATA  PR  I Al/l./,PR  IRl/5.lA8/,PRlCl/.2608/ 

CATA  PPIA2/1./,PRIR2/A.A15/,PR1C2/.26O0/ 

CATA  PP TA3/1./,PRIB3/C./ 

CATA  opiA4/  1 ./,PR  IR'i/.C01039/,PRIC4/198./  ,PRID4/.3T3/  ,PRIFA/0.  / 
CATA  PP  1A5/1  ./,PRIR5/122.  £3  / , PRI  C5 /.  4949  / 

DATA  PP I A6/. 2 75/, PR 1A7/.  275/, PR! A 8/1. /,PRI B8/0./ 

CATA  PR  1A9/1./,PR!P9/3.08  6/,PR1C9/.0577/,PRI09/4./  ,PRIF9/.36/ 
CATA  PP  IF9/.075/,PRIG9/0./ 

CATA  PP (A  10/5, I 975/,PR lA 11/1./,PRI81 1/1. 08/, PR IC 11/2. 543/ 

CATA  PR  ?ni  1/.014/,PRIF11/.00002/,PRIF11/2./,PRIG11/0./ 

CATA  PP  I A12/1./ ,PP  IB  12/1./,PRIC12/312  5. / ,PR IDl 2 / .069/ , PR t P 1 2/0 . / 
CATA  PP  1A13/1./,PP IB  13/.0001/,PRIC13/312  5./,PRID13/.0?9/ 

CATA  PR  IE13/0./ 

CATA  PP IA14/1./,PP I614/.C096/,PR IC 14/ 1 40. /, PR  I 014 / .3 33 / 

CATA  PPIE14/0./ 

CATA  PR  lA  15/ l./,PP IB15/.C23  78/,PRIC15/140./,PRI015/.333/ 

CATA  PP  IF  15/0./ 

CATA  PP  lAlh/l  ./,PP IR  16/.001195/,PBIC16/198./,PRID16/.333/ 

CATA  PP  IF  16/C./ 

CATA  PR lAl 7/1 ./,PP IB  1 7/. 002 6234/ , PR ICl  7 /4. 6788 /, PR  I Cl  7/ 1 .4045/ 
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DAT 
OAT 
./OAT 
CAT 
CAT 
CAT 
OAT 
/ OAT 
DAT 
CAT 
CAT 
CAT 
PAT 
EDOAT 
CAT 

cat 

CAT 

CAT 

CAT 

CAT 

DAT 

OAT 

CAT 

CAT 

CAT 

par 

7/DAT 

PAT 

OAT 

PAT 

CAT 

CAT 

PAT 

OAT 

oaT 

PBT 

CAT 

CAT 

PAT 

OAT 

CAT 

OAT 

CAT 

CAT 

PAT 

CAT 

PAT 

OAT 

CAT 

OAT 

CAT 

CAT 

OAT 

OAT 

OAT 


A1510 
A1520 
A1530 
A1540 
A1550 
A1560 
Al  570 
A15R0 

A 1500 

A1600 
A1610 
A1620 
A1630 
A1640 
A 1650 
A1660 
A1670 
Al6flO 
A16P0 
A I 700 
Al  710 
A1720 
A1730 
A1740 
Al  750 
Al  760 
Al  770 
Al  780 
Al  7P0 
Al  800 
A18  10 
A1820 
A1830 
A1860 
Al  850 
A 1860 
A1870 
Al  8H0 
A1890 
Al90n 
A1910 
Alozn 
A1930 
A1940 
AiP5n 
A1960 
A1970 
A1980 
A 1990 
A2000 
A20  10 
A2020 
A2030 
A2040 
A2050 


■I 


■I 


TATA  PR  IFlT/l.S^eT/.PRlFlT/O./ 

CATA  PP  lAia/ l./,PP  IPlP/1. /,PRIC18/3125./ ,PRI D18/.069/, PR  IE  18/0./ 
CATA  PP  IAlO/l./,PP  IR  l9/.00343/»PRICl9/3l25./tPRI0l<5/.  387/ t 
I PRIF19/0./ 

CATA  PR IA20/. J86I/,PR  rA21/.19305/ 

CATA  PP I A22/1./,PP ID22/0./,PRI A23/l./,PRIB?3/l,/,PRIC23/0./ 

CATA  PR  I A 24/1./, PP IR24/2A22./,PR IC24/0./,PRI A25 /I . / , PR  I 825/ 0./ 
CATA  PP  tA26/l./,PPIB26/l./,PRlC26/0./,PRin26/2422./,PRJC/.l/ 
PROPULSION  I NON-INTEGRAL  RAMJET)  COST  PRE-STOREC  VALUES 
PRJC  IS  INITIALIZEP  IN  INTEGRAL  RAMJET  OATA 
CATA  PPNAl/l./,PRNR  1/ 5. I 4 8/ , PR  fC  I /. 2 608 / 

OATA  PPNA2/l./,PRNR2/4.4l5/,PRNC2/.2608/ 

CATA  OPNA3/1 ./,PRMB3/0./ 

CATA  PRNA4/ l./,PRNR4/.COI039/,PRNC4/l98./,PRNn4/.333/,PRNF4/0./ 
CATA  PRNA5/ 1./,PPNB5/122. 83 /, PRNC5 /.4949 / 

CATA  PR NA6/. 275/, PR NAT/. 275/,PRN A8/1 . /,PRNR8/0./ 

CATA  PRNA9/l./,PRNB9/3.086/,PRNC9/.0577/,PRNn9/4./  ,PRNE9/.36/ 
CATA  cRNr9/.C75/,PRNG9/0. / 

CATA  PRNAlC/5.l975/,PRNAll/l./,PRNBll/1.08/,PRNCll/2.543/ 

CATA  PRNP  I 1/. 0 14/, PRN FI 1 /. 00002/, PR NF 11/2. /,PRNG 11/0./ 

CATA  PRNA12/ l./,PPNB12/l./,PRNCl2/3l25./,PRN012/.069/, PRNF12/0./ 
CATA  PPNA13/  1./, PPNR 13/. COOl /, PR NC 1 3/3 12 5. / ,PR ND13 /.029/ 

CATA  PPNFn/0./ 

TATA  PPNA14/  1 ./  ,PP  NR  1 4/ . 0 C 61  66 /,  PRNC14/140./  ,PRN014/  .33  3/ 

CA  Ti  P3NE  14/0./ 

CATA  PRNA15/1./,PPNB 15/.02022/ ,PRNC15/140. /, PRN015 / . 333/ 

CATA  PPMA16/l./,PPNR16/.001039/,PRNCl6/l98./,PRN0l6/.333/ 

CATA  PRNA17/ l./,PPNRl 7/. OCl 755 /, PRNC 1 7 /4. 67R8/ , PRN C 17/ 2 .809/ , 

I PRNF 17/1.5487/ 

CATA  PPNAia/ 1 ./,PPNR18/0./,PRNA19/1. /,PRNB19/1./  ,PRACl9/0./ 

CATA  PRMA2C/l./,PPNB20/2040./,PRNC20/0. /,PRNA21/l./,PRNB21/0./ 
CATA  PPNA22/1  ./, PP NR  22/ 1 ./ ,PR NC22 / 0.  / , PPNn22 /2040 . 0/ 

CATA  PT  P I,  PTCUPLC  14/ 1.52, 0.6, 0.2608/ 

CATA  IP  PC  ST,  IGTYPF,irTYPF/0, 1,1/ 

CATA  NSCRC/C/ 

CATA  WTGUin,A/50., 1000./ 

CATA  WTGU  10,KGTABL,KGTYPE  ,DUMGX/0.  ,1,11 ,9*0./ 

CATA  S,OniQA,R, lYFAR/1000.,20.,1.,  1.,1974/ 

CATA  SAWTI/5C., ICC., 150. / 

CATA  SAWTJ/5C.,  ICO., 15C./ 

CATA  SAFCT/10.,9.,  6./ 

CATA  SAFC  J/20.,  15.  ,10./ 

CATA  AWTI/  150.,250.,350.  / 

CATA  AWTJ/  150.,2  50.  ,35C.  / 

CATA  APPFK  1/40. , 1 50. ,250.  / 

CATA  APPFKJ/40.  ,1  50.,25C./ 

CATA  AFCI, AFCJ/9., 15./ 

CATA  KASTP,KAAGT ,NACHM,K A SG T/4*0/ 

CATA  KSASTB,KSAAGT  ,NSACHN,K SA SGT/4*0/ 

CATA  GIRWT/25 .,  50. , 100./ 

CATA  GIRBSP/2.,2.,6./ 

CATA  GIPNCT/3*!./ 

CATA  GlRFC/2.,4.,  11./ 

CATA  0MAX0,VMAX0,nUM0A/lC*0.0/ 

CATA  PTBl/0.0/ 


CAT A2060 
CATA2070 
CAT  A20  80 
CAT A2090 
OAT A2100 
0ATA2110 
CATA2120 
OAT A2I30 
CATA2140 
OAT A2150 
CATA2160 
OAT A2170 
9ATA2180 
CAT A2190 
CATA2200 

pat A2210 

OAT A7220 
OAT A2230 
OAT A2240 
OAT A2250 
0ATA2260 
DAT A2270 
CATA2280 
OAT A2290 
nATA2300 
CAT A23 10 
PAT A2320 
CAT A7330 
CAT A2340 
OAT  A2350 
nAT42 360 
PAT  A7370 
CAT A23fl0 
nATA2390 
CAT A2400 
PAT  A2410 
PAT A2420 
0ATA2430 
PAT A2440 
PAT  A2450 
rAT4?460  i 

CAT  A2470 
PAT  A24R0 
CATA2490 
OAT A2590 
CAT A251  0 
CAT  A2520 
CAT A2530 
PAT  A2540 
DAT  A2550 
CAT A2560 
OAT A2570 
CAT A75flO 
CAT A2590 
CAT A2591 
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r»  o o n 


0ATA2600 


SURPnilTINE  CATA  2 ( I,  JB  iNB  .NL  . A ,C  1 0 ,E  t E ,G ) 

C f'QCIFlEn  FEBRUARY  l<;72  GMfC 

riHEMS  ION  A(  15),C( 15,  15)fO( I5f 15) ,NBC15) tEll5 ,15) ,F(l5f 15) , 
xrH5,  15  ) 

CPMMPN  /DEVICE/  Mnev(12l 
ECUIVALENCF  ( MPEV(5),  M5  ) 

50  CCNTINUE 

READ  (N5,10)  AA, je,NL,CC,GG,EE,EE,DD 
10  EPRMATl 2X,AA,2I2,5A4  ) 

RFAn(N5,30)  ( A(N),  N*1,N'L  ) 

30  format  ( lOY,  6F10.  0 ) 

PFAC1N5,15)  ( NR(M,  N=1,NL  ) 

15  FPRMAT  ( 2012  ) 

55  CP  170  N = 1,NL 
60  Kl =NR(N  ) 

RFAC(N5,30)  ( CCN.K),  K=1,KL  ) 

Cr  TO  ( 81,  75,  70,  65  ) , JB 
65  RFAr(N5,30)  ( G(N ,K  ) ,K=  1 ,KL) 

70  PEAr(N5,30)  (F(N,K ),K-1,KL) 

75  RFAn(N5,30)  ( F( N ,K ) ,K *1,KL) 

81  RrAD(N5,30)  ( P ( N ,K  ) , K*=  1 , KL  ) 

170  CPNTINUF 
R FTUPN 
FND 


CRCSOO  10 
nPCS0020 
nRnsno30 
OR OSOOAO 
DROSOOSO 
DR 050060 
PR  OS0070 
PR  P500R0 
nPD500«)0 

OP  nsoloo 

PR  C501 10 
OROSO 120 
PR  050130 

CP  r50  uo 

CRCS0150 
PR  050160 
PR  C501 70 
ORPSOl  flO 
PRCSOIOO 
PR  C502O0 
rPC502  10 
PRP50220 
OR  CS0230 
OR  C502A0 


SUBROUTINE  PAGE 

r**  PGM=NXX  L.n. GREGORY.  VER.l  11-15-72.  FORTRAN  IV.  FBCO 

COMMON/INOUT/NL IFF,MPAGE .PCOOEI 20) , inUMI 108) 

COMMON  /5Er.  lO/CL  AS(  20  ) 

1000  format (//26X, 1 OAA, A3/1H  1,25X,19AA,A3/) 

2000  FORMAT! fx, 15A4, A3, 6X,  AHPAGF,!^/) 

WR  ITF(  6,  1000)  CLA5,  CLAS 
WRITE!  6,2000)  PronE,NPAGF 
NOACF  = NPAGF  ♦ 1 
NL  I N F = B 
PETURf' 

EMP 


SI.BRPUTIMF  RJINPT  ( IZ4,  NRAMPX,  IPRIN,ITABL  ) 

OPTIONAL  TABULAR  READ  OR  NAMEL15T  REAO 

namelist  reaps  as  stored. ..with  INDICES  REVERSED  FROM 

SYSTEM  NORMAL  STORAGE K,J,I,  NOT  IMJ,K 

PEFORMATTFD  output  not  as  read  in 

COMMON  /ALTPP/ 

IKl,  ALT!  24),SDTFMP(  2A)  ,PRE  SS  (2  A ) , I D ( 8 ) 

CPMMPN/COOEXX/  I I!  16) 

ECUIVALENCF  ( 11(2),  I TYPE  ) 


PAGEOO  10 
PAGF0020 
PAGFOOSn 
PAGFOOAO 
PA  rrnoso 
PAOPPOGO 
P AC Fn070 
P AGPPOBO 
P AGPOOno 
PAGED  100 
PAGFO I 1 0 
PAGED  120 


R.l  INOOlO 
T J IN0020 
RJ IN0030 
RJ  IN0O<,0 
RJ  1N0050 
RJ IN0060 
RJ IN0070 
RJINOORO 
RJ INOOOO 
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c 

c 

r 

c 

c 

c 

c 

r 


EOUlvalF^'fE  ( 11(8),  NDUCT  t.  ( in9),  NFRNG  ) 

CrM^»(iN  /FJ^TFRN/  FXTRIA  (lA),  ASPECT,  EXTX,  OSMACH,  CSHT , EXTR2(2) 
rnMMPN  /FUELXX/  K2,  KK(15»,  TT2 ( 15) ,FARI (is ,15 ) ,TRHI (is , is ) , 

1 TPMFP( 15,15) , TRLC( 15,15)  , 

2 K3,  KL(15),  JGAPP,  TT4A ( 15)  ,F AR2 ( 15 ,15  ) , 

3 r,AMLO(15,15)  ,GAMPED(15,15),  G AMH  I ( 1 5 , 15  ) , 

A K4,  KM(15),  JR,  TTAB(15),  FAR3(15,15), 

5 GASLCK  15,15) , G ASMED ( 1 5 , 15 ) , G ASH  I ( 15 , 15 ) , 

6 NBl,  BSP(2A),  CaMEFF(2A),  RLEAN(24) 

CPMMPM  /IMPATX/  THXX(23) 

ECUIVAL  EPCE  ( THXX( 21),TSTART) ,(THXX(22)  ,TFBNG) 
rnMMPN  /INCFS/  XINnn(15) 

ECUIVAIFNCE  ( XINDOCl),  XR  1 ) , ( XINDn(2),  XR2  ),  ( X I Nno<  3 ) ,x  P3  ) 

1 ( XU'nn(A),  XRA),  ( XI  NOD  (5),  xc  ), 

2 ( X!N0P(6),  YRl  ),  ( XINDD(7),  VR2  ), 

A ( XlNOnCa),  VP3  ),  ( XIN00(9),  VRA  ), 

5 ( XlMPPdO),  YC  ),  ( XlNOOdl),  XT  ), 

6 ( Xivnn(12),  ZMACHT  ),  ( XINDD(13),  YRANGl  ), 

7 ( XINnr(lA),  YPANG2  ),  ( XlNODdS),  YRANG3  ) 

rrwMPN/IN'LETX/ 

6Kn,KPTr ( 15),ALPHV( 15) ,AAMACH( 15, 15 ) , AOACC ( 15 , 15 ),PT3FTr(15,15), 
lArOnt  15,15) 

CPHwnN  /NFIIES/  N5,  N'6,  N7,  Nil,  N12,  N1 
PPM^Pv  /RJPLOK/  RJ(5n) 

FCUIVAl  FNCF 


PJ  INO  100 
PJ INQllO 
RJ IM0120 
PJ IN0130 
RJ INOl AO 
RJ INO 150 
RJ (NO  160 
RJ  tN0l70 
R J tNOlRO 
RJ  f N0190 
RJ IN0200 
RJtN0210 
, RJ 1N0220 
RJ I N0230 
PJ 1N02A0 
RJ IN0250 
RJ IN0260 
RJ 1N0270 
RJ IN0280 
R J (NO  R90 
PJ INO 300 
PJ  fN0310 
R J I N0320 
RJ  ( NO  330 
RJIN03A0 


l(PJ(  l),fNM 
2(RJ(  5),PT2Pn 
3(RJ(  9),PTAY 
A(PJ(  n),A6MIN 
5( PJ{  17) ,PFl  TA 
t( RJ(  2 1 ) , A?A3 
7(PJ(  25), AL  FI 
R( PJ( 25) ,WF 
9(RJ(  ’3)  ,TP 
X (RJ(27),PTa1 
rONMPN  /PJTITL/ 


,(PJ(  2),ANC  ) 
, (PJ(  6),  cor  ) 
,(PJ(10),GAM  ) 

, (P  J(  lA),XMr)MR  ) 
, (P  J(  18)  ,PCHGN  ) 
, (F J( 22  ) ,FARLR  ) 
,(PJ(26),TTA  ) 

, (P J(30),ANCA  ) 
,(PJ(3A),Pn  ) 

) ,(RJ( 38) ,PTA2 
T (TIF (20) 


, (RJ(  3)  , 
,(RJ(  7), 
, (RJ(ll) , 
, (RJ(15)  , 
, (RJ( 19)  , 
, (PJ(23)  , 
, (R J(27)  , 
, (RJ(31)  , 
, (RJ( 35)  , 
) , (RJ(39) 


ANN  ) 
Cl  ) 
A6NAX  ) 
ACAC  ) 
AMACH  ) 
IFTYPE) 
FAR  ) 
PT2  PPC. ) 
KOIA  ) 
,PTA3 


, (RJ(  A)  , 
,<RJ(  8), 
, (R J(12  ) , 
,(RJ(16)  , 
, (R  J(20  ) , 
, (R  J(2A)  , 
. (R J(28  ) , 
, ( R J( 32)  , 
, (RJ( 36), 
) 


AL 

PTAX 

ACPAX 

roA 

ALFCLO 

RPAR 

PM 

PTG 

PTAI 


RJ INO  350 
R J INO  360 
RJ IN0370 
RJ (N0380 
PJ  tNn390 
RJ I NOAOO 
RJ  INOAIO 
RJ 1N0A20 
R J I N0A30 
P J INOAAO 
RJ  I'''04,5n 


PPMMPN/TR  AJX/  CFNFT  ,c  FNP Q , A MAX  X , A L XX , MODE S , I NO , F AR  MAX,TTAMAX,FSIPPRJIN0A60 


l,ICPDE 

TARE  F 2 TFMP  R ISF 
TABLE  3 gamma 
T API F A GAS  rONSTAN  I 

TAPI  E 5 PUPNFR  SFVFPITy  TABLE, ANC  AND  LEAN  PLOW  PUT 
TAPI  F 6 INLFT  MAP 
IFTYPE  = 0 FOR  JP5  FUEL 


RJ I NOATO 
RJ (NOAPO 
R J ( N0A90 
RJ  IN0500 
RJ  INOSn 
RJ IN0S20 
RJ  IN0530 


IFTYPF  = I FOR  HDJr  PP  BPRON  SLURRY 

PFAD  ANO  WRITF  T I TL E , FUFl  ,TAR LE S, ♦ I NPUT  DATA 

NAMflIST  /NAMTHS/  KK,K2,  TT2,  FARl,  TRLO,  TRMFD,  TRHI 

NAMFLIST  /NAMSPH/  KL,K3,  TTAA,  FAR2,  GAMLO,  GAMMED,  GAMHI 

namelist  /NAMGSr/  KN,KA,  TTAP,  FAR3, 

I G ASLD,GASMED,  GASHI 

NAMFLIST  /NAMPSP/  NRl,  BSP,  CDMEFF,  RLEAN 

NAMFLIST  /NAMINM/  K P Tf , K 8 , A LPHV , AAMACH , AODD , AO ACC , PT3 PTR , 

1 ASPFPT,  DSHT,  DSMACH,  NOUCT,  NFRNG,  NRAMP, 

2 TFRNG,  TSTART,  XC , XRl,  XR2,  XR3,  XRA,  XT,  YC, 

3 YPl,  YP2,  YP3,  YRA,  YRANGl,  YRANG2,  YRANG3,  ZMACHT 


RJ  TNOSAO 
RJI N05S0 
R J IN0560 
R J IN0570 
RJ IN05R0 
RJ IN0590 
RJ I NO  600 
RJ IN06  10 
RJ (N0620 
RJ  INO630 
RJ IN06AO 


“I 
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JPTC  = 'J 
IFF  = I 

IF  I IFTYPF  .r,T.  0 ) IFF  = 3 

IF  ( (I/A.LT.56)  .nR.  (IZA.GT.65)  » GO  TO  66 

57  IF  ( I?^  .NF.  57  > GO  TO  58 

IF(  IT4BI  .EO.O)  P FfiOINS,  NAHTR  S» 

IF(  1T4PI  .ME.f)  I fall  DATA2(lf3t 

1 KK  , K2,TT2,FARl  ,TRHI  , TRHEr)  , TRLO , G ) 

IF  ( IPPIN  .LF.  0 ) go  to  58 
. C WPITF  TFMPFRATURF  RISE  LIST 

NFNF=l 
NTWr=2 
NTHR=3 
NFnR=A 

rO  2P59  MI  = 1.  K2.  A 
WRITE  ( N6,  2300  » 

23CO  FORMAT!  //  5CX , 2 EHTF MPPR A TORE  RISE  DATA  TABLES  //  » 
WRITF!M6, 2310)  NPNF,  TT2(N0NEI,  NTWO,  TT2 (NTWO) 

2310  Ff^RMiT!  lOXflHSUBTAPLF  » lA,  5Xf6HTT2  =,  F7.2f 
I 35X8HSUPTAPLF  , 14,  5X,6HTT2  =.  F7.2  I 

WRlTFINt,2315) 

2315  FORMAT!  9yAHFAR  1 ,ex4HTRL0f  IIX5HTRMED*  11X4HTRHI, 

1 IflX^HFAR  1,PX4HTRL0,  IIXSHTRMEO,  UX4HTRHI  ) 

IKK  = MAXO  ! KK!NONE),  KKINTWOI  ) 

WP  ITF(N'6f  2320)  ( ( F AP  1 1 NONE,  1)  , TRLOI  NONE  , I ) , TRMED  I NCKJE,  I ) , 

1 tphKNONE,  I ),  far  IIKTWO,  I ) ♦ TRLOINTWO,!),  TRMFO  !NTWP,  1)  , 

2 TRHIINTWn,  I ) I , 1 = 1,  IKK  ) 

2320  FORM  AT!  5XF10.4,  3F15.A,  lOXFlC.^f  3F15.A  ) 

IF  ! K2  .LT.  NTHR  ) call  PAGE 
IF  ! K2  .LT.  NThP  ) or  TO  2999 
^ WPITF!N6, 63251 

^ WOfTF!N6,2310)  MTHR,  TT2(NTHR),  NFOR,  TT2(NF0R) 

WP  lTF|r'6, 2315  ) 

( IKK  ^ MAXO  ! KKINTHR),  K K I NF OR ) ) 

WR ITF!M6,  2320)  I ! F AP 1 ! NTHR  , 1)  , TRLO ! NTHR , 1 ) , TRMED ! NTHR , 1 ) , 

1 TRHI  INTFR  , N , FAPKNFOR,!  ) . TRLOI  NFOR  , I ) , TRMFO  ! N FOR  , I ) , 

2 Tdh  IIMFOR,  I ) ) , 1=1,  IKK  ) 

NrNF  = NrNF»-A 
ntwo=ntwc+a 

jj  nthr=ntfp*^ 

« nfop=nfop»a 

CALL  PACF 
jqqo  CONTINIIF 

58  IF  ! I/A  .MF.  56  ) GO  TO  59 
IF|  ITAPL .FO.O)  P FAD! N5, NAM SPH) 

IF!  !ITAPL.MF.0)  .and.  IIFF.E0.3)  ) CALL  0ATA2I1,IFF, 

1 KL,K3,TTAA,rAR2tGAMHI  ,G  AMMFOf  GAMLO  ,G  ) 

IF!  !ITAP!  .NE.O)  .AND.  (IFF.EQ.l)  I CALL  0ATA2!1,1FF, 

1 KL.K  3,TTAA,FAR2tGAMLnfGGl fGG2tG) 

IF  ! IPPIN  .LF.  C ) GO  TO  59 

C WPITF  SPECIFIC  HFAT  LIST 

NONF=  1 
NTWO =2 
NTHP  = 1 
NFnR=A 


PJ 1N0650 
PJ  IN0660 
RJ  IN0670 
PJ  IN06B0 
PJ  IN0690 
RJ IN0700 
RJ  INOTIO 
RJ IN0720 
RJ IN0730 
RJ  IN0  7A0 
R J INO  750 
RJ  IN0760 
RJ IN0770 
PJ IN0780 
PJ IN0790 
RJ  IN0800 
RJ  1N08  10 
RJ IN0820 
PJ IN0830 
PJ I Non  AO 
RJ iNogso 
RJ IN0P60 
RJ  IN0870 
PJ  iNonno 
R J INORfiO 
RJ IN0900 
RJ I NOPl 0 
PJ  I -''0020 
RJ  IN0O30 
RJ IM09AO 
RJ  INOQSO 
PJ  IN0'’60 
PJ IN0970 
RJ INOPon 
R J IN0090 
RJ  I VIOOO 
RJINlOlO 
RJ INI  020 
RJ IN1O30 
PJ INI OAO 
PJ IN1050 
RJ I Nin60 
RJ IN1070 
RJ INIORO 
RJ  IN109O 
RJINl 100 
RJ INI  1 10 
RJIN1120 
RJ INI  1 30 
RJ  INI  lAO 
RJ  IN  I 150 
RJ  TNI  160 
RJ INI  1 70 
RJ INI  180 
RJINl IRO 
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i 


\ 


1, 


nr  39<;9  - i,  k3,  a 

WP  ITF (M6,  330  0 ) 

3300  FnPM/ST(  //  50X,  ZSHSPECrrrC  HEAT  DATA  TABLES  //  ) 
WRITr(^'6,3310)  NONE,  TTAA(M0NE»,  NTMP,  TT^AJNTWO) 

3210  FORMAT!  9X8HSU8TARLE , I4f  5X6HTTAA  »,  F7.2f 

I 35XflHSUBTAPLE,  14,  5X6HTT4A  FT. 2 ) 

WRITFINt, 331E) 

3315  FORMAT!  9X4HFAP 2 , 9X5HGAMLn,  10X6HGAMMED,  9X5HGAMHI, 

I 17X4HFAR 2t9X5HGAML0,  10X6HGAMMED,  10X5HGAMHI  ) 

IKL  = ►'AXO  ! KLlNnNF)  , KLINTWO)  1 

WP!TF!A'e,  33201  !!  FAP2!N0NE,n,  G A MLO!  NONE  , I ) , GAMMEC!NnNE,  I ), 

1 GAMH  I!  NONF,  1 ),  FAR2(NTWn,n,  GA  MLCI  NTWO,  I ) , G AMM  EF  ! NTWG,  I » , 

2 GAMHI! NTWn, I ) ) , 1=  1,  IKL  ) 

3320  FORMAT! 5XF  10.4,  3F15.6,  IOXFIO.4,  3F15.6  ) 

IF  ! K3  .1  T.  NTHR  ) CALL  PAGE 
IF  ! K3  .LT.  NTHR  » GO  TO  3999 
WPITF!M6,6325  » 

WRTTF!N6, 3310  I NTHR,  TT4AINTHR),  NFOR,  TT4AINF0R) 

WRITFINt, 3315) 

IKL  = maxO  ! KLINTHP)  , KLINFOR)  ) 

WO  ITF  (Nt,  3320)  !!  FAR2INTHR,n,  GAMLOINTHR  , 1)  , GAMRFO!  NTHR,  I ) , 

1 GAMFIINTHR,  I ),  FAR2!NF0R,n,  GAMLO  !NFOR  , 1)  , GA  MMEO  ! NF  CP , I 1 , 

2 GAMH  IINFOR  , I ) ) , 1=  1,  IKL  ) 

N0NF=N0NF+4 

NTWO=NTWO  •*•4 
NTHR  = NTHP  + 4 
AF0R=NF0P ♦4 
CALL  PAOF 
3999  CONTINUE 

59  ! F ! 174  .NF  . 59  ) GO  TO  60 

IF!  ITAHl  .EO.O)  R FAn!N5,NAMGSC  ) 

IF!  IITARL.NF.O)  .and.  IIFF.EQ.3I  1 CALL  DATA2!l,IFF, 

I KN,K4, TT4B,FAR3,GASHI ,G AS  ME 0 ,G A SLO ,G 1 

IF!  IITABL.NF.O)  .and.  IIFF.EO.l)  ) CALL  0ATA2II,1FF, 

1 KN ,K4,TT4B, FAR3,GASL0,GG1  ,GG2,G) 

IF  I IPP  IN  .LF.  0 ) GO  TO  60 
r WRITF  CA9  constant  LIST 

N<^NE=  I 

NTwn=2 

A THP=  3 
NFnp=4 

ro  4999  mi=i,K4,4 
WP ITE!N6,4300  I 

4’CO  FORMAT!  //  SOX,  24HGAS  CONSTANT  DATA  TABLES  //  ) 

WRITFINt,  4310  NONF,  TT4fl  INONE  ) ,NTWO  , TT4B1NTW0) 

4310  FORMAT!  CX8HSUP TABLE,  14,  5X6HTT4B  =,  F7.2, 

1 35X9HSUBTAPLE,  14,  5X6HTT4B  =,  F7,2  ) 

WR  ITFINt, 4315) 

4315  FORMAT!  9X4HFAR 3, 10X5HGASL0,  lOXtHGASMED,  10X5HG4SHI, 

1 17X4KF AP 3, 10X5HGA SLO,  10X6HGASMED,  10X5HGASHI  ) 

IKL  = maxO  ( KNINONE)  , KNINTWO)  ) 

WC|TF  1N6,  4320)  !!  FAR 3(NnNE , I ) , G A S LO I NONF , I ) , GASPED! NONF , 1) , 

1 CASHIINOMF, I ),  FAP3!NTWn, 1 ) , GA SLO ! NT WO , 1 ) , G ASMEC! NTWO,  I ) , 

2 CASMlINTWn, I ) ) , 1=1, IKL  ) 

4320  FORMAT!  5XF10.4,  3F15.4,  ICXFIO.4,  3F15.4  ) 


P J 1N1200 
RJ  1N1210 
PJ  IN  1220 
PJ IN1230 
RJ 1N1240 
RJ IN1P50 
RJ  1N1260 
RJ  IN1270 
RJ  INl2flO 
RJ IN1290 
RJ  IM  300 
PJI N1310 
RJ IN1320 
RJ IN1370 
RJ  IN1340 
PJ  IN1350 
RJ lN13tO 
RJ INI  370 
RJ INI  380 
R J IN1390 
RJ  TN1400 
PJIN1410 
RJ IN1420 
RJ IN1430 
RJ IN1440 
R J IM450 
RJ  IN1460 
RJ IN1470 
RJ IN14P0 
RJ IN  1490 
RJ IN15C0 

R ) INlSn 

RJ INl52n 
RJ IN1530 
R J IN1540 
RJ  lA'lSFO 
RJ INI  560 
RJ INI  570 
RJ  I M580 
RJ INISOO 
PJ  IN  1600 
RJ 1N1610 
RJ IN1620 
RJ  IN  1630 
R t IN1640 
RJ IN  1650 
P J IN1660 
RJ  1N1670 
RJ IN16R0 
RJ I N1 690 
RJ IN1700 
RJ  INITIO 
RJ IN1720 
PJ  TN1730 
RJ INI  740 
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IF  ( K4  .LT.  NTHP  ) CALL  PAGF 

IF  ( K4  .LT.  NTHR  ) GO  TO  A999 

WFITF(N6.63?5) 

WR  ITF(A’6,  A3  10)  NTHR,  TTAP  ( NTHR  ) .NFOR  , TTAB(NFCR) 

WP ITF (N6, A3  15) 

IKL  = MAXO  ( XN(NTHP)  , KNINFOR)  ) 

WRITF  (N6,A320)  ((  ^AP 3( N THR , I ) , GASLOINTHB, 1 ) , GASBEDl NTHR, I ) , 

1 CASHKNTHR,  I ),  FAR3(NFaR,l  ),  G A SL  C ( NFOR  , 1 ) , G ASM  EC  ( NFCR  , I ) , 

2 GASHIINFOR,  I ) ) , 1 = 1, IKL  ) 

^^NF=N^NF♦A 

Mwn=NTWO-*-A 
NTHR  = NT|-P  A 

NFnR=NrnR  +a 
call  PAGF 
A9<;9  CrNTINUF 

n IF  ( I7A  .NE.  60  ) GO  TO  61 
RFAD  (N5,  NAMRSP  ) 

IF  ( IPPIN  .LE.  0 ) GO  TO  61 

C WPITF  PURNFP.  SFVFRITY  LIST 

WPITF  ( N6,  5100  ) 

51C0  FORMAT!  Ill  15X?eHBUPNFR  SEVERITY  DATA  TABLE  II 
1 / 1 7X 3HBSP, 9X6HCnMEFF , 10X5HRLEAN  / ) 

WPITF  ( M6,  5200)  i ( BSPINI ) ,COMEFF (N1 ) ,RLFAN( NI ) ),  NI=l,MPl  ) 

5200  FORMAT  ( 5X,  F15.2,  F15.A,  F15.5  ) 

CALL  PAGE 
61  rONTINUF 

IF  { ( I7A.NE.6I).ANn. (IZA.NF.62))  GO  TO  62 
NPAMP  = NRAMPX 
RFAD  (N5,  NAMINM  ) 

X iNoni  16 ) = nsMACH 

^PAMPX  = NRAMP 


IF  ! 

ipp  IN 

.IE. 

0 

) 

GO  TO  nil 

IF  ! 

IT  YPE 

.FO. 

1 

) 

WRITE(N6,  5A5  ) 

IF  ! 

ITYPF 

.FO  . 

2 

) 

WRI TF IN6,  5A6  ) 

RJIN1750 
RJ IN1760 
RJIN1770 
RJ  IN1780 
RJ  IN17P0 
RJ  IN1800 
RJ  INIRIO 
RJIN1A20 
RJ IN1B30 
RJIN18A0 
RJ  IN1B50 
RJ  IN1860 
RJ  IN1870 
RJIN1B80 
RJ IN1B90 
RJ IN1900 
RJ  INIPIO 
RJ  IN  19  20 
RJ  IN1P30 
RJ IN1990 
RJ  IN1950 
RJ  IN1960 
RJ  IN  1970 
RJ  IN1O80 
fl J IN  1900 
PJ IN2O00 
RJ IN701 0 
RJ IN2020 
R J I N2030 
R J 1N70A0 
R J IN2050 
RJ IN2060 
RJ IN2070 
RJ IN20P0 


i 

i 

I 


5A5  FORMAT! ///lOX,2eHPFLLV  INLET  DESIGN  REQUESTED  ) RJIN2090 

54,6  FORMAT!  ///lCX,3lHnUAL  AFT  INLET  DESIGN  PFOUESTFD  ) RJIN2100 

WPITF!^'6,  55C  ) NPAMP,  OSMACH,  DSHT  PJIN2110 

550  FORMAT!  20T , opRAMPS  - , I 10/  20X,flHMACH  - , F10.3/  RJIN2120 

1  20X,PFALT  - ,F1C.0  III  ) RJIN/l’O 

wo ITF  INLET  SIZING  TERMS  RJINPLAO 

WP ITE! N6,  570  ) A SP FCT , ZM ACHT , NOUC T , NF RNG , TF PNG , T ST AP T , RJINZl^O 

1 XP  1 ,YR 1 , XR 2 , YR2, XP3  ,YP3  ,XRA ,YRA,XC , YC , XT  RJIN2160 

WP ITF  !N6, 571  ) YPANGl,  YR ANG 2 , YRA NG 3 RJ1N2170 

570  FORMAT!///  A0X6HASPECT,F  lO.A/  AO X6H ZM ACHT , F 1 0 . A/  RJIN21B0 

1 A0X6HMDUrT  ,110/  A0X6HNFPNG  ,110/  A0X6HTFRNG  ,F10.A/  RJINZloQ 

2 A0X6FTSTAR T, F lO.A///  AOX 3HXR 1 , F I 3 . A , 5 X3 HYP  1 , F 10. A/  PJIN22nn 

3 AOX3FXP2, F 13.A,  5X3HYR 2,F lO.A/  A0X3H XR 3 , Fl 3 . A , 5 X3HYR3 , F 1 0 . A/ P J I N27  1 0 

90X3FXRA,F13.A,  5X3HYRA,F  IC.A/  RJIN2720 

5 A0X2HXC,F1A.A,  5X2HYC  ,F11.A/  A0X2HXT  ,FIA.A///)  RJIN2230 

571  FORMAT!  4,oX6HYRANG1.F10. A/  A0X6HYR  ANG2  ,F  10.  A/  A0X6H  YP  ANG3  , F 1 0 . A ) RJIN22AO 

1111  CONTINUE  RJ  IN2250 

IF  ! IZA  .ME.  62  ) GO  TO  660  RJIN7260 

K TFi  = I RJ  IN2270 

CAL  I DA  TA2! K TFL  , JP  TC  ,KPTC , K 8 , A LPHV, A AM ACH , ADOD , AO A CC , PT 3 PT C , G ) PJ IN22R0 

660  CONTINUE  RJIN??oo 


HA  32 


IP  ( IPHIM  .lF.  C » go  to  62 
C WP  ITF  INI  FT  MAP  - C«IT1CAL 

A'nNF=  I 
NTWn=2 

Nthr=3 

NFOP 

CALL  PAGF 

^ CO  6990  mi=i,k8,A 

S V*R  ITE(M6, 6300  ) 

r 63C0  FORMAT!  //  A5X,  20HIMET  MAP  - CRITICAL  //  ) 

[ WPITF(M6,631CI  NONE .AlPHVINONE ) t NTHO, ALPHVI NT  WO) 

\ 6210  FORMAT!  9X, fiHSUPTARLF  , I 4 , 5X6HAL PHV=  tFT.2, 

I 1 35X, PMSURTARLF,  I4,5X6HALPHV*  tF7.2  / ) 

■ WP  ITF!N'6, 6315) 

63  15  FORMAT!  9X6HAAMACH,  nx4HADnr)tl2X5HAr)ACC,9X6HPT3PT0t 

1 1 5X6HAAMACH,  RXAHAOm,  12X5HA0ACC,9X6HPT3PTC  ) 

, IKPT  = MAXO  ! KPTC!NONE),  KPTC!NTWC)  ) 

WPITE!N6,  6320  I ! A AMACH  ! NQNF  ,I  ) , AOOD  ! NONF  # I ) » AOACC  ( NONF  t I ) , 
i 1 PT3PTC INON F,  1) , A A MAC H ! NTWO  , 1 ) , AODO I NTW 0, I ) , AOACCINTWO, I ) , 

I 2 PT3PTn!MTW0,  I ) )«  1=1,  IKPI  ) 

6320  FORMAT! 5XF1C.4,F15.5,F15.5,F15.5,  1 OXF 1 0.4 ,F 15 . 5 ,2 F 15 . 5 ) 

IF  ( K8  .LT.  NTHR  ) CALL  PAGE 
IF  ! KR  .LT.  NTHR  ) GO  TO  6999 
WPITF  !N6,6325) 

6325  FORMAT!  /////  ) 

WRITF1M6,  6310  N THP  , Al  PH  V ! NTHR  ) , NF  OR  , A LPH  V I NF  CR) 

' WRITE1N6,  6315) 

IKPT  = maxO  ! KPTC!ATHR),  KPTCINFOR)  ) 

WD  lTF!r;6,6320)  ! ! A AMACH ! N THR  ,l  ) , AOOD  ! NTHR  , I ) , AOA  CC  ! NT  HR  , I ) , 

I PT3PT0!^'THP  , U,  AAmacH!  NFOR  ,I  ) , AOOD!NFOR,n,  AO  A C C ! NFOR  , I ) , 


2 PT3PTr(NF0P, 

I ) ) 

, 1 

= 1, 

IKPT  ) 

NOA'F  = NOME  ♦ 

4 

NTWO  = NTwn  ♦ 

4 

NTHR  = MTHP  ♦ 

4 

NFOR  = NFOR 
CALL  RACF 

4 

6959 

FONT  IMIIF 

62 

IF  1 IZ4.NF  .6  3)  GO 

TO 

63 

63 

IF  1 IZ4.NE.  6 F ) GO 

TO 

64 

64 

IF  ! 174  .NF. 

65  ) 

Gn 

TO 

66 

66 

CONT I NUF 

RETURN 

FNO 


RJ  IN2300 
PJ  IN2310 
°J  f^2^20 
RJ IN2330 
PJ IN2340 
PJ IN23S0 
RJ IN2360 
RJ  1N2370 
PJ  TN?3flO 
PJ IN2390 
RJ  IN24nO 
R Jl N2410 
PJ 1N2420 
PJ  IN2430 
PJ  IN2440 
RJ  IN2450 
RJ lN?46n 
PJ IN2470 
RJIN24R0 
RJ 1N2490 
PJ  IN2500 
PJ  IN2510 
PJ 1N2520 
PJ IN2530 
RJ IN254n 
RJ  IN7550 
RJ  IN7560 
RJ  IN?57r) 
RJ IN25nO 
RJ  I MR  599 
RJ IN2600 
RJ IN261 0 
RJ IN2620 
RJ  IN2630 
RJ  IN2640 
PJ  f N7650 
PJ !N?66n 
PJ  I\'?670 
PJ  IN7480 
RJ  IN76Q0 
RJ  TN2700 
PJ  TN27n 
RJ IN2720 


I 

1 


C 

r 


SUHPOtiTINF  SFTUPl!  I X,IZ5,KASE  ,I  XX,  Z3  ) 

PGM  = NMJ6(  CGSM  ) L.O. GREGORY,  3-53300.  VFR.2,  06-09-7  1 .F  C RTR  AN  Iv.EPCC 
TO  RFAC  COMPATIBILITY  MATRICES 
COMMON  /NFILFS/  M5,N6,N7,MI,M2,N1 
INTF(-.FP*4  Z3 

COMMOF'/rONI  /INX!  16)  ,NCNCPT,NSSTYP  ,l  L ( 30  ) , M COM  A 
COMMOM/S  1 I/TITI  F6! 15) ,T  ITLE7!  15) ,TI TLE8( 14) 

INTFGPP*?  ICM 

C0MMON/CSFT3/KAS  , LBV  I X ,LAB VI X, MBVI X,MABVI X ,NBV,NAUXV, IMBVIX!  24) 


SFTOOn 10 
5FTI|00?n 
SFT1)0030 
SFTI)0n40 
SFTUOOSO 
SFTUOOBO 
SFTII0070 
SFTUnOflO 
SFTH0090 


j 
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1,  PAUXVl  If. , 10  ) ,PTC  ( A,3C) 

2,  6VIK(2A,  16),NT<3O)fLART,MA0T,NABT,NBT,BTriO,lO  ,30) 

3,  ICM( 16, 16, 1C) 

rOMHON/S  13/MIMX(  70  , IP  I 70 ) , 1 C ( 7 0 ) , I SI  ( 70 ) , I S2  ( 70 ) 
rOMMOM/TEMP/JX  U 70) , JX2(  70) , JX31 70) , JXA170)  ,RXl (70)  ,RX2( 70 ) , 

1 RX3(70),  PXA(7C),  JX(24) 

TATA  rriMp  AT/4HC.0MP/ 

CZAZA 

COMMON/rz  Az  A/NCPA,  IDAl,  I0A2,  IDA  3,JZARL,LZA,MZ  A,IC  A(  16  ) ,r,  A(  16) 

1,  T1TLA(  15),HFAnA{37),  (FMT 

2,  L*A1,LAA1,ma1,MAA1,KA1(  31,5),VA1(  31,12)  ,PAnZA(77  ) 

riMFNSIOKI  PZA(  7CC) 

EQUIVALENCE  ( NCPA  ,BZA  ( 1 ) ) 

COMMON / P AS T A R/KZARL,K ZAPS 

2CC5  FORM AT(  IHO, 22HERPnR  IN  SETUPl  AT  E I =F 8.2 , (6X,5G12 .5 ) ) 

read  basic  variables  table  and  record  NSSTYP*NVAR  t IL(l)  = N''.rF  FA. 

1 lY  = ? 

IDA  I = 2010000 
KASE  = 1DA2 

CALL  RCeDll(BZA,LZA ,MZA ,NCBA,KZARL,I DAI , 1 0A2 , I Y,  IXX ) 

NSSTYP  = A1 

IF  ( IXX.FO.C)  GO  TO  lOA 

FI  = 1.06 

1C3  WRITE  (N6,2C05)  Fl,IDAl,IDA2 
RETURN 

IC^  CO  ICE  1=1, NSSTYP 

1C5  TL(  I)  = K Al(  I,  5 ) 

C ♦♦ 

c 

IF  ( Z3  .GT.  C ) GO  TO  11 1 1 

c 

c**  CO  PFAC  COMPATIBILITY  MATRIX  INDEX 

n CONTINUE 

RFAr(N5,90C0  ) NUMT,  NUMC 
90CQ  FORMAT! 12X,  17,  lOX,  IS  ) 

RFAni N5, lOCC  ) TITLEf,  NICOMA 
1000  FORMAT ( ISAA,  I 10  ) 

RFAO  IN5,10CO)  TITLF7,NCNCPT 
1?  PFAC  (NS,  1002  ) ( JXK  I ) ,JX2(  I ) , JX3(  1 ) ,1  =1,8) 

ICC?  FORM  AT (PI  13,  IX,  12,  IX, 12, IX)) 

C. 

c PFIMTFRPPFT,  find  dimensions,  store  IN  MINX,  IR,  IC 

OC  1^  1=1, P 

J=  JX  l(  I) 

K=  JX2(  I ) 

I = JX3(  I ) 

IF(  (J.CT.NICnMA).nP  .(J.LE.O))  GO  TO  16 
M=  IL(K) 

M=  IL(L) 

IF( ( M.NF.O) .AND.(N.NF.O) ) GO  TO  13 
M = o 
Ai  = n 

IT  MIMX(J)=  K*10**6^L*10**6+M*100*N 

IS 1( J)=F 


SFTUOIOO 
SFT'JOl  10 
SFTU0120 
SFTUO  I 30 
sftijoi^o 
SFTUOI SO 
SFTU0160 
SFTU0170 
5FTU0180 
SFTUO  190 
SFTUO 200 
SFTU0210 
SFTU0220 
,SETU0230 
SETU0240 
SFTU02S0 
SFTUnZfO 
SETU0270 
SFTijn280 
S FTU0290 
srTuo3oo 
SFTU0310 
SFTUO  320 
SFTU0330 
SFTU0360 
SFTUO3S0 
SFTU03f 0 
SFT'J0370 
SFTU03PO 
SFTU0390 
SETijn^oo 
SFTU04  10 
SFTUOAZn 
SF-FiiO-i  JO 
SFTU0A40 
SFTUOSSO 
SFTU0460 
SFTU0A70 
SFTUORBO 
SFTUOSPO 
SFTiinsoo 
SF^UBSIO 
SrTi)0S20 
SFTUOS  30 
SFTUOSi!,0 
S FTUOSSO 
SFTUOSGO 

SFTII0S7U 

SFTUOSflO 

SFTUOSOO 

sftuosoo 

SFTU06  10 
SFTU0620 
SFTU06J0 
SFT'IOfSO 
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1. 


1S?<  J )=l 
IR( J )=M 

IFi  ( .AN'n.(  J.LT.NICPMA)  ) GH  TO  12 

C** 

US  PEar  (M'flClCI  m TLFP(  I ),I  =1,  7)  ,MX,  (T1  TLF8  ( 1 ) tl  = 8 ,14)  ,N 
ion  rnPMAT  (6A4,a  1,  1 5,  lOX  ,6A4,A1  ,1  5) 

IF(TITLFa(  D.FO  .rOMPAT)  GO  TP  18 
STFP=16.02 

WPITF  (M6,2C00)  STFP 

20CD  FOPMATf  IHO, 5X,22HrPPnP  IN  SETl  AT  STFP=,F10.2) 

18  IF(N  .EO.NCMr PT  ) PO  TO  20 
STFP=  18.01 

WPITF  (N6,20n0)  STFP 
20  1 l = 1R( MX) 

I 2= I r( MX  ) 
on  22  J = l,l  1 

22  RFAn  (M5,1012)  ( ! r,M(  J,K  , MX  ) , K = 1 , L2  ) 

1012  FORMAT!  lOX,  141 5) 

TF(  MX  .1  T .M  ir.OMA  ) GO  TO  16 
RFTimr' 

1111  CONTINUE 

N I COM  A = -I 
^rNCPT  = n 
RETURN 
FNH 


SFTU0650 
SFTUn660 
SFTIJ0670 
SFTU0680 
SFTuoaPo 
SFT'JOTOO 
SFTIJOTIO 
S'"^U0720 
SFTIJOTIO 
SFT'.'0  740 
SFTUOTSO 
SFT'10760 
SFTU0770 
SFT<)07R0 
SFTIJ0790 
sF’-uoaoo 
SFTiine  10 
SFT'Jos20 
SFT1J0R30 
SFTU0P40 
SFTUORSn 
SFTU0860 
SFTUO870 
SFTUnqpO 
SFTUOPOO 
SFTiiOQOO 


r, 

r 

r 

r. 

r. 

r. 

r, 

p 

r 

r 

r 

C 

r, 

r 

c 

c 

r 

c 

r 

c 

c 

r 

r 

r 

r 


SUPROUTINF  SFTUP3(IX,I75,KASS,IPR,NLI  NF , NPAGF , PCCOF,  I XX ) 
PGM=^Ufa(  CrsM ) L.n. GREGORY,  3-53300.  VER.2,  05-25-71 .FORTRAN  IV.FRCO 
SUPROUTINF  PURPOSE.  RETRIEVE  TYPE  2 TABLFS  FROM  BASIC  TABLE  FILF, 
(OISK  11)  ANO  STORE  IN  CORE  FOR  USE. 

FGM=NU6(  FCSM  ) R .K  .MCnONOUGH  35240C  2/29/72  F-IV/EBCO 

IX  = 24  = I,  INITIAL  SETUP.  PRINT  IF  IPR=IPR(5)=  1. 

= 2,  PR  I NT  ONLY,  SF  F I PR 

IPR  = IPR(5)  = 1,  PRINT  PORDFRFD  TABLE  ONLY 

IPP  = ipp(  E)  = 2,  PRINT  BORDERFD  TABLE  ONLY  ♦ AUX 

IPR  = IPR! 5)  = 3,  PRINT  BORDERED  TABLE  ONLY  ♦ AUX  ♦ IMBVIX 

T/5  = UNUSED 

KASS  = KASF  CASF  NUMBER,  USED  TC  RETRIEVE  SPECIFIC  TABLFS 

ixx  = 0,  TABLES  SET  UP  WITH  NO  ERROR 

= .GT.C  TABLFS  NOT  SF  T UP,  OR  A TABLE  NOT  FOUND 
IN  coMyPN/rsFTa/ 

KAsr  = KAss 

PVIX!  , ) = BASIC  VARIABIES  INDEX. 

LARVlX.MAPVlX  APF  ABSOLUTF  DIMENSIONS  OF  BVIX.  LBVIX,MPVIX  SPFCIFIC. 
NPV  = IflVIX  - NAUXV  = NO.  BASIC  VARIABLES. 

NAUXV=  I BVIX  - NBV  = NO.  AUXILIARY  VARIABLES 
nevixiii  = I fngth  of  row  m*  in  bvix!I,j). 

FMJXV!  , 1=  auxiliary  TABLE,  TRANSPOSE  OF  LAST  ROWS  OF  RV I X ! , 1 
WITH  COL  LENGTHS  INSERTED  IN  FIRST  ROW. 

PT!  , ,K)  = ROPDFRFD  TABLE  'K*,  l.E.  LAYER  K . 

NTIJ)  = K ^ LAVER  IN  WHICH  'JTH*  TABLE  IS  FOUND  !J=1,NPT). 

NBT  = NO,  OF  BORDERFD  TABLES  STORED  IN  RT(  , , I. 


SFTU0870 
SFTUOPaO 
SFTUOBDO 
SBT'IO^DO 
SPTUD91 ^ 

t;  PT'innir, 
SPTU0T30 
SFTU)V40 
SPTllOPSO 
SFTc)0P80 
SFTU0P70 
SPTUOPBD 
SrTUDPPD 
SFT  J IDOD 
S'^Tim  10 
SFTU  n 20 
SI^TUIOTO 
SFTU 1040 
SrTU 1050 
SFTij  1060 
S'-Tii  1070 
SFTU lOBO 
SFTUIQPO 
SFTUI 100 

srTuino 

SFTU 1120 
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r LAei,  MftRT,  M4PT  = ARSOLUTF  OIMENSICNS  OF  PT. 
rrMMPN  /MFILE';/  N5,N6fN7,Nll,N12tNl 
Cnf'Mfir  /PasTAB/KZAPL,  K7ARS 

C?  flZA 

COM^'P^'/^  ?A7A/Nr  BA  , IDA  1,  lOA?,  IDABf  JZARL,LZA,MZA,  ICA  (16  > ,CA  ( 16) 

It  TITLAI 15)f HFADAI 37),IFMT 

2,  LAI,L AA1 ,M4l,MAAl,KAl(  3lt5)tVAl(  31,12)  ,PArZA(77  ) 

DI^'FNSinN  eZA(  700) 

FQUIVALFNCF  <NCPA,PZA( 1) ) 

rOMMnM/fSFT3/KASF,LBVlX,LABVI X, PRVI X.MABVI X , NPV , N AU XV , I wPV 1X( 2A) 

1,  RAUXVI  16,  10),RTC  («,30) 

2,  PVIX(2^,16),NT(30),l AB T , MART , A AB T , NBT , 0T ( 10 , 10 , 30 ) 

3,  XXXV(1280) 

riMFNS  ION  MD(  30)  tPCODFI  20  , IDCK(  1,1  ) 

DATA  Nin/30*0/ 

20C5  FflRMAK  IHO,  22HFRRGR  IN  SeTUP3  A T F1*F8.2  , l6X,5r.l2.5)  ) 

2006  F0RMftT(6X,27HIN  SFTUP3,  TABLE  NOT  FOUND*  (6X,5G12.5)) 

2CC7  FnRMAT(/6X,  THImrvIX*  / ( CX , 1 OG 1 2 . 5)  ) 


20C5 

2006 

2CC7 

C.** 

r** 

1 


♦ ♦ INITIAL  IZF 

1 IXX  = C 

OP  TO  ( 2, AO)  , IX 

2 KASF  = KA»;S 

KASF  = 1042 

I APV  IX  = 26 
MAPVIX  = 16 
LART  = 1C 
VAPT  = 10 
NART  = 30 
NPT  = 0 

MRV  = 0 

cn  R r=l,N4RT 
0 NT  ( I ) = 0 

♦♦  READ  BASIC  variables  INDEX  AND  STORE 
IPI  = 20100CO 
ITRAWS  = 1 
1C  lY  = 3 

ixY  = n 

CALI  PCPnil(BZA,LZA,M7A,NCBA,KZARL,IDl,  KASF, lY, IXY) 
IF  ( IXY.FO.C)  GP  TP  12 
IF  ( NLINE  .1.  T.  6C  ) GO  TO  1000 
CALL  PAGE 
NPAPF  = NPAGE  ♦ 1 
NL  INP  = N 
ICCP  CrNTINUF 

IF  ( IPP  .LF.  C ) GO  TO  1236 
WP  ITC  IN6,  2CC6)  IDltKASF 
NL  INF  = Nl  INF  *■  1 
12’6  CONTINUF 

IF  ( ITRANS.FO. 1 ) RETURN 
IXX  = IXX  ♦ 1 
rn  TO  26 

12  GO  TO  ( 16,26)  , ITRANS 

16  LPVIX  = LAI 

NRVIX  = MAI 
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, ITRANS 


SFTU1130 
SFTUl 160 
SFTUl ISO 
SFTUl 160 
SFTUl  I 70 
SrTil  I leO 

SFTU  1 100 
SFTU1200 
SFTU1210 
SFTU1220 
SFTU1230 
SFTUl 260 
SETU12S0 
SFTU1260 
SFTU1270 
SFTU12P0 
SFTU1290 
SFTU  1 300 
SFTr)l310 
SPTU 1320 
,S‘'TUn30 
SFTU1360 
SFTU13S0 
SFTUl 360 
SETIJI  370 
SFTU13R0 
SFTU 1300 
SFTU1600 
SrTU16  10 
SFTU1620 
SFTUl 630 
SFTU I 660 
SPTU I 6S0 
SFTU I 660 
SFTU  16T0 
S':TU16R0 
SFTU1600 
SPTU1500 
SFTUISIO 
SFTU1S20 
SFTU15J0 
';rTMis60 
SFTUl SSO 
SFTUl 560 
SFTUl 5 ZO 
S'^TU  15P0 
SPTU15Q0 
SFTU  1600 
SFTU1610 
S''TU1620 
SFTU1630 
SFTU 1660 
SFTU 1650 
SPTU 1660 
SrTUl670 


rn  16  l=lfLPVIX 

SFTU1680 

IMPV  ixn  ) = KA  11  I ,5) 

SFTU 1690 

rn  16  J=1,MPV!X 

SFTi.)  1700 

16 

pv IX ( 1 , j)  = vAi n f J 1 

SFTII1710 

C** 

TPAMSFFP  AUXILIARY  VARIABLES 

SFTU1720 

rn  1°  I=1,LPVIX 

SPTII1700 

IL  = I 

SFTU17A0 

IF  (KAK  1,5  I.LT.O)  GO  TO  1 9 

SFTU1750 

16 

CUNT INtE 

SETiil760 

IL  = LPVIX 

SFTU1770 

I'* 

CTNT INUE 

SFTU1780 

I = U - 1 

SFTU  1790 

NPV  = MAXOIO, I ) 

SFTIJ1800 

NAUXV  = LPVIX  - NPV 

SFTiJUlO 

IF  ( NAUXV  .IE.  C 1 GO  TO  5676 

S''TU1820 

GO  21  J=l, NAUXV 

SF’-iJl  830 

CAUXVIltJ)  = -IMPVIXIJ  ♦ NPV)  ♦ 1 

SFTU IflAO 

K = RALIXVI  1,  J I ♦ .001 

SPTUIPSO 

rn  21  1=2, K 

SFTUlPftO 

21 

PAUXV(I,J>  = VA  1(  J + NPV,  1-n 

SFTU1870 

C** 

Fill  3-riM  BOROEPEn  tables  BTI  , , 1 

SFTUl 880 

6678 

CONT INUF 

SPTUIBOO 

ITRANS  = 2 

SFTU1900 

K =0 

SFTUn  10 

2A 

K = K + 1 

SFTUi920 

IE  (K.CT.NABT)  GO  TO  32 

SFTiJl  930 

ini  = N miK  ) 

SPTUIOAO 

IF  ( ICI.LE.OI  GO  TO  29 

SETUIOFO 

GO  TO  10 

S''TU  1960 

26 

NPT  = K 

SPTU  1970 

NT  ( K 1 = K 

SFTU  1980 

L = VA  1(  1,  n ♦ . 01 

SFTUIOPO 

V = MODIL,  100) 

SFTU2000 

( =1/100 

SFTU201 0 

rn  28  1=1, L 

SFTU2021 

rn  28  j=i,H 

SFTI)?030 

2f^ 

PT<  I, J ,K  ) = VA 1{ I, J ) 

SFTU2OA0 

pn  29  1=1,  A 

S''TU2080 

29 

PTC(  I,K  ) = CA( A*I 1 

SFTU2060 

rn  rn  2a 

SFTU207  0 

32 

IF  1 IPP.FO.O  ) RETURN 

SFTI)?080 

C** 

SFTII2090 

r ♦♦ 

WRITE  eCPnEPEC  tables 

SFTU2100 

K =0 

SFT02  1 10 

^2 

It 

SFTU2 120 

IF  IK  .GT.NABT)  GO  TO  AA 

SFTU2 1 30 

K T = N T 1 K » 

SFTU21A0 

IF  (KT.LF.OI  GO  TO  A2 

SFTU215n 

L = BTIl, 1,KT)  4 .01 

SFTU2160 

P = MTOI L, 100) 

SrTi)2170 

L =1/100 

SFTU2  180 

CAM  WMAT2( 2, IDUP,PT,LABT,MABT, NABT ,L ,M,KT,NL1NE, AEAGF.PCnOE, 

SFTU2190 

1 60HRnPCFR  EP  table  FPOH  SETUP3  - PGH»CGSM 

) SFTU220n 

fn  TO  A2 

SFTU2210 

C** 

WPITF  AUXII  lARY  VARIABLES 

SFTU2220 

HA  37 


IF  ( IPR.L  F.  I ) RFTUPM 
V4R  = C.O 

CALI  WP  ITPX(R4UXV,MAPVIX,  1 0,  M AB VI  X ,N AU X V tV AR , I X Y , M I NF , A P AG F , 

1 PCOPF, 

? 60HAUX1LIARY  VARIAHLFS  ANO  RANGES  FROM  SFTUP3  - PGP=CGSP  ) 

IF  ( IPR.L  F.2)  RFTUPN 
WPITF  (N6,2rC7)  IMRVIX 
PFTIIRN 
FNP 


SFT((2230 
SrTU2240 
SFTU2250 
SFTII22  f)0 
SFT(j2270 
SPTiJ2?fln 
SrT'J22O0 
SFT'i?300 
SPTlJ23in 


Sl’PROUT  iNf 
MIK  .PM-rGS” 


SnRTCM 

P .K .MCnONPUGH 


FiV/EBCn  10/18/73 


SORTOOIO 
';nRT0020 
"^PRTOO  30 

CommcN/CPM/ INX  ( If  ) ,NCNCPT,NSSTYP,IL(30I  tNICOMA  SPPTOOAO 

rOM*'nN/CSFT3/KASF.LBVIX,LABVI  Xt  MB  Vl  X,  MABVI  X ,NB  V ,N  AU  XV  , IMBviXl  2^1  SPRTOOSO 

1,  BAUXVI  16,  10  ) ,PTC  ( 4,30  5nRT0060 

2,  R VI  X(  24,  16)  ,NT  (301  ,LABT,MAB  T,NABT  ,NRT  ,RT  (10 , 10 , 30  ) SPOTOpTO 

3,  XXXX(  12R0  ) S'lRT  ''PRO 

riMFNSIPN  IP  l( 2C0C  ) , in2(  2000)  SPRTOPon 

rouiVAtFNCF  (BTC  I ),  inu  I ) ) . ( roi  (2001)  ,102  (I  ) ) SPRTOIOO 

rOMWIN/F IL ING/  KnNPL,KSAVPL,KONBS  SPPTPllO 

rp*’'MnM/iNni)l2/ jni?,NPl2,NBl2  SP' pro  120 

integer  7 ip, ZC0DF,Z1  ,22,23,24, 25, Z6,Z7,Z8,Z9  SPRTOUO 

rpMMnN/INf^UT/ML  INF,MPAGE  ,PCOnE(  20 ) , MI  SC  ( 7 I , XM I SC  ( 7 ) , 7 I P , 2 p PDF  ( 19  ) S PR  TO  I 40 

1 , ,)P4SH(  20)  , TRASF(  20)  , fP  (8)  , ir  (8)  .HUM  ( 8 ) , I DUM  ( 8 ) ,NFLAG,NF|  AG2  SnPTOlSO 

EOl)  IVALFMCF  ( 7CPnE(  I I , 21)  , ( ZCODF  I 2 ) , Z2  ) , ( ZC  POE  ( 3 ) , 23  ) S-^RTP  160 

1 , ( 2CnnF(4  ) , 24) , (ZC0DF(5) ,25) , (2CnOF(6)  ,26)  SOPtoIZO 

2 , ( 7CP0E  ( 71  ,27)  , (ZCPDFI  8)  , 2R  ) , ( ZCnnF  (9  ) ,20)  cinoTPifip 

(-qf<Mn,;/LFVFL  I /N  S YST  , E FF  I 2000  ) ,C  PS  T ( 2000)  ,NS  YS  ( 2 000  ) , NLE  VT  , SPRTOiaO 

1 N STPP (99) ,EFFL (2000) ,CCSTL(2000)  ,NSYSL(2000 ) SrWT0?00 

rr^MriN  /NFILES/  N5,N6,N7,N11,N12,N1  SPRTOPIO 

CP'^MP^  /SCRFFN/  NLFVFL,L  TMl  ,LTM2,LEVLnP,NCCNnP,  NU724(4)  FnornppO 

ni^MHEj/SY  l/MCnOE(  6)  ,NCnnES,NCONFG  so  R TO  2 30 

FC'IIVAI  F)’CE  |KASF,KASI,  ( NC  ONFG  , JCONFG  ) SnoTn740 


^IMFMSIP^'  TAPF(  100) 


FOPIV  AL  FMCE 

(TAPE! 

1 ) , 

NCONXX 

) , 

( tape ( 

2)  , 

wttot 

) , 

1 

I TAPE! 

3), 

UWI  NG 

) , 

(TAPFI 

4)  , 

RCR 

1 , 

7 

< TAPF( 

5), 

ACR 

) , 

(TAPE ( 

6)  , 

VCR 

) , 

4 

( TAPF( 

7)  , 

WORTH 

) , 

(TAPFI 

8)  , 

WTAl  L 

) , 

4 

(TAPE! 

9)  , 

RLL 

I , 

I TAPF  ( 

10)  , 

ALL 

) , 

5 

( TAPE ( 

11)  , 

VLL 

) , 

( TAPE  ( 

12)  , 

CFP 

) , 

6 

( TAP  F ( 

13), 

PLMAS5 

) , 

1 Tape  ( 

14)  , 

PLLT 

) , 

7 

1 TAPE! 

15)  , 

RANGE 

) , 

( TAPF ( 

16)  , 

FORCE 

) , 

n 

( TAPEI 

17)  , 

SUSW 

) , 

(TAPE  ( 

18)  , 

SUSL 

) , 

9 

( T4PE( 

19), 

REL  IB 

), 

(TAPF  ( 

20)  , 

WPRCPS 

) 

EOUIVAL  Er  CE 

(TAPE! 

21), 

fionw 

) , 

( tape  ( 

22)  , 

BOOL 

) , 

P 

( TAPF( 

23  ) , 

WPROPB 

I , 

{ TAPFI 

24)  , 

XLTPT 

), 

C 

( TAP  FI 

25), 

WTHl 

) , 

( TAPFI 

26)  , 

WTH2 

) , 

r 

(TAPE! 

27), 

WM 

) , 

1 TAPF ( 

28)  , 

XLM 

) , 

F 

( TAPF( 

29), 

WP 

) . 

(TAPF  ( 

30)  , 

PEXl  T 

) , 

c 

( TAPFI 

31  ), 

WINERT 

) , 

(TAPE ( 

32)  , 

PMF 

) , 

G 

( TAPF( 

33), 

WN 

> , 

( TAPF  ( 

34)  , 

WPOVWC 

) , 

SORTO  160 
SPPTOl 70 
c;ooTPl  fiO 

SPOT  01 aO 
SrWT0?00 
SnoTOPlO 
snRTn??o 
SPOT0230 
SOOTO^aO 
S'~IOTOJSP 

SPRTOZfP 
snRTn270 
RPOTO  2H0 
<;pRTn7Q0 
spoTo  ^no 
SOOTPP 10 
SrRT0320 
SPRTO  330 
SnOTP  340 
SPRTO  350 
SPRT0360 
SPRT037n 
SnRTOlPO 
SP’RTO  390 
SPPT0400 
SP'RTn4  10 
SORT0470 
SnpT0430 


HA  38 


F 

1 TAPFl 

35)  , 

XLPS 

I 

1 TAPFl 

37)  , 

XLTF 

J 

1 TAPFl 

30), 

XLTOX 

K 

1 TAPFl 

A1  ) , 

WFTANK 

L 

1 TAPFl 

^3)  , 

XL  TP 

M 

ITAPFl 

45)  , 

ACA3 

fpuival  fncf 

1 TAPFl 

47)  , 

WTSP 

1 

1 TAPEl 

49)  , 

WC 

2 

1 TAPFl 

51)  , 

AFiA3 

j 

1 TAPEl 

53), 

WTNOZ 

A 

1 TAPEl 

55), 

XLE 

K 

1 TAPEl 

57), 

CLA 

fCU  IVAL  ENCE 

1 TAPF181), 

AWING) 

1 

1 TAPFl P5) , 

WWH  ) , 

2 

1 TAPFl fl7) , 

OIAM  ) 

KPL  = KSAVPL 

^ra^'  = yiNO  ( KPLf  NCONFG  ) 

IF  (NCPM.GT.OI  GO  TO  IC 
WRITF  tN6,300a)  KA SF 
30r<)  F^P^'AT(6X,  IZFCA  SF  NUMRF  R = , I I 2 1 2 6H 

PFTUHN 
10  CrNTINUF 

WTM1=fLPAT(LTMI) 


1 TAPEl 

36) 

WPROPI  ), 

F'^pr044n 

( TAPEl 

38) 

WF  ) , 

SnRT0450 

(TAPE  1 

40) 

wax  ) , 

SrRT0460 

(TAPFl 

42) 

WCXTNK  ) , 

F"?T0470 

(TAPE  1 

44) 

WTP  ) , 

SP'RT04R0 

(TAPE ( 

46) 

HC  ) 

FORTOAOO 

(TAPEl 

48) 

A5A3  ), 

S^RTOSOO 

( TAPEl 

50) 

WFWR  ), 

SnRT0510 

ITAPFl 

52) 

WTINLT  ), 

SPRTOSPO 

(TAPEl 

54) 

AC  ) , 

SORTO  5?0 

(TAPF  1 

56) 

COC  ) , 

<;nRT054n 

SORTOSSO 

TAPE(82)  , 

ATAIL  1, 

SnRT0560 

TAPElflfc) 

, WGC 

I , 

FPRT0570 

Sr’BT05P0 

<;nPTOFno 

SPRTOhOn 

SORTOftlO 

snRTr)(S20 

SnPTO^TO 

NC  CPNFIGURAT  IPNS  FOUNP  » <;roT06A0 

SnRT0(»50 

SPPTOfSFO 

';'^R’'0670 


WTM?=cLrAT(LTM2) 

IP  i NLFVFl  .LT.  I I NLEVFL  = I 
Nl  TFL  = I 
TALL  PAGF 

WP  ITF  ( M6,  551  7 ) 

55  17  FPPM/Ml///  RX,3AFr.nNCFPT  WORTH  COST  LENGTH  RANGF 
I 3X3AHRr.R  PR  I DIAM  WW/H  WEIGHT  VCR  » 

FP  ino  imN  = 1,  NCON 
Jni2  = irPM 
PFAP  (1:12MP12)  tape 
’ NSYS(ICPN)  = ICON 
C'’  5T(  i:nN  )=TAP?  1100) 
xrnST=TAPF( 100) 

FFF(ICrN)  = 1 WTH1*WTM1  ♦ WTH2*WTM2  ) / I WTHl  * WTM2 
WnRTF  = FFFl  ICON  ) 

NLINF  = ML  INF  ♦ NIOFL 

IF  I Nl  IMF  .LT.  50  I GP  TP  3017 

CA|  I PACF 

M IMF  = NL  INF  4.  NLPEL 
WRITF  ( F6f  5517  ) 

10  17  CTMTIMIJF 

NCONTG  = ICON 

WP IT  FINE, 5518  ) MCPNFG.WPRTH, XCOS T, XL  TOT, RANGE, RCRt 
1 RM  ,niAM,WWh,WTTPT,VCR 

EEIR  FORM  ATI 5y, I 5, F8.2,FR.0,F7. 1 , 3F6. 1 ,F 5. 1 ,F6. 0,F8.0,F6.2  ) 

MO  rr)MT  INIJF 

NSY5T  = MfPN 
MLFVT  = NLFVFL 
CALL  LFVFM 

PUTPUT  FPR  TOP  LEVEL  CONFIGURATIONS 


SPRTOhPO 
for  T06f’n 
SroTOTOO 
SPPTOTIO 
FPR  T0720 
SrRTOTIO 
FnpT07A0 
SPRTOTSO 
SPPTOTf.O 
FnPTO  770 
SPRT0780 
FI J TP7<'1 
snpToqnp 

SPRTon  in 

FORTOn  20 
FnpTn«3n 
FPRTORAO 
FORTORFO 
FOBT0550 
FnRTnP70 
FnRTOPPO 
SnPTnqf'O 

<^noTr>c,nO 
FORTnoi 0 
«;nPTon?o 
F-^RTOOin 
SPRTOR^O 
FnPTOOSO 
s^RTnoen 
FnRT0070 
SORTOOPO 


fF(  (LFVinP.l F.O)  .np.  (NCONOP.LE.O)  J GO  TO  2200 
r Trp  lFVLHP  IFVFLS  00  TCP  NCONOP  CONFIGURATIONS 

irnuMT  = i 
K1  = 1 

LO  = I FVLOP 

I"  ( LFVIOP  .r,T-  NLFVT  ) LO  * NLEVT 
nr  2100  I = I,  LO 
K2  = NSTPP( I ) 

CO  20R0  K = Kl,  K2 
CALL  PAGF 
K?  = NSVSL (K ) 
jri2  = KZ 

WPITF  ( N6,  SSI*}  ) I 

5510  FPRMAT  ( ///  I IX,8H********  / 2X5HLEVEL,  AXlH*t  I5t  IXIH*  ) 
IXXY  = I 

CALI  FACKCM  ( IXXY,  KCCNFG,  KZ  ) 

r 

IF  I irOUNT  .GF  . NCONOP  ) GO  TO  22  00 
IfOljNT  = ICOUNT  ♦ I 
20F0  CONTINUF 

K 1 = K?  ♦ I 
2100  CONTINUF 
22CO  CPNTINUF 

r OCTPLT  SUMMARY  OATA  PY  LEVFL 

I COUNT  = 1 
K 1 = I 
LC  = Nl  Evr 
or  AlOO  I = 1,  10 
K2  = NSTOPI  1 ) 

CALI  PACE 
WP  ITF(N6, A9  1 1 ) I 

A911  FORMAT!///  1 0 X 1 7p SUMMAP Y FOR  LEVEL  , 15  » 

WPITEINti 55171 
rr  AOfiO  X = K 1,  K2 
KZ  = NSYSLIK  ) 
jri2  = KZ 

PFAriMi2'jni2  I TAPP 

WORTH  ^ ( WTHI*WTMI  ♦ WTHZ^WTMZ  ) / ( WTMl  ♦ WTM2  ) 

xrnsT=TAPFi  100) 

^r^^Jxx  = TAPF|  1 ) 

WP ITF (Nt, 5518 )NCCM XX, WORTH, XCnST,XLTOT ,RANGF ,RCR ,R L I , 01 AM,WWH, 
I WTTnT,VCR 
AOEO  rONTlNUF 
K 1=K  2«1 
Aim  CONTINUE 
return 
FNP 


SnRT0990 
SORT  1000 
RORTIOIO 
soRTinzo 

SOPT1030 
SORTIOAO 
SORT  1050 
SORT  1060 
SORTIOZO 
SORTIOBO 
SORTl 090 
SORTl 100 
SORTlllO 
SORTl  120 
SORT  1 121 
SORT!  l?n 
SORTl lAO 
SORTl I 50 
SDR  T1 160 
SORTl 170 
Sf^RT  I IBO 
SORT  1190 
SORT  1200 
SORT1201 
SORT1202 
SOOT  1 201 
SORT 120A 
SORT  1205 
SnRT1205 
SORT1207 

soRTizna 

SORT  1209 
SORT  1210 

SORTlPli 

SORT  1212 
SORT  1211 
SPRT121A 
SORT  1215 
S OR’-  121  6 
SORT  1217 
SORT  171R 
SORT121R 
SORT1220 
SORT1221 
SORT  1222 
SORT  I Z^O 
SORT 12A0 


SLPROUTINF  CMGSM  ( NIT,  KRFT  ) fMOsnoiO 

C MUK.CM-r.GSM  P .K.MCODNnUGH  FIV/FRCO  10/18/73  OMnsnOZO 

0 KINO  s 10  SOLin  pocket  rMr.<;r)rno 

r kino  = 20  LIOUIO  ROfKFT  rMrsnOAO 

C K INO  a A1  INTFGRAL  ROCKET  RAMJET  OMCSOOKO 


HA  AO 


o r>  r> 


f K INr  = A3  FXTFRNAL  RPOSTFn  RAMJET 

Ki'in  = aa  uNRun  stfi-)  ramjft 
I'lizF  = I lfngth  is  input 

ISI7F  = ? WFIGHT  IS  INPUT 
Arnp  IS  m(;mpfR  OF  TRAJECTORY  POINTS 
r KSUS  TYPF  SUSTAINFR 

C KFM  type  of  FIIFL  MANAGEMENT  SYSTEM 

r itypf  I RFLLv  inlet 

C ITYpr  2 nUAL  AFT  INLET 

r NPIJCT  IS  INLET  MATERIAL  CODE 

r NFRNG  IS  FAIRING  MATERIAL  COOE 

r PriNT(X,l>  ALTITUDE 

r PniNT(x,2)  mach  NUMRFR 

r Pr'IMT(X,3)  ACCN  NORMAL  ACCEL 

C priNTiXtA)  ACCT  TANGTl  ACCEL 

r PF|NT(X,S)  GAMMA  flight  PATH  ANGLE 

C PriMT(X,6)  FRACTM  FRACTION  FUEL  CONSUMED 

fPMfcnA  FFMERAl 

rOFMnN/'>ASTAR/K  ?ARL,KZARS 

roMMftM  /roNSTA/  PF.TWOPIfGM  t Pit  R AD  i F PNM  , RE  NM  , W E 
rr^MON  /F'^OPT/  K R YDR  G , KB  YP  A K , KH  Y P SM  , KR  YVP 

I  ,KPY«OI,  INWORL  , KFIL12 
rFMMON  /FILING/  KONPL.  KSAVPL.  KEND 
common  /GUIDCO/  GUVAP(60) 

FCUIVALFNCF  ( GUVAR(2),  NSCRC  ) 
riMFNSION  IPRPIA) 

COMMON/ImOL'I/IPRI  IG),JPAR(  16»,PAR(  16) 

FOUIVAI  EMCF  I IPR  t IPPP  ) 

FCUIVALFMCF  I IPR(IO),  lAIR  ),  ( I PR  I I 1 ) , IPACK  ), 

1 ( IPP(l?)t  IPSM  ),  ( IPR(13),  IVP  ) 

roMMor  /IMPIJI  l/JOl  l.NPl  1 ,NB11  , INDXl  1 I 100,7) 
common  / INnUl2  / JD12,ND12,  NB12 
INTFCFR  7 IP , /CODE ,Z  1,Z  2, Z 3, Z A, Z 5, Z6,Z7 , ZB ,/R 

roMMO^'  /irnilT/NL  INF  ,NPAGF  ,PC0DE(  20)  » MI  SC.  ( 7 ) , XMI  SC  ( 7 ) , 71  P,7CrDF( 

1,  JR  ASH( 20), TRASH! 20) , IR I 8) , ICI 8)  ,DUM (8) ,1 0UMI8) , NF L AO , NFL  AC  2 
FOMI VAL  FMCF  I 7 CODE!  1 ) ,Zl ) , (ZCODE (2 ) ,Z2 ), ( ZC00F(3 ) ,73) 

1 , ( ZCOOFI A)  ,ZA) , ( ZCODE ( 5) , Z5) , ( ZCODE (6) ,Z6) 

2 , ( ZCODFC 7) ,Z7) , ( ZCnDF(8) ,Z8) , (ZronF(9 ) ,79 ) 

COMMf'fj  /INOUU/  LABEL 

COMMON  /NFILES/  N5,N6,N7,M  I ,N12,NI 

roMMON  /SCR FFN/N level, NWF  1 , NWF 2 , LOE S , NOE S , L PE RE , NP E R F , L S AV , NS AV 
FOUIVAI  F^'Cr  ( NIEVEL,  LEVELS  ),  ( LDES,  NLOUT  ) 

1 , ( NOES,  NCOUT  ) 

rfMPNSIOM  PVCEP ( 7) ,DWCFP ( 71 , PVRMAX(7),  0WRMAX(7), 

1 PVN0I7),  0WNCI7),  PVPELI7),  DWREL(7),  DWWTWM(7),  PVWTWHI7), 

2 PVRCR(7),  0WPr,P(7),  PVRLL(7),  D),RLL(7),  PVHCP.(7),  DWHCR(7), 

3 PVHM  ( 7),DWHl  L( 7),  PVVCR ( 7)  ,nWVCR ( 7 ) , PVVLL(7 ) ,CWVLL (7 ) 
common  /SFRA'NL/  NPTS!20),PARVNL(7,20),DWNL(7,20)  ,DUMMY(50) 

I ,NSCC'  ST,  lOUAMA!  A ) 

FOltIV^LF^rF  ( iniAMAin,  KBYCST  ) 

FCUIVALFNCF  < IDUAMAO),  ICOST  ) 
rCUI  VAL  FNCF 

1 INPTSI  l),NrFP  ), 

2 (NPTSI  2),NRmax  ), 

3 (NPTS!  3),NNn  ), 


r.MGS0060 
C.MCSOOTO 
CMGSDOflO 
OMGS0090 
C'^osoim 
CMGSOllO 
OMGS0120 
CMGSOl-’O 
CMGsn I AO 
CMGSOl 50 
CMCSO 160 
OMC,S0170 
CMGSOlflO 
CMGS0190 
0,MGS0200 
OMGSOZIO 
rMGS0220 
C''OS0230 
CMGS02A0 
OMGSn?50 
rMGS0260 
rMGS0270 
CMO.so^RO 
CM GS 0790 
CMOS0300 
CMCS03  n 

FMGS0320 
r.Mr,so3  30 
rMGS03A0 
FMCSOTSO 
r“GS0360 
CMGSOTTO 
CMC, S03PT 
19  iCMfsn'^po 
rvGSOAOO 
FMGSOAn 
CMGSOA?) 
CMosnAiO 
Cmc.SOAAO 
CMGsn/,sn 
CMGS0A60 

r Mr,<;r»A70 

CMGSO ABO 
CMGSO',<’  ■< 
'■MCS0500 

c'^Gsosn 
FMGsnszo 
r MGS OR 30 
CMGsns<,o 
CMCSORRO 
CM  CSt)560 
r,MGS0570 
'■"GSOSBO 
F“r,so590 
GMCSOAOO 


^ (r'HTS(  4),NRFL  )t 

5 (MPTS(  5),NWTWH  ), 

6 <NPTS<  6»,^RC'?  ). 

7 ( NPTS( 7)  , NRl L ) t 

8 (MPT'iC  8»,MHrR  », 

«;  (NPTS(  <? » ,NHLL  ) , 

A (NPTS(  10) ,MVCP  ) , 

P (NPTS(  11  ),NVLL) 

FOUIVAI  FNCF 

t (PVCFPU),  PARVNl  ( 1,  1)  ), 

1  (PV»MAX(1),  PARVMLC  1,2)  ) , 

? ( PVNn(  I ),  PARVNL  11,3)), 

3 (PVR  FL ( 1 ) , PAR VNt  ( 1 ,A)  ) , 

A ( PVWTWHl  1 ) ,P ARvNL ( 1 , 5)  ) , 

5 (PVPCPd),  PARVNL  ( 1, 6)  ) , 

6 (PVPLl ( 1 ) , PARVNL ( 1,7) ) , 

7 (PVFfRC  1 ),  PAP VNL(  1 ,8) ) , 

8 ( PVHLL  ( 1) , PARVNL  I 1,9)  ) , 

9 (PVVCP(l),  PARVNL ( I,  10)  ) , 

A (PVVLt(l),  PARVNLd,!!)) 

FCI)  IV  AL  FMCF 

1 ( rwc  FP (1 ),  nwNL ( 1,  i ) ) , 

2 inwP'^AXI  1),  DWNL{1,2)), 

3 ( PKNOI  1 ),  nwNL  (1,3)), 

J( rWPPLI  1),  nwNL ( 1, A)  ), 

5 ( nwWTWFl  1 I , nWML (1,5)  ) , 

6 (OWPOPd),  rWNld,6»), 

7 (OWRLLd),  r)WNL(l,7)), 

8 ( PWHCR(  1) , nWML (1,8)  ), 

R (OWFLL ( I ),  nWNL (1,9)), 

A (rwvcP(l),  nwNL(l,lO)), 

, p (owvi 1(1),  nwNL (1,11)) 

roMMCN  /sFfin/  sFruR(20) 

? /SNPFRP/  KSYSTM,  klnch,  kfuel 

rOMMPN  /SYl  / NCrOEI#'),  NCOOES,  nconfg 
rnMPnf^  /9wnR  TH/K8ASF  ,wnR  TH1,W0RTH2  ,NPAR  ,KPAP  (20)  ,PARV(20  ) 

1,  PFF  V l(  20  ) ,r'FRV2(  20) 

■<  CPN'^rM  /TUB/  BCLR,r.LRA,CLRF  ,OFLVX,FCLR,r,CLP,KMAIR, 

I pAK5'JP,RATCLP  , RFHTLR,  THEAO  , THFBST,  TIJBTHK, 

’ 2 KMTAIL,  WlNCd,  WTMAX,  XLTMAX,  OTIJPPX,  XLTPMX,  ZPVLHN 

r.PMMPN  //WORTH/  /CFPdO),  7F0RCF,  ZGWT  (10),  ZPEL,  ZWrXHdO) 
rOlJIVAlFNCF  ( ZWOTMd),  NZLLRI  ) 

rr'^poN  payloac 

rrMMf'M  /srVFN/  I TNX,APHI  ,CLP  , I R AO  AR  , I P A Y , 0 ANT  , XL  V C IP  , WF  0,  W P 1 5 C , 

1 PH(^WH,PHPEQ,EOCl  R,WHCLR  ,XLM1  SC  ,XLEC,XLWH, 

2 I APTX,f,wX,  (ARWX,  PIVOT,  INTYPE  , X LP  A Y I , W PA  Y I ,WWH,XLFHT, 

3 XLFW,XLFVT,XLFT,FXTRSV(25) 
ri'-FASION  XX1(2C) 

rOMNON  /XINFRT/  XX5(  5)  ,WARRAY(20)  ,XXl  ,PANWW,XX<,(4)  ,FANWHT, 

1 XXXA(A) ,PANWVT,XX29(29) ,PARRAY(20) , VX12 (12) , PANWT  , XX X 1 , PP AT , 

2 THFTAC, XX  11(11) 

rrMYON  ACM 

rCMMON  /AFRO/  X 9 1 ( 93 ) , SLE T , XIO(IO),  8RAZ,  XXZZ 

FCmvAl  FA'CE  ( xniT,  X91(58)  ) 

fr«MPN  /ACRPHO/  /pnOESdOl,  ZLAOES(IO) 


rMGS0610 
CMfSOftZO 
ppcsohon 
r'»GSOftAO 
r.''GS0650 
r.MGS0660 
rMGS0670 
CMGSOGBO 
r^*GS0690 
GMCSOTOO 
C«GS071 0 
r''GS0720 
r MGS 0 73  0 
GMGSO  7A0 
CM r SO  7 50 
rMGSn7A.O 
rMGS0770 
r.Mr,so7  80 

GMGSO/PO 
GMGSOBOO 
GMGSOB 10 
GM  GS0R20 
fMCSOBTO 
CMGSORAO 
CMGS0R50 
rMGS08f.0 
rMGS0870 
CM  ns  OR  80 
CMGSOROO 
CM  GS0900 
CNGSOQl 0 
GMosnozo 

rMr,sno3o 
TM OS 09^0 
rMGS095,) 
rMrsn960 
rMGS0970 
GMGSOORO 
CMOS  0990 
CMOS  1 TOO 
CMOS  10  1 0 
n.M  GS1020 
Gmgs  1030 
r^GS  1 04,9 

r»-GS  10  90 
CMOS  lois  T 
fMGS 10  70 
GMcsioeo 
rwGsi 090 
GmGSI 100 
GmgSI  do 
r.Mcs  1120 
GMGS I 130 
GMGSI lAO 
'•NGSd^O 


I 


HA  A2 


CrMMPN  /ATO?/  AER79(<>),FPRTX,FRR,NAERX(30)  r‘*G<;il60 

rrMMPN  /A  F TA  « / A P VT  , TR  VT  ,R  VT  t RC  VT , TC  VT,  TANS  VT 
I ♦ STFVT,  GGMIS(7J  CmGSIIRO 

rPN-MpN  /PYAIR/  SPFF,SMACHH20)  ,SMACH2(20)  ,SMACH3(20),Smach^(20>  , rMGSll90 

1 SrACH5(20),  CLAIFI(20J ,CLALF2(20) ,CLALF3(20) ,CLALFA(2n»,  rMGSl200 

2 CIALF5(20).  DMACH  U 20  ) , OM  ACH2  ( 20»  ,0MACH3  ( 20  » t TPi  ACHA  ( 20  ) , FMGSIPIO 

3 nMACH5(20),  COOK  20,5)  ,C0n2  (20t5)  tCm3  (20,5  ) ,rrCA  (20,5  » , fmgs1220 

A rnP5(20,5)  rMGS1230 

CCMMPN  /ORG/  XA72{ 2) ,FINE,XAZ7(7) ,ITN,AM5(5) ,1 BTL,AZM73(3( , CMGS12A0 

1 ITSECT, TWSECT,PXINT,RXINW,ARV9(9) ,nE,UMPT(2) ,NH,CZA(A) , rMGS1750 

2 APT, AFW,TRT, TRW, Z SXC2( 2)  C^GSl^AO 

common  /FTXUP/  EIX2(2),  RML  0,  RMH  I ,F  I X6  ( 6 ) rMr,si270 

COMMON  /rORNOW/  NRM,NALT,RMV(20) ,ALTV(10) ,FRBT,FACTCP  CMCSIZRO 

COMMON  /HINC/  RHLTX,  PHLW  fMGSlZOO 

COMMON  /LET/  SFT3(  3),SFT,SET2(2)  ,RLA,RL5,SFE2(2)  ,I  ART,  CmgSIBOO 

I (CNTRL, XZ2X(2)  rMGS1310 

COMMON  /NAEPCZ  TNAZZl  rMr,Sl320 

P , STE,STrT,  TR  AT,SWE,TRAW,DCASE,DE00,ARL6,AL5X,XMSX,  rMr.<;i-,30 

0 STEW,  XSTA,FSCVCW,FSnvCT,WVrsS,SMRL,SMRH,WWlNG,rARW,  CNGSITAO 

R IRLCT.NOCVAR  rMGSl35n 

R ,PELT,TNZZl  ,TLTHFO  r»GS136n 

common  /ROLl  / »Mk«,RNT,  IARW0,BWH,BTH  0MGS1370 

COMMON  ZSIJPFX/  RMnES,WDG,GULT,!WTS,WW(  NGI  ,WTI  ,HOVAW,V.nVAHT  , OMCSIXPO 

1 WOVAVT,WOVAT,WXW3(3),  VTALOC,  WXW5(5)  fMCSnoo 

2 , SLEW,  SI  F VT,  I SURFW,  I Pl.ANV»,  I SURFT,  I P(  ANT  r"C<;U00 

CCMMON  PSM  CMGSIAIO 

rOMMON  /AOnON/  SPPWF,FF(1R)  CMGSl^PO 

CPmmpv  /all/  all  12( 12  ), IMCO,  ALL16(16)  CmpsiABO 

COMMON  /PrSYFT/  ZXNR,  BFSIA(IA)  CMGSIAAO 

COMMON  /CnOFPT/  (FIRST, JRJ,J  rMpsiASO 

CPMMrN  /foncxx/  KPR0P,K(NLET,(SI  ZE,NOOP,KSUS,KFM,  IPSTIN,  r,NGSlA60 

1 NCUCT.NFRNG,!! 3(3) ,lEX,NPASS,NnUT,I XXN  OmGSIATO 

FOUIVAIFNCF  ( 1(3(1),  NZTFMP  ) OMCSIAPO 

COMMfN  /OAM/  riAFO ,OAMISC ( 19)  CMGSIAOO 

COMMON  /OFSTON/  rFS9(9),  PCNFOS,  PRFOS,  ETAFOS,  nES12(12),  TAOS,  CmgsiSOO 
1 r:FS?(2),  FTAPOS,  DEXI2(12),  TFLPOS,  CNLPOS,  FTLPDS,  nrs  37  ( 37  jFMGS  I 5 10 


GTMMf'M  /nrsoPT/  KENG.KTAAK  ,KI  ZQ,MFTTJ,ISTR,!niFF,  rFS19(19) 
common  /FXTFRN/  FXT6(6),VL,VFCB,EXT3(3)  ,A3,EXIT, 

I TANLT, AX,FXTX,XMRJTO,HE IGHT,EXT2(2) 
ff'MMori/EXXP  J/  FX(AP) 

ECUl  VAL  FNCF 

I (EX(  3),TEXIT  ),(EX(  A),TTHPr)T) 

?(FX(  5), TENT  ),(EX(  6 ) ,R HOE  XT ) , (E X ( 7 ) , RHOTHT ) , ( E X ( R),RH^ENT) 

3I»'X(  9)  ,TrxTER  ) , (FX(  10)  ,RHOX  ) , ( E X ( 1 1 ) , TMI  NC  ) , ( F X ( 12  ) , Tm  ( no  ) 

A(EX(13),FI  ) , (FX(  lA) , FSUL  T ) , ( E X ( 15  ) ,E  S Yl  0 ) , (E  X ( lA.)  ,TI  NS  ) 

5(  FX(  17  ) ,RHn!N  ), (FX( Ifl) ,XSTAR  ) , ( F X ( 19 ) ,CLF AR  ),(FX(20),ri  ) 

6(FX(2l),r2  ),(EX(22),r3  ),(FX(23),CA  ),(FX(2A),r5  ) 

7(FX(?5),rf,  ) , (FX(  26)  ,TINAFT)  , (EX(27)  , WRJ  ) , ( EX  (2R  I , xpj  ) 

a ( rx ( 29) , TFMPC  ) , (rx( 30)  ,MTLRAM) 
common  /FmpT/  HP  , AMACH,  ale  I ,FARr) 

Gpmmon  /FRONT/  FR63(63),  HPEXT,  FR16(16) 
common  /FS'’/  HPEXX,  FSRR(R) 

COMMf'N  /GOROL/  WAPO  (76) 

FQOIVAl  FrTE  (WAPn(  1),  D),  (MARn(  2),  PC  ), 

I (WARO(  3),  FJ),  (WARn(  A),  PA  ), 


PC  ) , 
PA  ) , 


r''GS  1520 
CMOS  IS  30 
'■MCS  1 aao 
•■MGS  I SSO 
f ''091560 
CMGS 1 570 
F“GS  1560 
r"CS  1590 
fMGSlSOO 
'■Mf, 91510 
rMG91520 
'■MGS  1530 
CMGS 16A0 
fmgS  1550 
CMGS 1560 
rMcsi57n 
C“GS16aO 
r”GSl  5'^0 
OMGS 1 ZOO 


HA  AJ 
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f- 
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9 
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r 

F 

G 

F 

I 

J 

K 

L 

V 

N 

P 


S 

T 

U 

V 


FCUIVai  FMCF 


(WAPO(  5), 

FI) 

, (WARO(  6), 

PRELL  ), 

C.HGS  1710 

(WAROI  8), 

GAM  ), 

GMGS1720 

(WAPO(  9), 

RHCP) 

, (WARO(IO), 

AFAT  ), 

OMGSl 730 

( WAPO(  11)  , 

C STAR) 

, (WAR0(12), 

PGM  ) , 

GMGS 1 7A0 

( WAPO(  13)  , 

FSYLX) 

, (WARO(IA), 

FSULX  ), 

GMGS1750 

( WAPO(  15)  , 

TMI  N) 

, (WAR0(16), 

TGASEF  ), 

C.MGS  1 760 

( WARO( 17), 

BETA) 

, (WAROdS), 

casfm  ), 

GMGS 1770 

( WAPO(  19)  , 

DM) 

, (WAR0(20), 

ETAX  ), 

GMGSneO 

(WAP0(2l) , 

OLFS) 

, {WAR0(22), 

TTH  ), 

CMGSl  790 

(WAP0(23), 

FCWM) 

, (WAR0(2A), 

FEP  ), 

PMGSIBOO 

(WAPO(25)  , 

RBOSS) 

, (UAR0(26I, 

OEM)  , 

GMGSISIO 

( WAROI  27)  , 

FIT) 

, (WAR0(2e), 

FBM)  , 

GMGSIRZO 

( WAPOI  29)  , 

RHI  W) 

, (WAR0(30), 

S AW) 

PMGS 1830 

( WAPO(  31  ) , 

RMFW) 

, (WARP(32), 

VRFH)  , 

CMGS 18A0 

(WAPOI  33), 

RMFSW) 

, (WAR0(3A), 

FSL  ) , 

CMGS1850 

(WAPn(35), 

FSWM) 

, (WAR0(36), 

SEM)  , 

CMGSIBAO 

( WAPOI 37) , 

RMASW) 

, (WAROOB), 

ASL)  , 

09051870 

(WAPO( 29), 

A SWM) 

, ( WARO(AO)  , 

GMAX)  , 

C.MGS  1880 

( WAPOI  Al)  , 

ASM) 

, (WAR0(A2), 

AEP)  , 

C.MGS  1890 

( WAP0(A3), 

EAR  ) 

, (WARO(AA), 

RMAW)  , 

CMOS  1900 

( WAROI  A5)  , 

AIT) 

, (WAR0(A6), 

TL)  , 

CMGS 1910 

(WAPOI  A7), 

FMPAH) 

, (WARO(AR), 

ABM)  , 

rMGSl920 

( WAPOI A9) , 

RMGW) 

, (WAR0(50), 

PNBWM)  , 

PMGSIP’O 

( WApni  5D  , 

RNTM) 

, (WARO(52), 

RNEGG  ) , 

CMP,519A0 

( WAPOI  53), 

RNRM) 

, (WAR0(5A), 

RNTWM)  , 

CMGS1950 

( WAPO{55), 

RNEG) 

, (MAPO(56), 

PNEGl)  , 

CMP,S  1060 

( WAROI  57), 

RNEG2) 

, (WAPD(58), 

PNEG3)  , 

P“GS  1970 

(WAPOI  59)  , 

RNMW) 

, (WAR0(61), 

E FI)  , 

C.MGS  1980 

I WAP0(62), 

PSUB)  , 

( WAR0(63),  RHORH  ) 

PMCS 1990 

X/  THX20(20) 

,TSTART 

,TFRNG,TXHX 

PM GS 2 000 

K'-'  / I'  I'  » ' •'I.' 

ECUIVftI  FfvifF  ( !NP2G(l),  SKSTR),  ( I NP20  (5)  , RHOT  J>  , 

X ( I^JP2C(6),  PEHTJ  I, 

1 ( INP2C(9»,  TJLMIS),  ( 1NP20(10I,  WSTRl  ), 

( INP20(ll)t  wnVATJ  ),  ( 1NP20{12),  XLniFI  » 


3 , f f NP2CC 13)  , WMI STJ  ) 

Crv'Mf'Fi  /ITFPT/  nvTOL.OFLDELf  NUHI  T.MAXNI  TfOVMULT 
rrM^PM/MppL/  nD(30) 

FQUIV&l  F^4^.F  ( TSK  INI  ,nD(  1)  I , (TCWI,  CO  ( 2 ) ) t ( TFR  AC  tOC  (3  ) ) t 

1 (SAFAC,  ^n(4N»  ( IWTANK  ,nO  (5)  I t (WSKNPL,  00(6)), 

2 (wpayI  , 00(7)),  ( IViTPL  ,nn(  8)  ) , (WSUPU,  00(9)),  (wrVAST,  00(10) 

3 ( OHT  , nn(  ID) 

FOUIVALFNCF  ( 00(12),  (TANK  ) 

roMMPM  /NAv'SHL/  0X7  ,XISPHI  ,0X23(3)  , WMSOL  ,0X33  (3  ) , 

TfwrFS,  TRATIO,  ITHR,  FOES 


), (PKI  3) ,X2  ) , (PK(  A) ,X1 


I 

ffM^rN  /PAKEP/  PK( AS  ) 

FCOlVAl  FNCF 
1 (PK  ( n),PKD  ) f 
l(PK(  1),CLX  ),(PK(  2),N8 
EOUfVAlFNCF  ( PK(IA),  VPP  I 
COMMON  /PINT/  FFX?(  3),PCHI  ,ETACF  ,EXPfiR,PHINnR,PPELS,RHnMT  L, 

1 RHf’IA'l  , SIGMTL  ,RFFH,APAT,RHOS,Xl  SPLC, 

2 PHO  ISS,  AI  AT  , T ir  , PEAH,PS,  ZURWlOdO) 

COMMON  /PJRLOK/  RJ(SO) 

EOIJIVALFNCF  ( RJ(IO),  GAMRJX) 


CMG,S201  0 
rMcs20?o 

OMGS  2030 
r«GS20AO 
C“OS2050 
rMGS2060 
ongspoto 

ro^'C-SZORO 

PM  Gs  2000 

pMcszino 
I , CMCS21 10 
CMGS2 120 
PMGS21 30 
P‘'r,S21  AO 
PMGS21 50 
PM GS 2 160 
CMGS2170 
C“r52lPO 
CMGSZloo 
PMGS22nO 
C.MP,S2210 
CMr.S2220 
PMC52230 
PMGS22AO 
CM  GS  2 2 50 


HA  AA 


EruiVAl  F’‘'rF  ( qj(£6),  TT4  ) 

FCOI  VAL  FVCF  ( R J ( 1)  ,r  NM  ) , ( R J ( 3 ) , ANN)  , ( P J (^  ) , AL  ) » ( R J (6  ) ,COB)  , 

1 ( RJ(  I 1)  , A6MAX)  , (R J( 12) .ACMAX)  , (R J( 13)  ,A6MIN)  , 

2 ( RJ  ( lA),X>«nMR)  ,(RJ(17)  ,DFLT<»)  ,(RJ<  18)  ,FCMr,N)  , 

3 ( R J ( 23)  , IFTYPF  ) t (RJ  (37)  ,PT<Vl)  , (RJ(38)  , FT^2  ) , 

4 ( RJ(3<;),PT43> 

CPMMPN  /pocket/  XISPTH,XMrT,ETAI SP.  PCHAMB,  FENG,  FTACL,  PBFLLL, 

1 Pl,P2,P3,P4,P5,P6,P7,Pe,PSTAR,  PT,  WOVAC2  , EXSl,  VfCVACl,  OUlU, 

2 WOVANl,  wnVAN2,  PHOOX,  PVOX,  REH,  PETAL,  ROC5(5), 

3 WMISCL,  RHOF,  lTHL,TnwOEL  ,TRATI L,FDFL,X0LM1  S 
CFPwrN/SFPnWR/  SP(48) 

ECUIVAl  FNCE 

1{SP(  l),WTSP  ),(SP(  2),VOLSP  ) 
rrMWTN  /SriL'^rS/  CSTARl,  CSTAR2,  ETStSP,  OUM7(7) 

COMMON  /SUSOAT/  TX(44) 

FOUIVAl  ENCF 

1(TX(  1),  FXrN  ),(TX(  2), DROP  ),(TX(  3),EOR  ),(TX(  4),FFXP  ), 

2(TX(  5),  GMF  ),(TX(  6), PDF  ),(TX(  7),PN2  ),(TX(  fl),RGn  ), 

31TX(  q),  ROB  ),(TX(  IC)  ,RHORJF)  ,{TX{11) ,TFUEL  ),(TX{12),RU  ), 

4{TX(13),  SULTN  ),(TX(14),TRLA0  ) , ( TX( 1 5 ) , THGG  ) , ( TX ( 16 ) ,TSUS  ), 

5(TX(17),  ULLG  ),(TX(  18)  ,TCASEC),{TX(19) ,TMAX  ) , (T X ( 20 ) , PCC  ), 
6tTX{21),  wnFMAX),(TX(22),XFMB  ) , ( TX (23 ) , WFC  ) , ( TX (24 ) ,wrMP  ), 
7(TX(25),  SIJSMLT),(  TX(  26)  ,SUSMWT)  ,(TX(27),FPIN  ) , ( T X ( 28  ) , OF  L WT  ), 

8(TX(29),  DFLLT  ) , ( TX(  30)  ,r)ELF  ) , ( TX  ( 31 ) , SWTPLO  ) , ( TX  ( 32  ) , S LT  OL  n ) , 

q(TX(33),  ) , ( TX(34) , SUSWT  ) , ( TX ( 35 ) ,FTUS  ) , ( TX ( 36 ) , FT YS  ), 

1(TX(37),  SMI  T ) , ( TX( 38)  , SMWT  ) , ( T X 1 39)  , F M I NT  ) , ( T X ( 40 ) , FUS ARC  ) , 

2(TX(4l),  RHO  ) , ( TXI 42 ) ,RHni NS)  , ( TX(43)  ,MATTK)  , (TX  (44) , PAT PB) 

common  /TRAJX/  CFN6(6),  FARMAX,  TT4MAX,  CFN2(2) 

FCUIVALFMCE  I CFN2I1),  FSLBC  ) 

common  /TRJCTA/  ZPALT(IO),  ZPMACH(IO),  ZPNACC(IO),  ZPTACCIIO), 

I  ZPGAMIlC),  ZPFRFUIlO),  ZPTTFA(IO) 

common  /turpi/  TV( 30) 

FOUIVAl  FF'CF  ( TV(1I,  WAFCOS  ),  (ALFTJ,  TV(2)  ) 
rcMMOM  /UP  INLT/  PPAMRL(129),  XCGDl 

common  /KATIN/  WAT5(5),  T J PPA X , NE XE X , OPR , W AT3 ( 3 ) , YFAR,ZSCALF 

common  VPm 

OImfksIOM  7PPINT(20) 

FOUIVALFNCF  ( FUSY(l),  ZPRINT(l)  ) 

COMMON  /PFRF/  K PY2(  2)  , VEL  I,  XIMACHI  ,GAMMAI  ,ALTI  ,MOPT,  MPHAZ, 

1 NCPHAZ,NnPHAZ,XMACHF(20)  ,ALTF(20)  ,GAMMAF(20) ,FVALUE(20), 

A COA'Il  (10),  C0N12  (IC),  CaNI3  (10),  C0NI4  (10),  CONI':  (10), 

P CUNI6  (10),  C0NI7  (10),  CONIS  (10),  C0NI9  (10),  CONIlOdO), 

C CnNIlKlOl,  CONIlZdO),  CaNtl3(lO),  CONIUdO),  C0NI15(10), 

0 OONI  1C,(  10),  CONI17I10),  CONliailO),  CONIlqllO),  0CNI20(lO), 

F rONOl  I 10),  C0N02  (10),  C0N03  (10),  CnND4  (10),  CCNOS  (10), 

F CnNr6  (10),  CONOT  (1C),  CONOR  (10),  CONOR  (10),  OONOIO(IO), 

G CONOIKIO),  CON012(lO),  C0NO13(10),  CONOUdO),  CCNOlSdO), 

H rONOlSllC),  rONOlTdO),  CONOiadO),  C0N019d0),  CriN020(l0), 

2 ITEPM(20),  NAFRO(20), 

3 IPTYPF(  20)  ,MOOES(  20)  ,MHGFN(20)  , 10(3^(20) 

4 , A|  PM4X(  20) , ANZMAX(  20  ,FUSYI  20) 

CIMFNSION  C0N0Z(4CC) 

FOUIVAIFNCE  ( CONOZIl),  fONdd)  ) 

rOMMCN  /Mill  tRJ/  NTRA  J.TRCONI  670,  5)  , XLBOY,  XNOZ 

1 , TPMORI  102, 5 ),  KEMTV 


rMGS2260 

CMGS2270 

CMns22eo 

C‘*CS2290 
CM  OS  2 300 
rMGS2310 
CMGS2320 
CMGS2330 
CMGS  2340 
CMGS2350 
CMGS2360 
CMrS2370 
CMOS  2 3 80 
rMGS2390 
CM OS  2 4 00 
rMr.s24io 

'‘MGS2420 
CMCS2430 
CMGS2440 
'■MGS2  45  0 
CMGS2460 
CMOS  24 70 
rMGS24B0 
CMGS  2490 
CMrs2500 
CMGS25 10 
rMos2B?n 
CM ns  2 5 30 
C,mgS2540 
CMOS  2550 
CMGS  2560 
CM  CS2570 
CMCS25B0 
CMOS 2 5 90 

rMrs2(S0O 
OMOS  261 0 
rMOS2620 
CM  OS 2 6 jO 
rMGS2640 
rM0S2650 
C.MGS2660 
rMGS2670 
CMns26ao 

CMGS  7600 
CMGS2700 
'■Mcs27n 
CMr,S2720 
PM  ns  2 7 30 
CMnS?740 
CMGS2750 
(M ns  2 7 60 
CMGS2770 
CMnS2780 
rMGS77O0 
rMns2800 


HA  45 


o n 


riMFNSlrw  TRFIX(102) 

EOLJ 1 VAL  ( TRFIX(l),  OALPH  i 

riMFNSIOM  TP YSTM ( 67CI 
FCUIVALF^r.E  ( TRYSni^Cl),  KBY2(l)  ) 

FCUIVALFNTF  ( TSKIN!,  ZSKINI  ) 

rrMMPN  APWVPB/  rALPH,nALTfOCFN,nELMAX , OHCL,nMACH,CMTN,nSTART , 
C nvCL  , FR  FF,  FRR  FAC. , IPROP  1 f JPRI  NT.^IXSTF  PtNTRYS  t RAKREI  , RTOL  , 
n T MF  l,GKGfr,KV,CKVCPli,GTOPT,SLOPE{20l  ,TPHASE(20)  ,TTCT  ALC  20), 

F PMnPF(20) 

FCUIVAI  FNCF  ( PMnPE(l),  TPCMGN  ) 

CpM^nKi  /TPVPFR/  BPPWP  , B I SP  V , BTH  V AC  t BE  X I T , SUSWP , SE  X I T , BC  ANT  A , 

1 WT INI T, ORPP  ST, OROPFB .KIND, A5A3, A6A3, ACA3,D3 , 

2 TVACMX, TVACMN.YISPI 20) ,XTHRTL(20)  ,EXTRA(15) 


rrMMpNJ/VFPT  / 

SVTSP  F, 

BARVT, 

TANOVT, 

TAN2VT, 

tanavt , 

AC  VT, 

ATN2VT, 

ATCVT, 

AMAC  VT  , 

tmacvt. 

BTANVT, 

ROC  VT, 

TRTPVl, 

BAPPVT, 

BAPVT, 

FLVTST  , 

XLENVT, 

3 CFVT,  TPAVT,  PXINVT,  FSOVVT 


rMGS28lO 
CYGS2S20 
rMrS2830 
r«GS2HAn 
rYGS2950 
CMGS2860 
CMOS  2870 
rMGS2880 
CN  GS28P0 
CMCS2O00 
rYGS2910 
C.Nr,s2920 
rMrs2930 
CMGS2940 
r^*  ns  29  SO 
r“GS2960 
'■YGS297n 
rMGS29R0 


NL  FTP  CENTRAL 

NAMFL IST  /NAMl/  lAIR,  INPRIN,  IPACK,  IPRP,  IPSM,  IVF, 

1 KPIL12,  NPAGE 

2 , ir.OST 

NANFL  I‘;T/NAM2/NPAPV,KPARM,KASE,PARM,KASEA,PARNA,KASER,  parpb, 
1 NPAPTS.PLVL  l,PLVL2,RLVLl,RLVL2 

TATA  PL VL 1 ,BLVL  2,PLVL  l,RLVL2/16.66  7,5  0. ,10. ,30./ 

NA«FLIST  /NAM3/  WCRTHl,  NR  NA  X , P VRNA  X , DWR  )<  AX  , NWT  WH  , PVWTWH  , 

1 nWWTWF*,  NRrP.PVFCR.nWRCR,  N RLL  , P VR  L L ,DWRL  L , 

2 NHCP,  PVHCR  ,n.JHCP  , NHLL  ,PVHLL«DWHLL  , NVCR  , PVVC  R ,0  WVCR  , 

3 NVLL ,PVVLL ,OWVLL , NCE P , P VCEP , OWCEP , NREL, PVREL, OWREL, 

A M^"l,PVNn,OWN^ 

S , /CFP,  7F0RCF,  ZGWT , ZREL 

» AY  Ft.  I ST/NAMA/KBASF,  KPARM.PAR)*,  WDR  THl  , W0PTH2  , R DER  1 ,RDFR2 
NAMfLlST  /NAMP4K/  B PL P ,C LR A .C LRF ,0 EL VX ,F CL R , GC L R , K M A I R , 

1 PAKSUB, R ATCLF , REHTUB, THEAO  , THEBST,  TUBTHK, 

2 KYTAIL,  WINGCL,  WTMAX,  XLTNAX,  DTUBMX,  XLTB)«X,  ZPYLPN 

3 , KLMCH 

AAmflIST  /NAMByP/  KBYORG,  KBYPAK,  KBYPSM,  kbyvp, 
a ACA 8,A 5A3,A6A3 , BE Xl T , BI SP V, BODW P , RT HV AC , 

1 CROP FR, CROP  ST,  SEXlT.SUSWP,  TVACMN, TVACNX,  XTHPTl,YTSP, 

2 SMACHl,  SMACH2,  SMACH3,  SMACHA,  SMACH5, 

3 CLALFI,  CLALF2,  CLALF3,  CLALFA,  CLALF5, 

A OMACHl,  0MACH2,  0MACH3,  OMACHA,  DMACHS , 

5 Cnni,Cnn2,CDO3,CO0A,CD05,  CDODES,  CLADES, 

6 XI  PTY,  XMP7  , XCGDl 

7 , kbyCST 

namfi  1ST  /namscr/  levels,  NCOUT,  NLQUT 


CYGS  2990 

'■“OS  3000 
r»GS30  10 
PY  CS  30  20 
r,Yrs3030 
CMGSSOAO 
CYGS  3050 
PMTS  3050 
CM GS 30 70 
c«rs3oeo 

CMGS3090 
CMGSO  too 
CMGS31 1 0 
CMGS3  120 
PMGS31->0 
CMOS  31  AO 
CMrSi  150 
PM  ns  8 150 
PMGS3 1 70 
CMOS  3100 
CMGS3190 
PMGS  3200 
PMr,S  8 ? 1 0 
PMCS8220 
PMGS3230 
PMGS32An 
PMGS 32 50 
-"MGS  3260 


NAMFI  1ST  /NAmCNF/  ALTV,ARVT, 


FACTnR,FSOVCT,FSrVCW, FSPVVT , PMGS  3?  70 


1 GlILT,  ILUG,  IPt  ANT,  IPLANW,  IWTS.NALT  ,NR)«,  pMCSTZPO 

X PANWHT,PANWT,PANWVT,RL5,RMDES,RMV,  C.MGS3290 

2 RX INT,FXINVT,R XINW,SLET,SLEW,SLEVT,STFT,STEVT  , STEW,THFTAC,  CmGS33C0 

A TRAT,  TRAVT,  TRAW,  CMGS33in 

3 TpT,  TPVT,  TRW,  V TA  L CC  , WPl  V AH  T , WGV  A S T , WO  V AT  , WOV  A V T , WPV  AW , CMGS  3320 

A WTt,  WWINGI  PMGS3330 

5 , /POPT,  /WSKIN  CMr,S38A0 

6 ,RM|  r,RMMf  ,SMR|  ,S“RH  CMGS3350 


I 

i 


I 


HA  46 


7 , 7SK  IM  I 

C M FHP  PSM 


FHP  PSM 

namelist  /NIAMPOn/  ARM  tNFR  tAFA  T,A  I T,  A SL  t A SM  , A SW  M, 

1 CASFM.rSTAR,  nFNI.niFSt  EAR  ,EPI  ,FTAX,  FRM.FCWM, 

2 FFR,riT,Fj,  FMPAH,FSL»  F SUL X,F SWM ,F S YLX , GAM.GMAX, 

3 PA.PBFLL.PCfPCM,  PHl,PSURf  RflOSS.RHOP,  RMASWt 

A RMAW,RMCW,RMFSW»RMFW  , RMIW*  RNBWM.RNEC*  RNECCtPAECl, 

5 RN'FCPf  PNFC  3»RNMW,RNP*<,RNTM,RN'THM,  SAW,  SEM,  TCASEF  , 

6 Tl  , TM  IN,  TTH,  VRFH 

namelist  /NAMEXB/  Cl, C2,C3,CA,C5,C6, clear,  EL, 

1 '*TLP  AM,  RHnENT.RHOE  XT , RHCl  N,  RHOTHT,  RHPX 

2 TEMPC,TENT,TEXIT,  TE X TER , THETA , TINAFT, 

3 TINS,TMINC,  TMINO,  TTHROT,  WHARNS,  XSTAP 
NAmfi  tST  /NAMSR/  AIAT,APAT,  etacf,exppp, 

1 PREl  S,  PHINPZ,  RFAH,REFH,  RHOISS,RHOMTL,RHnS, 

2 SIGMTL,Tir,  TRATin,  WMSOL 

A , FTSISo,  rSTAP  I,  CSTAR2 

namelist  /NAMLR/  dpt,  FtaCL,  ETAISP,  FXSI,  itamk,  iwtank, 

I MFTAL,P  1,P2,P2,PA,P5,P6,P7,P8,PBFLLL,  PSTAR, PT, PVC* , 

■>  t P wnp  . O non  V . C AP  AT  . Tru  I - TPD  Ar  . TR  A TI  I .UMTPri  • 


'EL  1ST  /NAMLR/  dpt,  FtaCL,  ETAISP,  EXSl,  ITAMK 
metal ,P  1,P2,P2,PA,P5,P6,P7,P8,PBFLLL, 

P EH,PHr)F,RHnnx,  PAF  AC  , TCWI  , TFR  AC  , TRA  TI  L »WMI  SC  L, 
WDVAC l,WnVAr2,WnVANl,wnVAN2, 

EL  1ST  /MAMRJS/  A6M A X . A 6M I N . AC MA X . AL,ANN.  CD0. 


ic  i,wnvAr2,wnvANi,wnvAN2, 

N’AMELIST  /MAMRJS/  A6MAX  ,A6MIN,ACMAX,  AL,ANN,  CD0,C 

1 delta, DPITF,  FDR, EEXP  , EXIN,  F SLRC,F  TUS,F  T YS  , 

2 GMF,  IPTYPE,  MATPP,  MATTK,  NB , 

3 PDF,PKn,PN2,PTAl,PTA?,PTA3, 

A RCr,RHniNS,  PHDRJF,  RQB,  RU,  SPPWF, 

5 TCASFC,  TFUFL,  THGG,TMAX, 

6 (ILl  G,  VPP  , XI,  X2,  XMQMR 
N'AMEL  1ST  /NAMTJ/  ALFTJ,  CNLPDS,  ETABDS, 

1 HPFXT,  IDIEF,  IMCD,  I STR , KENG, 

2 mfTTJ,  TJMMAX,  DPR,  PCNFDS,  PRFEIS, 

1 RpnT  l.  TFI  pns.  T.IIMIS.  WMISTJ. 


XCLMIS 

, CD0,ClX,CNM, 

^ r T Kjf 


Mf-  I » J , T AX  ♦ UHK  t KV 

PEDTJ,  TFLPnS,  TJLMtS, 
XIDIFI,  YEAR 


WMISTJ, 


TANLT,TPLAn, 

TSUS, 

FTAFDS,  ETLPDS, 
SKSTR,  KTANK, 

RFHT J, 

wrVATJ,  WSTRI, 


M FDD  VPM 

NAMFI  1ST  /MAMVPM/  ALP MA X , A LTF , ANZ MA X , F V ALUF , G AMM AF , 

1 irONT,  IPTYOF,  ITEPM,  MHGEN,  MOOES,  NAFRO,  XMACHF, 

2 CDMIl,  CnNI2,  r.PMl3,  CONIA,  CONI5,  CnNI6,  CONIT, 

3 C'^N'Ifl,  CONIC,  CDNIIC,  CONIll,  CONI  12,  CONI13,  CCNIIA, 

A r.PNIlE,  CDMIU,  CnNIl7,  C0NI18,  CONUR,  CQNI20, 

5 r.ClNDl,  CnND2,  CON03,  CONOA,  COND5,  COMDe  , CONDT,  CCNDB, 

6 CPMD9,  CDNDIO,  mNDll,  CCND12,  C0N013,  CONDIA,  CCNDIS, 

7 CDNDlfi,  CnNDl7,  COMDIB,  CONOl<5,  C0ND20 
e , /PRINT 

q ,AITI,  FAOMAX,  GAMMAI,  MOPT,  NCPH  A Z , NDPH  A / , NLPHAZ,  N'ZLLRI, 

A TT^iMAX,  VFLI,  XMACHI  , TPCMGN 

P , DALPHjDAL T,nCFN,nELMAX,  DHCL ,DMACH  ,DM I N,DST ART , 

r OVCL , F" EF ,FRP FAC , IPRHPI,  J PRI NT,M XSTFP , NTR YS , R A NGF I , RT DL , 

C T IMF  I, GKCiGKV, GKVCRU, GTOPT , SLOPE, T PHASE, TTOTAL 
n'amflist  /super/  alti,  art,  bcanta,  prat, 

1 DIAFR, 

2 DVMULT,DVTnL,  FARMAX,F1NE,  FRBT, GAMMAI, 

3 lART,  lARW, I RTL , ICNTRL,  INWORL,  I SURFT  , I SURFW, 

A ITER, 

A ITM,  ITSFCT,  IWSFCT, 


ITM,  ITSFCT,  IWSECT, 

KFUri,  K INLET, KLNCH,  KPROP, 


CMGS3360 

CMr,S3370 

rMrS3380 

rMGS339n 

CMCSTAOO 

CMGS3AIO 

rMGS3A20 

CMGS3A'>0 

emgstaad 

rMGS3A50 

rMGS3A60 

rMGS3A70 

cmgstard 
rMGS3Aqo 
rMGS35DD 
rMGS3S10 
OMCS  3S20 
rMGS3530 
GMGSISAO 
rMGS3550 
GMGSTSRO 
CMGS387n 
CMGS  3SRn 
rMGS3590 
CMCSiNOO 
fMGS3M0 
rMGS3620 
FMGS3630 
CMGSBAAO 
rMGS3650 
r,*'GS3669 
CMCSTATD 
rMCS3NR9 
CMGST Aon 
r.Mns3  7 9D 
CMFS  37  19 
CMOS  3 7 20 
CM  fs j 730 
CMGSO  7A0 
fMGSO  7S0 
r‘*r,S3  760 
C MGS  3 7 70 
'■MGS3780 
rMrs37Qo 
CMGSiHOO 
CMGS’ SIO 
rMC.S3R20 
CMGS3«30 
FMGS  3p/,0 
FMGS38S0 
GMCSARhO 
rMCS3R70 
rMGS3RR0 
fMGS3R90 
rMGS3900 


HA  A7 


M 


I 


( MtXMIT,  vnPT,  NCPHAZf  NOPHAZ,  NLPHAZ,  NH , 

7 NZLLPlt  NZTFMP,  TT4HAXf 

8 VELI,  VFOfl,  VLt  WMISCt  XMACHI 

X , ZXNR,  TPCMGN 

P . XLPDY 

NA^ei  1ST  /NAMAA/  K B YPR  G t KP  YP  A K , KB  YPSM,  KBY  V Pt  AC  A3  , A5  A3  , A6  A"?  , B FX  ! T 

1 BT  SPY, BnnWP,BTHVAC,OROPEB,nRaPST,SeXITtSUSWP,CDCDE5» 

2 CLADES,  XLBnv,  XNOZ 

NAMFL  1ST  /NAMAB/  TVACMN,  TVACMX,  XTHRTL*  YISP 
namelist  /NAMAC/  SMACHI,  SMACHZf  SMACH3»  SMACH^,  SPACH5, 

I CLALFI,  CLALF2»  CLALE3»  CLALF4f  CLALF5 

NAMFI  1ST  /NAMAO/  PMACHl,  0MACH2,  OMACH3,  nMACH4,  DMACHSt 

1 cnoi,  cnn2,  cno3t  cooa,  coos 

CFCFMATS 

ICCO  rnpMftT ( IX,  ISAA, A3I 

IOC2  FORM  ATI AA, 2l2t I 10,A1 5, lOAAl 

2CC?  FnRMAT(/f)X,A4,3I2,I10,AI5,lCA4) 

2CCS  FORM  an  IHO,  ZnHFRPOR  IN  MAIN  AT  E l = ,F  8. 2 , 3X  , A4 , 3 1 2 , llO  , <►!  5 , 10  A ^ ) 
C 

MIX  = NL INF 
C 
r 

IF  ( nit  .CT.  C I GO  TO  60C1 
C 

MT  = 1 
CAM  INVPT 
NPAGF  = 3 
NTAPL  = 0 
KRJF=0 
NPAP  = 0 
K.PASVA  = I 
KFYCRG  = 0 
irnsT  = -I 
INPPIN  = 1 
kbypak  = 1 
kpypsm  = n 

KoyyP  = 0 
KPYMPI  = I 
KSYSTM  = 1 
Kl.NCH  = I 
KFUFL  = 1 
INWORL  = 0 

xfil  12  = 0 

I A IP=-l 
I PACK  =0 
IPSM=-1 
IVP=-l 

r,rnoES=r!.o 
Cl  AOFS^O.O 
xin  IF  1=0 . 

WMI SC=0.0 
MAXN I T=3 
MOPT=I 

rpnF=o.cnocsi 
NAL  T=  3 


C“GS  3910 
r“GS3920 
rMGSB930 
r.MGS394  0 
CMGS39S0 
CMGS3P60 
rMGS’079 
CMGS39flO 
fMGS3990 
rMGS<fOOO 
CmgSAOI 0 
CMGS4020 
rMGSAn3o 
CmgS^OAO 
CMCSAOSO 
CMGSAoeo 
GmGSAOZO 
r«GSAOPO 
rMGSAO‘^0 
FMGSAIOO 
CMGSAl  10 
rMGSAlzO 
CMGSAITO 
FMGSAIAO 
GMGSAl 50 
rMGSAliSO 
r«GSA  170 
CMTSA  180 
CMfSAlOO 
CM GS A 200 
F«GSA?l  0 
r^GSAPPO 
FMGS A2?0 
rMGSA7A0 
r«GSA2S0 

rMr,SA7f.B 
C“nSA270 
r«GSA2P0 
CMGSA200 
MGS  A 300 
fMCSATlO 
CMGSA320 
r‘<GSA330 
r»GSA3An 
CMGS A 350 
•"MGS  AT60 
fMGS A370 
C“CSA3P0 
CMGSABOO 
CMGSAAOn 
CMGSAAIO 
CMGS AA20 
rMGSAA30 
CMGSAAAO 
CMGSAABO 


li 


HA  A8 


n 

I 

1 KPM=6 

CMG54960 

i\  Tv(  n=o. 

CMG59970 

! «l TV< 2»=A0CCC. 

fMGSA^nO 

[ «LTV(  3)=ncccc. 

^MGS9990 

[ RMV(  1 ) = .A 

CMGS9500 

, RMV(2I=.9 

rMGS45lO 

t RMV<3I=1. 

rMGS9520 

[ RMV(A)=1.5 

CMGSA530 

RMV(5»=2. 

rMGSA5A0 

RMV<6)=<i. 

'‘MGSA550 

[ XLRDV  = 0. 

rMGS9560 

I x^n?  = 0. 

CMG59570 

SMRL=-.f 

rHGS95R0 

[■  SMRH=-.5 

rMGSA590 

' RMLn=.f5 

rrcsAftoo 

RVHI=2. 

rMrs96io 

xrGDl=5. 

rMGS9(S20 

RLA=0. 

C^GSA/SXO 

XSTA=0. 

CMGS46A0 

RHLW=0. 

<•”059650 

RI-LT=n. 

r.”  059660 

TCASFF=<;00. 

r”059670 

Z’^KlN'l  = 

rM0596R0 

TPCvr,N  = 3. 

r M059690 

GA^^RJX  = l.A 

C” 059 700 

rn  5297  iz  = 1,  in 

rMG597  10 

T71Z  = IZ  ♦ 10 

C”G597?0 

ZPR  |MT(  IZ  1 = 0. 

r«r,S9770 

ZPP  INTI  IZ  IZ  ) = 0. 

r”059790 

zrppi  IZ  1 = .01 

rMG59750 

ZCWT ( IZ  ) = icco. 

r«G59760 

5257  CrNTTNUF 

rMG59T7n 

ALFTJ  = n. 

r”GS97R0 

ZGWTI  1)  = 0. 

0” 05 9 790 

ZRFt  = .95 

C”0S9R00 

ZFnpfF  = 100. 

r”G59R10 

^Zl.LPI=C 

rMG59fl2n 

^ZTFMP=0 

G“i^59S30 

NSFLAF=] 

rMC59R90 

N5FI  PS=  1 

r”059350 

NSFL  TA=  1 

rMG59R60 

nsfltr  = i 

0^059870 

K5FLW 1=1 

r”CS9RR0 

rprPFu=c.o 

r”G59R9n 

rPNACC  = 0. 

CM9S9Q00 

rPTACC  = 0. 

rv0599l0 

KPY2(  1 ) = 0 

<■”059920 

KPY2I  21=0 

G” OS  9930 

WHAPNS  = 0. 

rMG59990 

PPIN(1Z=  15. 

<•”059950 

TPAVT  = .05 

GM OS  99 60 

FSnvVT  = 0. 

GMG5997n 

STFVT  = 0. 

GM0S9980 

PXIMVT  = .5 

<•”059990 

APVT=.99 

GM0S50n0 

HA  «9 

k 

TPVT  = .A 

PAH  = 57.?9f7F 
IPTL  = NAFPX(2J 
ILMG  = NAt^o  X ( 3 ) 
riAFP  = 1. 

VPP  = 1C. 

CVTOl  = ?0. 

, maxMIT  = S 
rVMUlT  = 1.1 

NHAMP  = 3 

WARr(61  ) = 10. 

PHI =WAP  r(  7 ) 

TFFTA  = FX(2) 

7XMB  = 2. 

7pnpx  = 0. 

;W5KIN  = 1. 

hpfxt  = n. 

: SFP  TPAJ  OARAM  INTO  STPPAGF  - PRESTORFO  VALUES 

NTRAJ  = 1 

Cr  1969  ITR  = 1,  670 
1969  TPCOMIITP,!)  = TRYSnM(ITP) 
nr  196R  ITR  = 1,  1C2 

1969  TPVJ  R(  I TP  , I I = TPFIX(ITR) 

6CCI  rrUTIMUF 


I F ( ff.'PP  IN  .L  E . 0 I NL  r X = 0 

9022  on  TO  (3,3,^,9,5,6,7,8,9,10,11,10)  , Z2 

10  CrNTINUE 

9021  NELAG  = NFL  AG  ♦ 1 
FI  = 902. 

WPITF  (N6,2nn5)  Fl.ZCnPF 
GO  Tn  902 

C**PEAr  lATUT  PAPAmftEPS 
3 Gf'  TO  90  2 

9 IF  (/?,  .r.T.n  Gr  TO  92 

N\  IX  = Ml  I X ♦ 9 

IF  ( NL  IX  .GT.  50  ) CALL  PAGF 
NL  IMF  = NL  INF  ♦ 9 
REAP  (N5,MAM1) 

ic  ( irPPlM  .LF.  C ) GO  TO  9113 
WP  I T F ( N6, 8 1 17  ) 

H117  FnoM6T(  //  3X,9HNAM1  list  //  5X,llHI/n  CONTROL  ) 

RRITF(M6, 31  18)  1AIR,INPPIN,  { I PR P t 1 ) , I = 1 , 3 ) , IPSM,IVP, 

I irnST,  IPACK,  KFIL12,  NPAGE 
8119  FrPM  AT(  5X  PHI  A IR  =,15/  5X8HINPR1N  =,  15/ 

1 5XPHIPRP  =,315/  5X8HIPSM  =,15/  5X8HIVP  =,15/ 

W SXPHICnST  = , 15/  5X8H1PACK  = ,15/  5X8HKFI112  = ,15/ 

2 5XPHNPACF  = , 15//) 

TALI  PACF 

8113  rOMTINUF 
1919  rrNTIMUF 
or  Tfi  9C2 

92  IF  (Z3.CT.2)  GO  TO  93 
FAt  I PAGE 


r,*'GS5010 
rMGS5020 
CMGS5030 
rMGS5090 
CMGS5050 
rMr,55060 
FMr,S5070 
r«GS5080 
CHGS5090 
rMGS5l00 
GMGS51 10 
r«GS5120 
CMGS5130 
rMCS5190 
r“GS5 150 
rMG55 160 
rNGS5170 
CMGS51 PO 
CM GS 5 190 
r^GS  5200 
r“GS5210 
CNrS5220 
rwGS5230 
FMGS5290 
r*'  GS5250 
5^095260 
^“G5  5270 
rwGS5280 
r«GS5290 
FMGS5300 
r«GS53I 0 
r«rs5i20 
T'^GS  5 3 30 
r«GS5390 
C‘""S6  360 
rMGS5X60 
'‘"'955370 
( "GS^ipn 
<""'95  5 390 
r G5  P 
'■•'G56  A 10 
F'"  r56iV2o 

r''GS5930 
fMOS^A'VO 
C''G554,50 
r*'955960 
'■MGS5970 
CMi,;,64,pn 
C“GS5990 
r'«GS55no 
rMGS651 0 
r'*G5552n 
rM9S5630 
C'CS  6S90 
GM 955550 


HA  50 


RFAT  (M 5, NAM  2) 

IF  ( I^PRIM  .CT.  0 ) WRITF  {N6t  NAM2  ) 
rn  TO  900 

! in  7 3 .r,T.  ^ I rn  TP 

RFAD  ( N5f  MAMBYP  ) 

IF  ( lAPRlN  .FO.  0 ) 00  TO  394<V 
WR  TTFIMt, B 1A2 ) 

! FORM  ATI  //5Xf  1 IHMAMPYP  L ! ST / / 5X ,2 8H I NC LUDE S NAMAB  THROUGH  KANAG 
WRITF(N6,  3021  I 

. FPRH ATI  /5X, 29FNAHAB  PPINTFD  IF  YISPIII  NE  0 // 

1 fy,AlHK'AMAf  ANP  NAMAO  PR  IN  TFO  IF  SMACHl(2J  KE  0 ///  ) 

WP  ITFINf,  PO??)  Ar  A3,KRY0RGtC0nt)FS,A5A3  , KBYPAK.Cl  AOES 
: FORMAT!  lOX<VHArA?,Fll. 4,  5X6HKB  YORG  » I 9 , 5 X6HC00DES  , F9 . 3 // 

1 10X4HASA3,P1 I .4,  5 X6H KB YP AK  , I 9 f 5 X6 HC L APES ,F9 . 3 / I 

WPITFir'6,  802  31  A 6A  3,  KB  YPSM.BE  XI  T ,KBYVP 
I FORMAT!  inX4l-Af>A3,Fll.4f  5 X 6H  KB  YPSH  . I 9 // 

1 10X5HRFX IT,F10.2,  5 X5HKR YVP  ,I 1 0 / ) 

WR ITF (Me,  8024)  B I SP V, BOOWP , R TH VAC .OR  OPE R .OPPPST , SF X I T , SUS WP 

I , xc  on  1 

1 FORMAT!  I0X5HP1SPV,'=1  C. 2//  1 0X5HR  OOWP  ,F  1 0.2  // 10X6HBTHV  AC  ,09  .0// 

1 lOX6HnPnPFP,F9.2  II  IOX6HORQPST,F9.2  //  10 X5 HS FX IT  , F 10 . 2 

2 //  ICXRHSCSWR ,F  10.2  II  1 CX 5HXCGD 1 , F 10 . 2 / ) 

wRiTnNe,ao?5)  xlpoy,  xnoz 

I FORMATI  10X5HXI PnY,Fl0.2  II  I 0 X4H XNOZ , F 1 1 . 2 / ) 

WR  ITFINe,  7948)  KBYCST 
1 FORMATI  30X,  eHKRYCST,  19  / ) 

IF  I YISPIl)  .NF.  O.C  ) WRI TE(N6, NAMAB) 

IFISMflr>i(2)  .NF.  0.0  ) WRITE  (N6,NAMAC) 

IFISMACHII2)  .NF.  0.0  ) WR  1 TF  I N6  , NAM  AO  ) 

, rONTINUF 
K0Y2I  1) =KPYPSM 
KPY2( 2)=KRYnPr 
on  TO  900 

IFI  Z3  .GT.  7 ) GO  TP  45 
on  TO  902 

; IF!  z 3 .GT.  0 ) GO  TO  46 


i IFI  7 3 .GT.  0 ) GO  TO  46  rMr<;5910 

INPUT  FOp  AFPnOYNAM  10  S F''GS5920 

M IX  = NLI X ♦ fl  CMOS  50  30 

IF  ( NL  IX  .GT.  5C  ) CALL  PAGE  rMC<;5940 

ML  INF  = MINE  ♦ 8 OMnsSoSO 

RFAO  I N5,  T'AMCNF  ) rvGS5gf,o 

IFI  IMPP  TN.LF.O)  GO  TP  8593  OMf, 95970 

WPITFIMe,  853  I ) pmgsSQRO 

I FORMAT!  Ill  2CX,3lHCnNF IGURATI ON  OPTIONS  OATA  LIST  H fMrRSQOO 

1 29X,  I 5HNAMCNF  NAMELIST  llll  1 4X  9HA  IR  FP  A MF , 15X4HWING,  O.Mrseoon 

2 I6X4HTAIL, 10X13HVFPTICAL  TAIL  II  ) OMpShOlO 

WPlTr(N6,  8532)  FAG TOR,FSnvCW,F  SO  VC T , AR VT , I L UG ,GULT , GUI T ,FSOVVT  GMGS6O20 

» FroMATI  lPX6HFACTnR  ,F9.2,  5X6HF  SOVC  W , F 9.  2 , 5 X6HF  SCVCT  , F9 . 2 , rMr9f,030 

1 >=X4HAR  VT,  Fll  .4  H 10  >4H  I LUG  , 1 1 1 , 5 X4HG  UL  T , F 1 1 . 2 , OMGS6040 

2 5X4FGULT,ril.2,  5X6HF SO VVT  ,F 9. 2 / ) FM^^bOPO 

WP ITF INe, 0533 ) THFTAC , IPL ANW,I PL ANT.PANWVT.WGVAST, IWTS, 1 WTS, PX INVTrMG96040 

1 FORMAT!  10X6l->THFTAr  ,F9. 4,  5 X6H 1 PL  ANW  , 1 9 , 5 X6H I PL  ANT  , 1 9 , OrGSeOTO 

1 5X6FPANWVT,F9.2  II  1 CX6H WO VA S T ,F 9. 2 , 5 X4H I WTS , I 1 1 , GmgS60P0 

2 5X4HWTS,Ill,  5X6HRXINVT,F9.2  / ) GMGS6090 

WF ITF (K6,  85  34  ) 7 POP T , R L 5 , PA NWH T, SLEVT.ZSKINI  ,RMDES  , PANWT ,ST FVT  Fm^s^ioo 


GMGS5560 
gmgsssto 
CMGS55R0 
rMGS5«590 
GMGS5600 
GMGS5610 
GMGS5620 
) GMGS563n 
CM GS 5640 
OMGS5650 
0MGS5660 
CMrS5670 
GMGS5680 
rMGS5690 
GMGS5700 
0MGS571O 
r“r9S7?o 
rMGS5730 
GM  GS5740 
GM  ISSTPO 
GMGS576n 
GMrS5770 
GMGS5780 
CMGS5790 
GMOS5ROO 
GM0S58 10 
GMGS50?n 
G.MGS58T0 
OMGS  5840 
rMGS5P90 
0 MGSSPGO 

omgssrto 

GMGSSBRO 
OMf.SSBOO 
GMGSSPOO 
rMG9591 0 
F''GS59  20 
GMrS59  30 
rMG95940 
OMGSSoSO 
0MG95960 
rMG95q70 
r MGS  59 80 
rMrs599o 
G.MrsGOon 
0Mr,S60i  0 
GMGS6O20 
rMrs6030 
GMGS6040 
FMGSbOSO 


La 
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) C4LL  t'AGE 


» FrpMAT(  lOX5HZPnPT,FlO.Ot  5 X3HP  L5  »F  12 .2  t 5X6HPANHHT  f F9.2  t 

1 ?'X5HSL'=VT,F  1C.2  //  I CX6HZSKI  NI  .F9.2  t SXSHRMDES  |F10.2, 

2 5X5HPANWT,FlC.2t  5XSH  STE  V T ,F  10 . 2 / ) 

V<P  lTF(K'6,a535  ) ZHSKIN, 

1 R XINW.RXI NT, TRAVT, SLEW, SLET.TRVT 

5 FrRMATI  10X6FZWSKTN,F9.2,  5X, 

A 5HPXINW, FIO.2,  5 X5HR XI N T,F 10. 2 , 5 X5H TR AVT  ,F10 .4  // 

1 30X4HSLEW,Fl 1.2,  5X4HSLE T ,Fl 1. 2 , 5 X4HTRVT  , F 1 1 . ^ f ) 

WP  !TF(N6, 8536)  STFW, STET, VTALOC , TRAW,TP AT ,WnVAVT 

> FCRM AT( 30XAHSTEW,F  11.2,  5X AH S TF T ,F 1 1 . 2 , 5 X6HVTAL0C  ,F9.?  // 

1 30XAHTRAW,F  11, A,  5X AHTR AT , F 1 1 . A , 5 X6HW0 VA VT  ,F9 .2  / ) 

WP  IT  FIN  6,  853  7 ) TR  V>,  TR  T , WO  VAW  , WOV  AHT  , WWI  NGI  , WOV  AT  ,WT  I 
r FrRHATI  30X3I-TR  W,F12.A,  5X  3HTR  T,  F 12.  A //  3 OX5HWOVAW,  FIO  .2  , 

1 5X6HWnVAHT,F9.2  //  30X6HMWINGI  ,F9.2 , SXSHWOVAT  ,F10. 2 // 

2 50X3HWTI ,F12.?  //  ) 

WP  ITE(N6,85AP) 

I FORMAT! 7X, 52FALTITU0ES  AND  MACH  NO.  USED  IN  COMPUTING  AFRO  TABLES 
1 ) 

WRIT  FI M 6, 8538)  NALT.IALTVII) ,I =1 ,NALT) 

! FOpmaTI  lOXAHNAL T, I 5/  lOXAHA L T V ,5 X ,5F 1 0. 0/  19X5F10.0  ) 

WRITFIN6,  8535)  NPM , I RM VI  I ) , I = 1 ,NR M ) 

) FrRVATI  10X3HNRM,I6/  10 X3HRM V6X , 10F6. 2/  19X10F6.2  ) 

CALL  PACF 
I rONTINUF 
GO  TH  902 

: ir  I X3  .GT.  9 ) GO  TO  902 

NLIX  = NLI»  ♦ 8 

IP  I NLIX  .GT.  50  ) CALL  PAGE 
M INF  = HI.  INE  ♦ 8 
RFAO  I N5,  NAMPAK  ) 

IP  I INPP  IN  .GT.  0 ) WRITE  I N6,  NAMRAK  ) 

or  TO  900 

i IF  I Z3.GT.7  ) GO  TO  58 
CALI  PPPTG 
Cr  TP  900 

I IF  I 73  .GT.  o ) GO  TO  59  ' 

NL  IX  = NL  I X ♦ 10 

IF  I NLIX  .GT.  50  ) CALL  PAGE 
NL  INF  NL  INF  ♦ 10 
IF  I 7A  .GT.  0 ) GO  TO  581 

RFAf'  I N5,  NAmroC  ) 

IF  I INPPIN  .LF.  0 ) GO  TO  8693 
WP  ITE(N6,86?1) 

. FORMAT!  /////  35X,  AOHPCrSTE  R DATA  LIST  IINTEGRAl  OP  EXTERNAL) 

1 //  A6X, 15HNAMBOO  NAMELIST  ////  ) 

WOITF|N6,f'6??}  ABM,FPI,G  AM  , R MC  W , RNT  M , AE  R , E T A X , G M A X , PME5  W , RNT  WM 

> FPRM ATI  10X3HABM, F12.A,  5 X3HEPI  ,E  1 2. A , 5X3HGAM,F 12.A , 

1 'X  AHP“CW,F  U.2,  5XAHRNTM,F11.A  //  I 0X3H  AF  R , El  2 .A, 

2 SXAPFTAX.Fll.A,  5XAHGMAX,F11,2,  5X5HRHFSW, F 10.2 , 

3 5X5FPNTWM,F10.A  / ) 

WRITF('N6,  8623)  A FA  T , FPM  , PA  ,RME  W , SAW,  A1  T ,FCWM  , PPEL  L , RM  I W ,S  F M 
1 FORMAT!  IOVahaFAT,F11. A,  5X 3HFB M,F 12 . A , 5X2HP A , F13 . 2 , 

1 EXAHPMFW.Fll  .7,  5X3HSAW,F1|. A //  1 0X3H AI T ,F I 2 . A , 

2 AXAHFPWM, F 1 1 .A,  5X5HP R FL L , F 1 0 . 2,  5XAHRMI W ,F 1 I . A, 

3 5X3FSFM, F 12. 7 I ) 
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) WRITE  ( N6,  NAMRAK  ) 


CALL  PAGE 


) GO  TO  581 


CMGS6I10 
CMOS  6 120 
CMGS6130 
rMGS61A0 
CMGS6150 
CM G5 6 160 
PMGS6170 
PMG561R0 
rMP,S6  190 
rMGS6200 
r“G56210 
rMG<;6220 
GMGS6230 
PMGS62A0 
rMG96250 
CMGS6Z60 
fMGS6  270 
r«G56?R0 
GMGS6290 
r MGS6300 
rMG56310 
rMGS6320 
rMGS6330 
P“GS63A0 
C«PS6350 
rMr9(S360 
r MGS  6 3 70 
r«GS6  aRo 
GM G56390 
P“GS6A00 
r.MGS6AlO 
r3'GS6A20 
PM  GS  6 A on 
rMGS6AA0 
C«G56A50 
rMGSft/,60 
P''G56A70 
rw  GS6AR  0 
r^GSAAPO 
PNGS6500 
G‘'GS65I0 
PMGS6  5 20 
P«GS6530 
r''GS65A0 
CM  GS  6 5 80 
rMr<;6560 
PMGS6579 
rMrs65R0 
GMG56590 
CMGS6600 
rMG56610 
GMGS6620 
CMP,S66T0 
f Mr,96AA0 
rMGS6650 


■ 


t 


wp ITF(N6, » A SL ,FFR, PC .RNflHM, TC A SFF . AS^ tP IT  t PCM , PNEC ,T L 
8f.2'i  FFRMAK  inx3FASL  ,F12.4,  5X  3HFF  R ,F  1 2. 4 t 5X2HPC,  F13  .0  , 

1 5X5FPMBWM ,F 10. 3f  5X6HTC ASEF ,F 9.4  //  10X3HASM, F12.4 , 

2 5X3FFIT,F12.4,  5X3HPCM t F 12 . 0 t 5 X4HRNEC tE 1 1 . 3 t 

3 5X2HTL,F13.4  / ) 

V»P  ITE(  NF,  B625  ) ASWM,FJ,PHI  , RNECC  » TMI  N,C  ASEM  ,FMPAH  , FSU  P,  RNECl.TTH 

8625  form AT(  lOXAHASWM ,F 11.4,  5X2HF J,F 1 3. 4 , 5 X3HPH I ,F12 . 2 , 

1 5X5FPMFrC,E  10.4,  5X4HTMI  ,Fl  1 . 4 //  I 0X5HC  ASEM  , F 10  .4  , 

2 5X5HFMPAH,F  10.4,  5X4HPSUfl »F1 1 . 2 , 5 X5HRNEC1 1 F 10 . 2 t 

3 5X3FTTF, F12.4  / ) 

WPITE(N6,  862F > CSTAR.FSL  ,RBOSS  ,RN EC2 , VRFH , DENI , FSULX , RHDP , RNF C3 

8626  FrPMATI  lOXSHCSTAP ,Fl 0.2,  5X3HFSL  ,F12.4,  5X5HRB0SS, F 10.4, 

1 5X5HPN!  EC  2,F  10.2,  5X4HVRFH  ,F1 1.4  //  I 0X4H0FNI  ,F  1 1.4  , 

2 5X5EFSUL X,F  10.4,  5X4HRHnP ,F1 1 .4,  5 X5HRNFC3 ,F10 .2  / I 
WPITFINF, 8627)  nLFS,FSWM,  RMASW,  RNMW,EAR,  FSYLX,RMAW,  RNRM 

8627  FPRM «T(  10X4HnLFS,F  11.4,  5X4HF SWM ,F 1 1 . 4 , 5X5HRM ASH, FIO .4 , 

1 5X4HPNMW, FI  1 .2  //  10X3HEAR tFl2.4,  5 X5HF S YLX ,Fl 0.4 , 

2 5X4HPMSW,F11.4,  5X4HRNRM,Fll .2  / ) 

CALI  PACE 

8653  CPNTINIJF 
CP  TP  902 
5El  CrNTINUF 

REAP  ( N5,  NAMFXB  ) 

IF( INPPIM.LF.O)  GO  TP  8293 
WPITFCMF, 82211 

8221  FPRMAK///  20<,26HEXTERNAL  BOOSTER  DATA  LIST  // 

1 25X, 1 5HNAMFXB  NAMELIST  ///  ) 

V'PITE(N6,8222)  C 1, CLEAR  ,PHnTHT,  TI  NAFT,  C2  , EL  ,RHOX,  T I NS 

8222  E'^RMATC  10X2HC1,  F13.2»  5X  5HC  LE  AR  ,F  1 0.  2 t 5 X6HRH0THT  , F9 .4  , 

1 5X6HTINAFT, F9.2  //  10 X2HC 2 ,F I 3 . 2 , 5 X2HE L ,F 1 3. 2 , 

2 5X4HRHPX, Fll .4,  5 X4H T I N S ,F  1 1 . 2 / ) 

WPITF(M6,  822  3)  C 3, mtl R AM, TEMPO , TM I NC , C4, RHOENT , TE NT , TM I NO 

8223  FPRM AT(  10X2HC 3, F 13.2,  5X 6HM TLR AM , 1 9 , 5 X5HTEMPC , F 10 .0  , 

1 SXSFT'^  INC, F 10.2  //  1 0X2HC  4 ,F  1 3.  2 , 5 X6HRH0ENT  ,F9  .4  , 

2 5X4FTENT,F11.2,  5X5HTMI NO ,F I 0. 2 / ) 

WP1TF(N6,  8 22  4)  C 5, R HO E XT , TE X 1 T ,TTHROT ,C6 , RHOI  N, TEXTFP, 

1 WHARNStTHFTA.XSTAR 

8224  FPRmatI  10X2HC5,F13.2,  5X6HRH0E XT , F9. 4 , 5 X5H TE X I T ,F 10. 2 , 

1 5X6HTTHR0T, FS.2  //  1 0X2HC6  ,F I 3. 2 t 5 X5HRHCI N ,F 1 0. 4 , 

2 5X6HTFXTER,FC.2,  5X 6H WH ARN S , F 9. 2 // 

3 50X5HTheTA,F  10.2t  5X5HXSTAR,F 10. 2 / ) 

CAM  PAGF 

8293  CFNTINIIE 
GP  TP  902 

5P  IF  I Z’  .GT.  11  ) GO  TO  159 

NLIX  = NLI^  ^ 6 

IF  ( Nl  IX  .GT.  50  ) CALL  PAGE 
REAP  C N5,  NAMSR  ) 

IF(  IMPP  U'.lE.O)  go  to  8393 
WRITE! M(,  832  1 ) 

8321  EPRMATI////  2CX,32HSnLin  ROCKET  SUSTAINER  DATA  LIST  If 
1 29X,14HNAMSP  namelist  ///  J 

WPITFIN6,8322»  AIAT,  PHINOZ,  RHOSf  APAT,  REAM,  SIGMTL 

8322  FORM  ATI  10X4HA  IAT,F  11.4,  5X 6H PH  I NO Z i F 9. 2 , 5 X4HRH0S , F 1 1 .4  // 

1 I0X4HAPAT,F  11.4,  5X4HR E AH , F 1 1 . 2,  5X6H SI GM TL t F9 .0  / ) 


C«GS6660 
CMG96670 
CMGS6680 
rMGS66O0 
rMG96700 
CMGS6710 
CMGS6720 
CMG96730 
CMGS6740 
0^056750 
CMGS6760 
CMGS6770 
rMGS67R0 
rMGS6790 
C,Mr,S(S800 
rMG968  10 
CMGS6820 
C»*GS6fl30 
CMGS6840 
rMG<;f>fl50 
r'*GS6fl60 
C,MGS6870 
CMGSGRRO 
rMGS6890 
CMGS69nO 
C.MGS6910 
rMGS69?0 
CMG9693n 
CMGS6940 
CMGS6950 
rMGS6960 
rMGS6O70 
CMGS69R0 
r,“G96990 
C.MG97000 
CM 08  70  10 
rMGS7020 
FWGS7030 
rvG97040 
r"GS7050 
rvGS7n60 
rMr,<;7070 
C«GS70a0 
r''GS7090 
CYCS?  100 
rvr,«;7  1 10 
r«G97120 
CMGS71 30 
CMG9  7140 
rMGS7  150 
CMGS7160 
CM  GS  7 I 70 
C"GS71P0 
rMC.97  190 
CMGS7200 
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KP1TF(^6,R^23)  FTACF,REFH,TIC,FXPRR,RH0ISS#TRATIC, 

1 PPFL  S.RHORTL  .WMSni 

} FPR^'AT(  lOXFHFTACF.F  lO.A,  5 REF  H , F U . 2 , 5 X3  HT  I C f F 1 2 . 2 // 

1 10X5FFXPRR  ,F10.^,  5X6HRHCI  SS.F9.^,  5 X6HTR  A T I Cl  , F9 . 2 // 

2 inX5FP°FL  StF  10.  2,  5X6HRHCMTLtF9. 't,  5 XSHWMSOL  t FI  0 .2  / ) 

WPfTF(F  t, 7927)  FTSI SP.CSTAR I ,CSTAR2 

^ FCRMAK 10X6HETSI SP,F9.4  //  10X6HCSTAR1,  F9.2  // 

I inx6Hr9TAR2f  F9.2  / ) 

CALL  PACF 
I crNTiNur 
NL  INF  = ML  IMF  + t 
PFIFOR  = PFlvnZ  / RAD 
Gn  TO  902 

1 IF  ( 73  .GT.  12  ) on  TO  1159 

M L I X = NL  I X 6 

IF  ( NL IX  .GT.  5C  ) CALL  PAGE 
NL  INE  = NL  INE  + t 
R FAOI  N5  .f'ANl  R ) 

IF( IWPF IN .L E .0)  GO  TO  8493 
WP I T F(N6, P42  1 I 

L FCRMATI  ///  30X, 33HLI0Uin  ROCKET  9USTAINER  DATA  LIST  // 

1 39X,14HrAMlR  NAMEIIST  tut  ) 

WR  ITF(M6,R422  ) DPT , P 1 , PBELLL i TFR AC t E T ACL  , P2 tPS T AR  , TR AT  I L 
' FPR«AT(  inX3F'rflT,FI2.4,  5 X2H  P 1 , F I 3. 2 , 5 X6HPRELLL  ,F9 . 2, 

1 ^XSFTFPAC.F  10.4  n 1CX5HE TACL,F10.4,  5 X2HP? ,f I 3 .4 , 

2 5X FFP STAP , r 10. 2,  5X6HTRATI L,F9.4  / ) 

K'P  ITT  <M6,  fl«23  ) FTA  I SP  fP3  fP  T,  E XSl  » P4  , PVPX  , W R I SCL 

I FPRmmi  i''X(<-HFTAISPfF9.4,  5 X2HP  3 , F 1 3.  4 , 5 X2HP  T ,F  I 3 . 2 , 

1 //  10X4HEXS1,F11.4,  5 X2H P4 ,F I 3. 6 , 

2 5X/,pPVnx  ,F  1 1 .2  . 5X6HWM1  <rLfF9.2  / ) 

WP  I TF (N  6,  3 4 24  ) I TANK,P5,RFHfW0VACl 1 1 WT ANK , P6 , RHOF , WCV AC 2 
. FOP”  ATI  inxSF'ITANK,  I 10,  5X  2HP  5 , F 1 3. 6 , 5 X3HREH  ,F  1 2 .2  , 

1 5X6HWnVAr 1, F9.4  //  10X6HIWTANK,I 9,  5X2HP6 ,F 13  .6 , 

2 5X4FFHF'F,F11.2,  5XtH1.0VAC2  ,F9.4  / ) 

WR  I TF I N6, 3425  ) MpTAL ,P7,RHnOX, WOVANl , P8 , SAF AC , WCV AN2 , T Cw I , XOl  NIS 
i FORMAT!  1PX5HNFTA1  , I in,  5X2MP 7, F I 3 . 6 , 5 X5HRHD0X ,F 10 .2  , 

1 5X6FWnVAN  1,  F9.<i  //  3 O X 2H  P 8 ,F  1 3 . 6 , 5 X5H  S A F AC  ,F  1 0 . 2 , 

2 5X6HWOVAM2,  F9.4  //  5 PX  4H  TC  WI  , F 1 1 . 4 , 5 X6H  XOL  N I S , F9 . 2 / ) 

PAI  I PACF 

! rCMTINUF 
) ro  TO  9C2 

^ continue 

IF  ( 73  .GT.  1C  ) GO  TO  160 

fMDiiT  FOF  PPOPULFION  SI7ING 
IF  (7  3 .r.T.  I ) GO  TP  t2 
Ml  IX  = Ml  I X ♦ 15 

IF  ( NLIX  .GT.  50  ) call  page 

M INF  = ML  INE  ♦ 1 

PFAD  ( N5,  NAMPJS  ) 

IF  I INPRIN  .LF  . 0 ) GO  TO  8793 
WBITF  (N6,a721) 

, FORMAT!  /////  28X,26HPAHJET  SUSTAINER  DATA  LIST  // 

1 34X, 15HNAMR JS  NAMELIST  ///  ) 

WFITF|M<:,d7?2)  AtMAX,FXIN,PKD,  TBLA0,A6MI  N,FSLBn,  PN2  ,TCASFC 
I f PRM AT!  lOX 5HA6M AX , F 10. 4,  5 X4HE XI N ,F  1 1 . 3 , 5 X3 HPKD ,F  1 2 . 2, 
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OMGS72  10 
rMGS7220 
CMGS7230 
rMGS7?40 
rwGS7?50 
CM  G5 7 260 
OMGS72rO 
CMGS72flO 
CM  os 7 290 
CMCS73nO 
rMGS7310 
CMGS7320 
fmgS  7330 
CMGS734n 
rMGS7350 
CMOS  7360 
rMGS7370 
CMGS73flO 
rMGS7390 
rMGS74no 
CMrS7410 
CM  PS 7 4 20 
rMGS7430 
OMGS  7440 
CMGS7450 
r.MGS  7460 
F«GS  7470 
rMGS74P0 
CMOS  7 490 
CMrs75no 
CMGS  7510 
CMOS  7520 
CMGSTS  30 
oMr,S7540 
CMGSTSSO 
CMGS7560 
'■Mr,S7570 
c”rs75no 
FMGS  7590 
rMG57.,nO 

fmgstg in 
CMOS  76 20 
FM GS 76 >0 
CM GS  76  40 
fMr.S7630 
rM-;G7660 
'■MGS  7670 
CMrs76P0 
CMCS76nO 
'■MGS77nO 
rMGS771  0 
CMGS772n 
rMGS7730 
FMGS  7740 
rMrs773a 


1 5X5HTPI  A0,F10.3//  1 0X5H  A 6MI  N ,F  I C.  ^ . 5 X5HF  SL80  ,F  10 . 3 , 

2 5X3HPM?,F  12.0,  5X6HTCASEC,  F9.3  / ) 

WPlTFlFft, R72J)  ACMAX,FTUS,PT4l  ,TFUE L , AL ,F TYS, PT42 , THGG 
8723  FrPMATl  lOX  5H  ACM  A X , F I 0 .4  , 5 X4HFTUS  ,F  U . 3 , 5X<iHPT41  , FI  1 . 0 , 

1 5X5HTFt)FL,  F 10.2  //  1CX2HAL  ,F13.4,  5 X4HFT  YS  ,F  1 1 , 3 , 

2 5X4HPTA2,F11.0,  5X<»HTHGG,Fll.2  / ) 

WP|TF(M6,872‘4)  A NN  , GMF  , P T43  , TM  AX  , COB  , I FTYPE  ,RGD,  TSUS 

872A  FPBM ATI  10X3HANN , F12.A,  5X 3HGMF ,F 12. 3 , 5 XAHPT43 , FI I .0 , 

1 5X4HTMAX, FI  1.2  //  10X3HC0B ,F 12 . 2,  5X6H I F TYPE , 1 9 , 

2 5X3HRGr, F12.2,  5X4HTSUS  ,F  1 1 .2  / J 

WP1TF(M(, 8725)  CLX,KFM,  RHOINStULLG,  C NM, MATPB, RHC P JF , VPP 
e72S  FfiRMATl  10X3HCLX,F12.2,5X3HKFM,I  12,  5X6HRHGI  NS  ,F9 .3, 

1 5XAHIILLG,F  ll.A  //  10X3HCNM,F12.A,  5X5HMATPR  , 1 10  , 

2 5Xf>HRFnPJF,F9.2,  5X3HVPP,F12.4  / J 

WP1TF(I'J6,87?6)  net  T4,MATTK  ,RCB  ,X1  , DROF  ,NR,  RU,  X2 

872^  rrRM/iTl  inxSFOFL  TA,F10,0,  5X  5HMA  TTK  , I 1 0 , 5 X3HRCP  , F 12 . 3 , 

1 5X2HX  UFn.'i  //  lCXAHnRnF,Fll.2,  5X2HNB,I13, 

2 5X2HPU,F  13.3,  5X2HX2,F13.^  / ) 

WR TTFlNt, 8727)  E OP , SPPWF,XMnMR,  EEXP,POF 

8727  FORMAT!  10X3HFnR ,F  12.2,  20X,  5 X5HSPPWF  ,F  10. 3 , 

I 5XSHXMnMR,F  lO.A  //  1 OX  AHF  E XP  ,F  1 1 . 2 , 5 X3HPr)F  ,F  1 2 . 3 ) 

CALL  PAGE 
e7'3  CCNTINUF 
GP  TP  PC2 

£7  IF  (7  3 .GT  . 2 ) GP  TP  63 
MIX  = ML  I X + 18 

IF  ( ML  IX  .GT.  50  ) CALL  PAGF 

NL  INF  = ML  IMF  ♦ 15 
GP  TP  OC2 

£3  IF  (73  .GT.  3 ) GP  TP  6A 
GF  TP  902 

6^  IF  (7  3 .GT.  8 ) GP  TP  65 
GO  Tf'  902 

£5  IF  (73  .GT.  5 ) GP  TO  66 
NL  I X = NL  IX  ♦ 10 

IF  ( NLIX  .GT.  50  ) CALL  PAGE 

NLINF  = NL INF  + 10 
GP  Tn  902 

£6  IF  ( 73  .GT.  £ ) GP  TO  68 
KPJF  = 1 

CALL  RJINPT  ( 7A,  NRAMP,  INPRIN,  75  ) 

GP  TO  902 

KO  IF  ( 73  .GT.  20  ) GO  TO  260 

IF  ( 73  .GT.  15  ) GO  TO  167 

INPUT  FOP  VEHICLE  PERFORMANCE 
READ  ( N5,  NAMVPM  ) 

TF  ( INPRIN  .LE.  0)  GO  TP  0<,5C 
WPITF(N6,8A15) 

RA15  FPPMATI//  5X , 29H TR A J FC TOR Y PHASE  CCNTROL  LIST  //  ) 
WPITF(T'£,8A13)  NCPHA7,  ALTI,  FARMAX,  NDPHAZ,  GAMMAI, 

1 TPCMGN,  TTAMAX 

8A13  FPRMATI/  3X £ HNC PHA 7 , I 7 , 2X4HAL TI , F 10. 0 , 3X6HF ARMAX ,F9.4  // 

1 3X6HNnPHA7 , I 7,  3X6HG AMMA I ,F 8. 4 , 

2 3X6HTPGMGN,  F9.3  //  36X6H  TT<,MAX , F9.0  / » 

WPITF(N£, 831A)  NLPHA7,  MQPT,  N7LLRI,  VFLI,  XMACHI 


CM GST 7 60 
PMGSTTTO 
CMGS77nO 
GMGSTTQO 
CMGSTSOO 
r.MGS7810 
rNGS7820 
rMGS7830 
CMGS78-iO 
r,MGS7a50 
rMGS7860 
CMPS7870 
CMGS7H80 
rMGS7890 
CNGS  7900 
CMGS7910 
rNCS7920 
CMGS7930 
CM  GS7990 
CMGS7950 
CMGS7960 
pngstoto 

0^057980 
r“GS7990 
G“GSR00n 
GMGSPOIO 
CMGS8020 
CMGSBOTO 
P.MGSROAO 
TMPS  PO  80 
r‘'GSR060 
C'^rsPOTo 
pv 088080 
'■''058090 
CMGSP  100 
PNGSPl 10 
pNOsa 120 
FMGSP  no 

CMGSP  140 
CMGSPISO 
rMGS8160 
r.MCSRl  70 
FMOSq ino 

FMGss  no 

fMCSR  200 
CMGSP210 
rMr.S8220 
PMr,«;8230 
rMGS8240 
rMGS825'3 
CMGS8260 
CMGSP2rO 
CMCSR280 
rMGS8290 
CMGS8300 


0-»1^  rrRMAT(  PHAZ,I7f  3X4HW0PT,I10  //  3X6HNZ  LLR  1 1 1 7 , 

1 3XAHVF1  I ,F  10.2  //  ISX6HXMACHI  , F8.2  ) 

^.0  ITF(M6»0A27  » 

8^37  FORMAT!  //  ) 

WP  I TF(  F 6f  17  ) 

0A17  FORMAT!  5X3hMn..  PXfHALPMA  X,6X4HALTF  t 1X6HANZMAX,  5X6HFVALUF, 

1 IXtHGAMMAF,  1X5H1C0NT,  lX6HIPTYPe,  IX5HITFRM,  1X5HMHGFN, 

2 lX5HMnrES,  1X5HNAER0,  IX6HXMACHF,  IX6HZPRINT, 

3 2y7jHTPMA«;F , ZXFHTTOTAL,  IX5HSL0PE  / ) 

rr  8475  F'P  = It  20 

IF  1 ICONTINP)  .IE.  0 ) GO  TO  8430 

VJRITF(N6,S4?7I  \ P,  ALP  MA  X I NP  ) t ALTF  ( NP)  , ANZ  HAX  ( NPl  , FV  ALU  E ( NP  ) , 

1 GAMMAF!^4P),  1C0NT(NP|,  IPTYPE(NP),  ITERM(NP),  PHGEN!NP), 

2 MOOFSINPI,  NAEROIMP),  XMACHFINP),  ZPRINTINPJ 

3 t TPHA?F!NP),  TTOTALlNPlt  SLOPE{NP) 

84  75  CONTINUE 

84  2 7 form  AT!  5X,  13, 2X,R6.  l,F  lO.OtF  7.  l.Fn.2  tF7,2  » 16 ,17  f4I6,F7.2,F7.  It 
I F8.1,  F8.  1,  F6.0  ) 

8430  CCNTINUF 
WRITF!M6t  8431  ) 

8431  FORMAT!//  EXtSOUDALPH  HALT  OCFN  OELMAX  DHCL  OMACH  , 

1 43HnMIN  njTART  nvCL  EREF  ERRFAC  GKG  GKV  t 

2 SOHGKVrPL'  GTOPT  RANGE!  RTOL  TI  MEI  ) 

WPlTE!N6t  8432  ) 0 AL PH , OAL T ,OCF N ,0F L PA  X , DHCL , OM ACM , CM  I N, OST ART , 

1 nVCL  t F'’ FFtERR  FAC  ,GKG  ,GK  V,GKVCRU  ,GT OPT  , R ANGE  I , R TCL  , T I MF  I 

843?  FORMAT!  5X,F5.3t  F7.0,  F5.2,  F 7. I , F7.0t  F6.2t  F6.4,  F7.3,  F6.0, 
I 08. 6t  F7.1,  F4.1,  F6.4,  F7.1,  F6.  I , F7.1,  F5.1,  F6.  I ) 
r 

R4'>3  FORMAT!//  5Xt6HIPROPl,  IX6HJPRINT,  1X6HMXSTFP,  IX5HMRYS  ) 

9^34  form  AT!  EX,  16 t ?I T t I 6 ) 

WPITFIN6,  8437  ) 
no  8440  Nt>  = l,  ?0 
ICTS  = irONTINP) 

IF  ! ! ICTS. IF. 0)  .OP.  (ICTS. GT. 12)  ) GO  TO  8440 

NPI  = 10  * NP  - 9 

NPO  = NPI  ♦ 200 

NPI!  = 10  ♦ NP 

NPOL  = NPIL  ♦ 200 

WP IT F INF,  3442)  NP, (CONOZ I I) , I =NP I , NP I L ) , 

1 MP, (CONDZI I ) , I=NPn,NPOL) 

8442  FORMAT  ! 5X4HCOMI,I2,  IOFIO.2/  5X4HC0ND,I2,  10F10.2  /) 

8440  rONT  INUF 
84E0  CPNTINIIF 

IF  ! 75  .1  T.  1 ) 75  = 1 
IF  ! 7*^  .GT.  5 ) on  TO  8409 
A'TRAI  = MAXC  ( NTRAJ,  75  ) 

C SFP  TRAJ  PARAM  INTO  STORAGE  - INPUT  VALUES 

Cr  8407  ! TR  = 1 , t70 

84C7  TROON!  ITR , 75  I = TPYSOMIfTR) 

CO  1979  ITR  = 1,10P 
1979  TPMOR!  I TP  , 75  I = TPFIXIITP) 

84CO  CONTINUF 

C PFSFT  THAJ  PARAM  FOR  FIRST  TRAJ 

no  1075  ITR  = 1,  102 
1976  TRFIXlITR)  = TRMOPIITP,!) 


C«  CSS  3 10 
rMr,«;9 
'■MGSn330 
CM  05  8 340 
r,MGS‘’350 
(“MGSH  360 
CMGS8370 
rMGS83PO 

I'M  G5  83  or) 

CMGS84no 
r.MGSP4lO 
CMr,S°4  2vO 
CMOS 8 4 00 
rMCS8440 
rMGS8450 
CMGS8460 
r.MG5  84  70 
rMG:848o 
CMGS8490 
CMGsasoo 

CMOS  8 5 10 
rMGS85?0 
r«GS8530 
rMr,sa54n 
r,MGS°550 
rMGS8560 
CMGS8570 
CMCsasao 
CMGsason 
CMr,5fl800 
(‘MGS8610 
••MGSROZO 
CMGS^GOO 
CvgsPOAO 
FM  GS8650 
rMGS8660 
fMr.sRhTO 

rMr.58483 

|■M''5d6'n 
CMGPR/m 
rMfSR  7 10 
'•M  GSR  72  0 
r“GS8  730 
r''GSS740 
r«GS  R750 
rMr,S3  760 
rMGSR770 
rMOSRTRO 
CMGSa790 
CMGSPROO 
rMGSPRl 0 

^ mgs 8 8 20 
r,MrsRB30 
CM  GSPH40 
'■MGSPRRO 


1 


! 


MA  56 


I 

i 


i 

E 

I 

i 


! 


rn  1575  ITt’  = 1,  6 70 

C^r,SPR60 

1575 

TPYSn^KlTP)  = TPCON  (I  TR  ,1  ) 

GM  GS  8870 

or  TO  cco 

r “GSP800 

167 

IF  ( 2 ■>  .GT.  17  ) on  TO  168 

r^GSPRoo 

Gr  rn  802 

GMGSpqnO 

16R 

IP  ( 13  .GT.  18  ) GO  TO  902 

GMGS8910 

Gr  TO  goo 

GMG5Rg20 

260 

CPNT INUF 

C'^GS8030 

GG  TP  5C2 

G''GS8990 

68 

IP  ( 73  .GT.  8 ) Gn  TP  902 

r«G9flq50 

RFAT  ( N5,  NA^TJ  ) 

G.*-*  GSR 9 60 

AIFTX  = ALFTJ 

GmgS9'’70 

IF  ( IF'PP  IN  .GT.  0 1 WRITP  ( N6f 

NAMTJ  ) 

C^'GS8980 

GP  Tn  80n 

f mgs  POOQ 

C 

rMogqooO 

C**Cn 

PFAP  PASIG  TA8LFS 

G«GS90in 

1 

IX  = 7A 

0^099020 

IF  ( ^3.GF.2)  GP  TP  72 

r'<GS9030 

0 < ♦ P 

CAT  ASIG  TABtFS  AN7  STPRF  ON  DA 

DI  SK  11 

PM  GS  9(790 

gall  TBASIGMX) 

G^GSPOSO 

rp  TP  902 

GMGggoEO 

7? 

IF(  IPP  ( 1 ) . PP.C)  V.P  I TF  (6,2002) 

ZCGDE 

GMOsootO 

IF(73.GT.2)  GP  TP  73 

r«<GS9nP,0 

IF(7A.GT.l)  GP  TP  722 

G»r<;o090 

r ♦ < 

TRANPFFP  019K  11  TP  TAPF  2. 

pMGSoi 00 

GAll  TP1102 

CMGS9  1 10 

rn  TO  90  2 

CMGSO120 

c ♦♦♦«> 

TRANSFFP  TAPF  ? TP  DISK  11. 

GM  0591  3 0 

122 

GAl  1 TF021  1 

•■M  GS  9 1 9 0 

GP  TO  CO 2 

CMG59  190 

r ♦ ♦ ♦♦ 

GFLFTF  All  TF^PPPARV  TARLFS  ON 

n I SK  11 

GM  GS9  16  7 

73 

IF  (73.{.T.3)  GP  TP  79 

r“GS°l70 

K = 0 

GMGS9I QO 

rp  7 30  1 I=1,MP.  11 

CMGS91O0 

IF  ( INGX 1 l(  I, 7 ) .GF.O  ) GO  TO  7301 

rMGS97O0 

X = K 1 

PMr.cg  7 10 

INOX  11(1,2)  = 0 

rMrs9  2 2o 

73CI 

GPNT  IFMJF 

GMrS92'’0 

F'Rl  1 = F'P  1 1 - K 

r«<  059240 

IF  (K.GT.O)  NPl  ! = INPX11(NBIU1,9) 

rMr,5O2';0 

rn  TP  902 

GMG59760 

7^ 

gall  TMASIC(IX) 

gmgso  270 

KBASVA  = 1 

G>*GS'J780 

rn  TP  902 

GM  GS9  290 

8 

GPNT INUP 

rMr5O300 

FALL  INCP9T(  73,  INPRIN) 

GMGS«31 0 

CP  TP  9C0 

CMr.59320 

c** 

SPTDP  SFM  WORTH  AND  DFPIVATIVES 

GMrs9  330 

5 

IF  ( 73  .GT  . 1 ) GP  TO  92 

TM  9500  4 0 

PALI  PAGF 

GMGSO350 

PFAp  (N5,NAM2) 

G.Mr,S9  3 60 

WP  ITP  ( N6,  NA  M2) 

GV  GSO070 

ML  lA'F  = Ml  INF  ♦ 9 

G.MGS9  380 

IP  = |PR(9) 

G M 050  300 

r 

GALL  NFMWTH 

GMCS99nO 

I 

i 


I 


H4  57 


S' 

i 

1 

f 

j i 

p 1 


WPITF  (M6,NAM^) 

M IMF  = ML  INF  ♦ A 

rn  th  0,02 

r*0  FUMFh  riiPDS  FTR  WORTH  AND  DERIVATIVES 
S2  IF  (2  3. FT. 2)  r,r  rr  S3 

WP ITF  (M6,NAN3) 

WPITF  ( t>7  , NAM3  ) 

Cr  TP  ROD 

C**  RFAP  WORTH  AND  DERIVATIVES  DIRECTLY 
RT  IF  IZ3.GT.3)  GP  TP  SA 

IF  ( VL INF .GT.5C)  CALL  PAGE 
READ  IN5fMAM2J 

IF  ( INPF  IN  .GT.  0 ) WRITE  (N6,  NAM3  ) 

M inf  = NL  INF  ♦ a 
CC  TP  POO 
DA  rn  TD  S02 

c 

CXX  SYMTHESI2f  CPMPATIPILF  CONFIGURATIONS 
ll  IF  (23.CT.1)  GP  TP  112 

IF  I ZA  .GF.  2 I GP  TO  111 
IF  ( keasva  .lf.c)  go  to  111 
C**RFAr  AMP  WRIT‘S  SETUPS 

C*4*4t  PPMPiVT  IHIL  I TV  MATPIPFS  RED  IF  ZA  = 0 

IX  = ZA 

CALI  SCTUPl  ( IX,  ZE,  KASE,  IXX,  ZA  ) 

IF  ( IXX.NF.O)  NFLAG=NFLAG  + I 
IF  < ZA  .GT.  0 ) GO  TO  HO 

CALI  WPTl(2I 
CALL  PACE 
I ID  rriMT  INl'F 
IX  = 1 

CALI  SF TUP  3 ( I X , Z 5,  Z 6,  I PR  ( E » , NL  1 NE  , NP  AGE  ,PCODE  , I X x ) 

KPASVA  n 

IF  (IXX.NF.O)  NFLAG?  = NFLAG2  + I 
111  COVTINUF 

IX  = 2 

r PfiC  SUPFRVISPPY  NAMELIST  WHICH  QVFRPIOFS  ^1  SC  LISTS 

PFAP  (N5, SUPER) 

IF  ( ZXNR  .LF.  0.  ) ZXNR  = 1. 

IF(  INPP  ir  .LF  .0)  GP  TP  e8S3 
WO ITFINa, 8821  ) 

8821  rpPMATI///  30X,1EHSUPFR  NAMpLIST  / / Zl 3 X I OH TR A JE CT C R Y , 

1 10X1  DHPRPPIJI  SIPN,  10Xl3HCONFlGURATinN  / HXIOHDATA  I TEMP  , 

2 inxiPHOATA  ITFMS,  lOXlCHDAIA  ITE'^S  //  ) 

WPITF<AE,8R22)  ALTI,PCANTA,ART,FARMAX,DIAFR,RPAT 

8822  fshmATI  IOXAHALTI  ,F  12.0,AX6HRCANTA,F10.2 , A X3 HAR T , F I 3 . A // 

I lnX6HFARM AX.EIO.A,  AX5HDI AFR,F11.2,  A XA HRR A T , F I 2 . A/  ) 

WPITKr;E,  8P23)  GAMMAI,  FINE,  ER8T 

8823  EHRMATI  lOXfeHrAMMA  I,F10.2  , 20X,  A XAHE  I N'E  , F I 2 . A // 

I 2fX,  20X,  AXAHFRRT,F12.A  / ) 

WR  ITFINf , 882A)  MCPT,  I AR T,NCPHA Z ,OVMULT  ,I ARW 

882*  FORMAT!  I OX  A E**OP  T , I I 2 , 20X,  AXAHIAPT,I12  // 

I lOXES'TPHAZ  , I in,  AX6HDVMULT,F  10.2,  AXAHIARW,I12  / ) 

WPITF(Nft,88?5)  NnPHAZ,nvTni , I8TL  .NLPHAZ ,I NWCPL , I CNTPL 
8825  form  ATI  lOFfeMNFPHAZ  , I 10,  AX5HD  VTQL  ,F  1 1 . 2 , AXAH!PTL,I12  // 


C“GS9An 
r«GS9A?0 
r MGSDA30 
rMGS9AA0 
C'^  CS9  A50 
FMosPAao 
C'^GS9A70 
CMOS  98 80 
FMGS9A90 

fmgsdsoo 

CMGsgS 10 
r,MGS9  52n 
rMGS9530 
f«GS95A0 
fMGSD^so 
rMGSD860 
PMGSOSZO 
FMrSDSPO 
GMGS950D 
rMGS96D0 
C''GS96in 
rMr,s9620 
rMGS9(S30 
C*^G90  AAO 
rMGSD650 
C“GSO^,fo 
CMOS 98 70 
r^GSDAPO 
GMGsof^co 
r^GSO  700 
rMr5n7  10 
rMGSD720 
F'<GS9  73D 
r“GS97A0 
r8  GSPY50 
F“r,SP  7 80 
rMC8P770 
TM  rsorm 
/-MC8O7O0 
r'-»GS9800 
(-«  rs  DO  I 0 
r^GSP'^  20 
r"GS98  30 

r*'rso8A0 
r«  CSoRso 
FM GAD  8 60 
r*'G89P7n 
r MGS  on  80 
r'*Gso89o 
r*«GS0900 
CM  GSOD  10 
r«GS"P20 
GMr,SQQ30 
GM  nsODAO 
CMGS99E0 


HA  58 


I  lOX  tM^ILPH47  , I 10,  ^Xf)HINHn«L,llO,  ^X6HICNTRL,I10  / ) 
WPITF(N6,P‘^2f)  NZlLRIfl  THR  , I SURF  T , TPC  MGN  , 

I TT4MAX,KINLET,ISU0FW 

8H2ft  Fr«MaT<  10X6H''J7LLR  f,  I 10,  A X4H  I THR  , J I ? , 4 X6H I SURF  T , I 10  ff 
A IOXGHTPCMGM ,F  10. 3 It 

1 10X6HTT4MAX,F10.0,  ^X6HKrNLET,n0,4X6HISURFW,n0/) 

WP  lTF(r:e,  8 827)  VEL  I»KPRnp,tTN,XMACHI  ,MAXNIT,ITSFCT 
8827  FrRMATl  10X4HVFL  I ,F12.?,  ^X5HK PRO P , I I I , 4X3HITN,Ii3  // 

I lOXiSHXMACHI  ,E10.2,  4X6HMAXNI  T,I  10,  ^ X6H  1 T SF  C T , I 10  / ) 

WFITF(r<6,SH28)  rwSFCT,NZTFMp,Kr  M F T , VEO  P ,NW  ,V  I ,W*'ISr, 

1 XL8I'Y,  7XNB 

PP2P  FPRMATlOnX,  16X,  A X6H  I iV  SEC  T , I 1 0 / /3  0X6HN  ZT  FM  P , F 1 0 , 

1 4X6HK  I'll  ET,  I IP  //30XAHVE08  tF  12.2  t 4X2HMW,Il<t  // 

2 30X2HVL,  F K.  2»  ^.X5HWMISC,F11.2  // 

3 30XSHXLflnY,r 11.2  // 

/,  TOXAM/ XMP  , F 12 .0  ) 

Cfil  L PAGE 
POST  rrNTI'JUE 

IE  ( KLNfFi  .CT.  C ) GO  TO  1920 
1920  pruTIMUF 

or  1925  1 = 1,  1C 
19  25  TPCflMir.l)  = TOYSOMIl) 

1^'TYP^  = k INI. FT 
T0M(ip(e3,i)  = Tprvr/.' 

TTMX  = ITM 

lAPTX  = [APT 

TfiPWC  = 1 ARW 

lAPkiX  = lARW 

FPPTX  =ERPT 

^'AFPXI  I)=  ITM 

r'AFRXl  2)=  TFTl 

NAEf'Xl  -')=  ILUG 

NAEPX(  A)=  nw 

NAE'-’XI  5 1=  ICNTPL 

NAEPk(  t )=  TAPT 

MAFFXI  7)=  lARW 

'''AFPXI  10  )=  1 TSFE  T 

M AFPXI  1 U=  IWSEC  T 

F AFPX ( 16)=  IPLOT 

N."FPX  ( 3C  )=  FTGVAR 

VWX  = NW 

IWTPl  = ZPOPT 

WSINPU  = ZWSXIN 

l-PEXX  = HPFXT 

RPAZ  = 8®  AT 

X A?  2(2  1 = TFFTAC 

KINO  = KPROP 

FX(  I ) = PHI'k.Oi7A533 

FX( 2 ) = THETA*. 017A533 

WAHP(7)  = PHI  *.ni7A53?F 

Z PN  AGE.I  I ) = OPNACC 

Z PT  AEEI  1 I = OP  TAf.r 

ZPORFDI  1)  = OPFP  FU 

ITHI  = ITHR 

FACT  = 2.  * ZXNP 


CWGSO960 
E'*  059970 
rMOc;QQnO 
r“ OS 99 90 
r,MGs*ooo 
rwGS  *n in 
r'«GS*n  20 
E«GS*030 
FMGS*nAO 
EM  05*0 50 
r.8G5*0F0 
rwG5*0  70 
fmgs*980 

rMG5*090 

rw  r-s*  100 
r'’G5*l  10 
F'<G5*1  20 
GMCS  *1 30 
rMr,5*iA0 
ISO 
r^GS*  160 
r'^G5*l70 
F''r.5*l  80 
G9Gs*1 90 
FHG5  *2  00 
9905*210 
rMG5*  2 20 
C''!r5*230 
rMn5*2'^o 
r9G5*250 
rros  *260 

9*'0S  «.-770 

'•*'05*  2B0 
E'*  FS  * 290 
^9  95*300 
9*' 05*3  1 ■) 
9»  9,5*82  0 
r M 9.  s * ’ 3 0 
r «•  9,5  * 8 A 0 
9*"-5*850 
9*‘  OS'-  360 
99  '•s  *7  7 ,) 

99G5t,3fn 

99  '', St  39  3 
99  GS*  AO  3 
9 9 ss  *A  1 3 
9 9r,S*  A 2P 
99  r*  t A 8 8 
99  ''StAAT 

99G5*A50 
G-'GStAf  0 
9 9G5  *A  70 
9 99.5*4  80 
99  G5*  AOO 
9>'G5*SOO 
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CA  = rt  ♦ WHARNS  / FACT 

Cmgs*51 0 

ft;  = r.b  * V*HARMS  / FACT 

G«GS*520 

ffult  = rsLl  X 

GMGS  ♦'520 

rcYin  = fsylx 

r.MGS* 

zcnofSi  1)  = coonES 

G'''CS«4  50 

Zl ACFSl  1 ) = CLAPFS 

GMGS*560 

NPPP  = 1 

gmgs^szo 

JPJ  = 1 

CMOS *540 

IFIRST  = 1 

fmgs ♦SOO 

J = 1 

FMGS«6nO 

IF  (WARP!  5 ) .GT.  ICO.  U = C 

G«GS*610 

NPASS  = 0 

GMGS«6?0 

IFX  = 0 

gmgs^soo 

IFJKINP  .FO.  43  .PR.  KIND  .FQ. 

44) 

IFX  = 1 

G''GS*640 

(FCKINP  .FO.  44  .r»  . KIND  .FQ. 

53) 

IBSTIN  = 0 

G‘'GS’*6  50 

CALL  SDPPCM  ( IX  ) 

GWGS  *660 

IF  ( KFIL12  .GT.  0 ) GP  TO  900 

•■^GSOGTO 

INTP  = KSAVPL  - KPNPl 

G‘''r,S*6Pn 

IF  ( NCCNFG  .GF.  INTR  ) NCONFG  = 

INTR  - 1 

TMGS  *600 

JPl?  = KSAVPL  - 1 

FMGS*700 

WP  I TF( r 1?' JP  12 ) NCONFG 

G»GS*7 10 

GO  TH  son 

G.«GS  ♦7?0 

1 12 

IF  <Z3.GT.?»  GO  TO  112 

C'^GS«730 

CP  TO  <;no 

GMCS*  740 

112 

IF  (/i.r.T.2)  GP  TO  114 

GM  GS«753 

''TO  TO  NAHFL  1ST 

rMr<;*7ft  T 

PFAP  ( N5t  NA^SCP  ) 

o«GS«‘770 

IF  ( IMPPIN  .GT.  0 ) WRITE  (N6, 

KAMSCR  ) 

G''GSF7P,0 

ZA  = Nl  EVFl 

r * 70^ 

7'=  = l.WFl 

■“OS^tlOO 

76  = LKF? 

I'M rs*p  ID 

IF  I KF  IL  12  .GT . C ) GO  TO  1 IS 

rv*  T-i 

JPl?  = KSAVPL  - 1 

fw  OS  ♦P3  ■> 

RFAC  (r'l2'JPl?»  NCONFG 

c M D S ♦ H A D 

IF  ( NCOMPr  .LF.  0 ) GO  TO 

115 

rw  OS  73  SO 

gall  soptcm 

r POS  7 9 60 

GO  TO  son 

GMCS  7H  70 

1 14 

CCNT  inof 

r><  0S79PO 

ICNO  = 1 

rMrc;t:QO  0 

CALI  CnST  ( IFNO  ) 

rMO<;*g,’)T 

CP  TO  f'Cn 

0 v>  0 S 7 O 1 0 

1 I*- 

CON  T INUF 

GMOS  7OZ0 

NGON  = C 

«-'.(0S  7f)3  0 

WRITF  (N6,  lin 

r‘<  rs  7q  40 

1 16 

FORMAT!  IOXACHNO  CM  CONCEPTS  FCUNO, 

SCRFENING  flVPASSFP  > 

0^007060 

JOl?  = KSAVPL 

'■'•GS  *960 

WP  ITF  (A'12'jni2)  NCON 

r MGS7970 

<=00 

KPFT  = C 

rv  os  7980 

IF  ( TNPFIN  .LF.  0 1 GO  TO 

902 

OMr,s*mo 

PFTOPN 

CMGS7000 

1C2 

KRCT  = ? 

GMGS*0  10 

PFTOPN 

GMOS7020 

fMO 

GMGS7030 
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SI'‘<MniJT  ir  r SUPl^r  M ( IX) 

NUK  .cr-ros'*  P .K  .MCOnNCUGH  Fiv/ERCO 
initial  I/F  AN!1  LOOP  ON  BASK  VARIABLES 


10/18/73 


COM^riK  r.FNEPAl 

rrMVPN  /OkCr^iT/  omaxC,  V^'AXOf  OU^'QAIB) 

UTFGEP*^;  ICM 

rrMMPM  /paSVAR/  t wnPT.TOTLt TCThTfTOTDI A.PROPLtTCTAR.RAT 10, 

1 WAP  PA,  TAP  FA,  A SPFCT,  PLCL  ,WHWT,GU1  OhT  ,nilMZ  Z 7 ( 7 ) 

COMMft*!  /HFSYFT/  7XNR  ,PF  SI  A(  lA) 

OnvMONi  /f.PMVLS/  CO'^ISl) 

FCUIVALEr'CF  ( AX  ), 

1 (ru»«(  ?C),zxNBx  ) , 

2 (CP"^(  31)  , n3X  ), 

3 ( CONI  30  ) , WWWXXX  ) , 

A (cn*^(  8 1 I.NOONFX  ) 

rn*'Mnr'/rPN  1/  INX  1 16)  ,NCNC  PT,NSSTYP,I  1(30)  ,MPOMA 
Fhmvpm  /fPNl  Y/  K II  HNS,  PIAFRT,  SC^'MCPIB) 

CP.MWf'N  /r"NSTA/  riJNFPR(A),  RAO,  FUNTHPO) 

CTmmpv  /C^STSC/  OTnT,rPTnT,rRTnT ,COMPr ( 17) 

^')\^vp^'/^SFT  3/K  A Sr  ,L  P VI  X,  LAB  VI  X,  MB  VI  X,MABVI  X,NBV,NAUXV,  I “BV  TXI  2A  ) 

1,  PADXVI  16,  10)  ,PTC(A, 30) 

2,  pviv(?a,16),nt(30) ,l art ,maBT, NABT,NPT ,PT { 10 ,10 ,30 ) 

3,  16),  16,10) 

CP-MPN  /FdN'lVP/  wf'OFl 

rr’WMPN  /r.uiocn/  rOSN,NSCPC  ,WTGUI  0,DUM57(57) 
r"**Mr6;  / IMPlJl  / IPR(16),  JPAR(16),  PAB(16) 
rnMMOd  / TN0U12  / jni2,Nni2,  NR12 
rnviMPM  / IdOIJT  / N'LINF, 

X NPAGE,  PCnnF  ( 20)  ,MI  Sr  ( 7)  , XM  ISC  ( 7 ) , ZIP,  /'■rnp  ( 1 9 I , 

1 JPASH(20),  TpaSH(?0),IPR(B)  ,ICR(8)  , nUM(B),  (nu*'(B),  NFLAG, 


1 JPASH(20),  TpaSH(?0),IPR(8)  ,ICR(8)  , nUM(B),  (nu*'(B),  NFLAG, 

2 NFIAC2 

rC'^MON  /MFIIES/  NO,N6,m7,n11,N12,N1 

/ppiMTP/  IPSM,K  T IMPS  , I VP,  I AIR  ,I  PACK,  I TOT  , 1 All 
CCM'^PN  /rPUNOP/  PFNGI20),  WPRTZ,  CEP,  RANGE,  RUF20  (20) 
rnVM.16  /F  I 3/M  IN  X(  70  , IP  I 70  , IC  I 70)  , I SI  170)  ,I  S2  (70) 
rp-^MPM  /S'"PNML/  NPTSI  20)  ,PAR  VN'L  ( 7 ,20)  ,DV)NL(7,20)  ,DUB^Y(50) 

1 ,Nsr.osT,  inuviAiA) 

FPMIVAI  FITE  ( ini4MA(l),  KBYCST  ) 
rrMMf'N  /SR’LMIS/  SrLG(9),  WSECT 

CPmmpN  / SwORTH/  KRASF,  WOPTHl,  W0RTH2,  NPAR,  KPAR(20),  PARV 
1 PFRV  1( 20  ) , PFPV2( 20) 

roMK-nr  /sYi/^cnnE  (6)  ,Nr  pdf  s,NcnNFG 

rppMP6'/SY2/Tr  ,Ar.,FF 

rnMHP6  /TFMP/JXi(70),JX2(70), JX3( 70)  ,JX4(70)  ,0X1(70)  ,PX2(70  ) , 
I PX  3(  70  ) ,0  XAI  70) , JX( 24  ) 

FQUIVAl ENCF 


RUPROO 10 
SI/PP0O20 
SIIPPOOBO 
SUPP0040 
SD  PonOSO 
S'JPROOFO 
SIIPR0070 
, SUPR0080 

SDPPOOOO 

SiJPROlop 

SDPPOl 10 
SHPR0120 
SIIOO0130 

SUPfn 140 

SIIOP0150 
SPPROIGT 
SUPOO  1 70 
F'ioro  1 PO 
S'JOPOIOO 
SIIPPOTOO 
BVTXI24)  5173*^0210 
5IIPPO220 
$1)00  0230 
5l)P'>0?4n 
SI)  opO?  SO 
S'ioR0260 
SI  I PRO’ 70 
c;il'>j^2‘’0 

Sd  37n,-i 

OOEii^i,  siir>R0301 
LAG,  S')P3)311 

SU  PR03  3 3 
Sd  DM  3 30 
SdDD0340 
S' I PRO  3 BO 
SllP‘-’O360 
) SdPKO’70 

I pp  r)3  o 0 

SliPROROO 

SIIPP  OAOO 
P ARVt  20  ) , S'lPP  04  n 


<;i  I PUd4  70 
<;dPo  7430 

Si|  PP7440 
Sd  PP04S0 
SdPR04f,n 
SdPP04  70 


FQUIVAIENCF  SIIPP04  70 

(ILI  1),  ILl)f(IL(2),IL2)  ,(IL(3),IL3),(IL(4)  ,IL4)  ,(U(S),IL5),(  II  ( GSdPROABO 
),  116), (11(7), IL7),(IL(8),IL8),nLl9), I L9)t(lL(n),(L10), (11(11  ) ,Si|ou04‘*0 
(Lll),((L(l2),IL12),lIL(13),IL13),m(14),ILl4),lIL(15),ILl5),(IlSdPROSO0 
(16),ILl6),(IL(l7),IL17),(IL(ia),ILlP),nL(19),IL19),(lL(20),Il  2050  03  0--,  10 
), ( IL ( 21) , IL21  ), ( IL( 22)  , IL22)  ,(I L(23)  ,IL23 ) » ( IL (?4)  , IL24) , ( II  I 2B  )5dPROS70 
TITCl  Itl  /7A1  II  7<.I.III  1771-11771.111  1701-11701-111  1701.  II  701.  I t<;ilPRnR7'I 


),  ( IL  I 21  ) , IL  21  ),  ( IL  ( 22)  , IL22  ) , ( I L (23)  , I L2  3 » , I I L ( 24  J , I L 24  ) , l M [ 26  I S' I M i"' o 20 
, II  25  ),(  IL(  26)  , II  26)  ,(  IL  ( 27)  , 1L27)  , I I L (28)  , tL28)  ,( 1 L(29)  , 112“  ),(  tSilOROBlO 
I ( 30  ),  n 30)  SI)PR0540 

FQd  IVALIAT.F  5UP“0550 
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1 (JX(  l),Il),(JX«Z),l2).(JX(3)tI3).(JX(^),I<»)  ,(JX(5»,I5>,(JX(6»,I6)SiJPR05f.0 

2 ,{JX(7),I7l,(jX(e),I8J,(JX(<5J,I9),(JX(lO»,riOlt(JX(ll|,till,(JX(  lSUPRnS70 

3 2) , I 12  I,  ( JX(  13  ) , I 13)  t ( JX(  lA)  ,I  141  ,(  jxa5)  , r 15)  , ( JX(  16)  f 116)  ,(  JX  ( ISIJPR0580 

4 7),Il7),(JX(lB),Il8),(JX(19),I19),(JX(20i,[20),(JX(2Ufr2l),(  JX  ( ?S(/PRr»5on 

5 2 ) t I 2?  ) . ( JX  ( 23  ) , 1 23  ) , (J  X<  24)  , 124)  SUPP06m 

CrMMPN  //JOPTH/  7CFP(10),  ZFQRCEf  ZGWTT(IO),  ZPFL,  ZWrTHdO)  'ii/PRObia 

EQUIVAI  FNCP  ( ZWPTHll),  NZLLRl  ) 3UPRn620 

EOUIVAiFvrP  ( ZwnTH(9)t  WTHI  ),  ( ZWOTH(IO),  WTH2  ) S()PR0630 

COPRON  PAYLHAC  S)PR0640 

COMMON  /BEVFN/  I TP  , X72  (2  ) .1  PAOAR  , I PAY,  XZ22  (2)  tWEQ  fWMfsc,XZ7(  7 1 , 9(JPR0650 

I tART,NW,  I ARW, PIVOT,  intype, XLPAYI  tWPAYl  ,WWH,XZ29(29)  Sl)PP0660 

common  ADM  SUPRO^YO 

rCMViON  /AERO/  AP214(14),  CEB,  ARZ9l(91)  SUPPOBBO 

EOUIVALENCE  ( APZ91(43),  XOITP  ) 9UPRn690 

COMMON  /AFRPRO/  CrOOES(lO),  CLAOESCIO)  SDPROTOO 

COMMON  /AEPZZ  000313),  COO,  00037(37)  SHP00710 

COMMON  /BOAT/  COLUMP, COPBTL, 0UM8(8) ,C0B0AT(10)  9UPRn720 

COMMCN/nuTLNR/  XLTRVS(50)  SUPR0730 

FCUIVALENCF  1 KLIMT,  XLNRVS(ll)  ) SUPR0740 

roMMf’N  /PYAIRX  SREFS,  BV^NXISOO)  '^UPPDZST 

common  ZORC/  00042(  42  ),  ARW,  0RG444(4)  SUPR0760 

common  /FOonow/  NPM,NALT,  RMV(20),  ALTV(IO),  FRNC2(2)  9UPR0770 

COMMON  /NAFRC/  TNLZZ,  TNZ5(5),  DC  A SE  , TNZ17(17),  TLTHFO  SUPOO780 

common  /SKINF/  COSKNF(IO),  XLPOZ  , k'mANY  SUPP07O0 

COMMON  /UPINLT/  PFAMBL(127),  CNA,  PRAM2(2)  9UPRn«00 

common  PRM  ^OPROPlo 

COMMom  pplkZ  ALF6(6),  rncx,  ALF66(6) ,CLALX  SUPR0B20 

common  /all/  KORO,  (DCS,  ALL27(  27)  SOPROBiO 

CPM.MCN  /cm  I sc/  pap  am  SOPROB^) 

common  /Omqot/  KBYnPG,KPYPAK ,KPYPSM,KPYVP  SUPROBSO 

1 ,KBYM01,  INWORL  , KF1L12  SIIpp0P60 

Common  /oodfxx/  k ind  , i type  , i si /e  , noop, ksus  ,krm, 

1 IRST  , 1/ 1 (6  ) , NPASS,NnUT,I  XXN  SUPR  ')Rm 


COMmtN  /OAm/  OlAFP ,0AM1SC ( 19) 

COMMI'N  /FXTPPN/  PLLT,PLFX,n3,  RA  NG  X , WTTOT,  XLTOT  , VL  , 

1 VFOP,0ELV1,PLmASS,ARSURF,ARZ  (9) 

(-rM,T-M  /(-MPT/  MPFM,  AMACFM,  A LF  1 F M , F AP  OF  M 
(-PMMON  /COBOL/  OMZ/,  WAP07Z(77) 

FOUIVALFNCE  ( WAPn//(4),  PQOTh),  ( WAPOZZdP),  OMMAX  ) 
OpmhoN  /INDATA/  niM2(2),  WTINLT 
fCMMtN  /INSERT/  ZX17(17),  TNO/L,  ZX15(15) 
fOMMf'N  /(PROP/  INO,  1N03(3) 

common  /ITFPT/  rvTOL ,DFLOEL ,NUMI T,MAXMI T ,nVMUl T 
COMMnt^  /inopxx/  LOCPP  J,CEN  SAV,  V.TSAV,WSSAV,SLSAV 
O'^MMON  /NAMSOL/  CCASFX,  XE2(2J,  STGW,  ZL  TOT  ,W  MI  LS , Z L F A Y , 
1 ZWPAY,  /APSUP,  TTIT4(4) 

roiJivM  fNCF  ( XE2(1),  SOL  I SP  ),  ( TT1T4(1),  SOLTW  ), 

I (TTIT4(3),  ITHR),  ( TTIT4(4),  SOLF  ) 

oommon  /PINT/  FFX3(3),  SOLPC,  FFX26(26) 

COMMON  /RJPLOK/  RJ(50) 

ECUIVAl  FNCF  ( RJ(18),  PC  MGN  ) 

FCUIVALENCF  ( RJ(26),  TT4  ) 

common  /PJOAT/  Pjr7(7),  pnsTLX,  BUMXZ 

common  /PKPLK  ZRKXI  10),PXXX(3C) 

COMMON  /KOCKFTZ  RE  (OSP  , RLJOMR,  RL I OX , PL  I QPC , RL 1 03 1 ( 3 1 ) , 


Ri|  POflR^O 
Ri)  pR'jonn 
sijppoo  n 

RMP'JOP?'! 
S'.IP  R 1 

RiippoqRo 

S',IPR79M 

<;il  DO  -jO  7T 

RUPOONHO 
<;  1 1 D D n o o T 
RUPP  1 OOR 
SHPe  1 no 
RilPR)  T*:) 
Sil  PR  10  )0 
SUP01040 
RUPP  lOSO 
SUPP  1060 
RilPR  10  YO 
RMPD I 080 
RM  PRl 090 
RU  PR  I 100 
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i 

I 


f 

i 


! 

i 


1 RL  [QTU,  RLIOZ,  R L I OF , RLIQY 

CPyMf'N  /SDSOAT/  TX(44) 

CC'^MPN  /TRAJX/  TRA0Z(6),  FARMAx,  TT4MAX,  FSLBO,  ICCZEN 
COMMON  /TRJPTA/  rpALT(10>,  DPRACH(lO)f  ORNTCZO),  CPGAM(in), 

1 OPFR ( 10  » , nPTTPA ( 10) 

CPMM('N/TIIR  P I / TV(30) 

FdllVAlFNCF  ( TV(3)t  TJALT  ).  ( TVK),  TJRACH), 

1 ( TV(5),  TJTHR  ),  ( TV(6),  T4TJ  ) 

rcMMDN  VPM 

rr'MMON  /NFWVPM/  TPFIXdO?) 

rP**MrM  /PFOF/  SPMFCT),  NLPHAZf  NUZf  NUUZf  XMX(BO),  XPX(lO,?n) 
I YPX(  10,20,  IN(^O),  1PTYPX(20),  RFSTdZO) 

COMMON  /MIJITRJ/  NTRAJ,TRC.nN(67C,5)  , PROPLT,  XNCIZ 
1 , tpmOpI  IC2,5),  KFMTY 

riMCFSICl'  TPYSnM(67C) 

EQKIVAL  EMC.F  ( TRYSOM(I),  SOMF(l)  ) 

FQUlVALFr'Cr  ( TMZ  17(12),  WWINC,  ) 

common  /TOVPFH/  nUM555(  5),  SEX  I TZ,nUMf 66( 66) 

C, 

7070  FCPMAd  /) 

707  1 FOPMAK//) 

NAmfl 1ST  /NOTUS/  P M v , AL T V .COODE S ,CL AOE S ,CnS KKF , NODP , 

I CC ASF, TNOZZ, XLPnY,TLTHEn,KSTF  P, TOTL 

r 

C INITlAl  SETUP  mo  1C 

c 

1 NConFS=  l + ( ^!SSTYP- I ) /5 
NCONFO  = 0 
1F(NSSTYP-2A) 6,2C, 3 
3 STrp=i.oi 

WP rTF(N6, 2000)  MSSTYP 

2000  form AT(  /////EX, ZOHFRROR  IN  P.V.  TABLE  - LIST  IS  , 110 

1 , 2X4HI  OMO  /////) 

poTilRN 

6 ll=NSSTYP+l 
Ofl  R 1=1  1,  30 
;3  11  ( 1 ) = 0 

20  COMTINUC 

rnt  =0.0 

00  212  I = 1,2A 
2 12  JX(  1 ) = I 
C 

Krrir'FG  = 0 
K CUP  ST  = 0 
ClAFPT  = niAFR 
KINONS  = KING 
Nrnp=  1 

lA IR  = I PR  1 10  ) 

IF  ( I A IP  .GT.  1 ) FAIR  = 1 

IPAOK  = IPP  ( 1 1) 

IVP  = IPR ( 13  ) 
duT  = IP«(1A) 

lALl  = lAIP  ♦ IPACK  IPSM  ♦ IVP 
IALL  = IALL  ♦ itot 

7FARMy=  FARMAV 


SUPR  1 1 10 
SUPRl 120 
SUPR 1 130 
suppi  mo 
SUPR  11  so 
SUPRl 160 
SUPP  1 170 
SUPR 1 IBO 
SUPR  1 190 
SUPR1200 
SUPRl  210 
SUPR 1220 
5UPR1230 
SUPR 12^0 
SUPR 1250 
SUPK1260 
SUPR1270 
SUPP12R0 
SUPR1290 
SUPRl 300 
SUPR  1310 
SUPR 1320 
SUPR 1330 
SUPRl 340 
SU  PR  I 350 
SU  PPl 360 
SUPR 1 3 70 
SUPRl  3R0 
SUPR I 3P0 
SUPR 1400 
SUPR I 410 
SUPR 1420 
CUPP  14  30 
SUPR 1 440 
SUPR 1450 
SMPO 1460 
SUPR 1 4 70 
S'  I PR  1 4P  3 
SIIPR14P0 
SUPP 1500 
SUPR  15  10 
SUPR 1 5P0 
SIIPO  I 5’  0 
SUPP 1 540 
SUPRl 5^0 
SUPR  1560 
C'lPR  1 570 
SUPR 1 550 
SUPRl 590 
SUPRl 600 
SUPR1610 
S')  PR  1620 
SUPR  1630 
SUPR 1640 
SUPR 1650 


r 
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FT 

ZTTA^'X  = TT<iMAX 

SUPP 1 560 

rv*^Ul.5  = nVMULT 

SUPRl  670 

SAVMAC  = aRZ(6  1 

SIIPP16B0 

' 

/yVRX  = 7XNP 

Sl/PP  1600 

c** 

SIJOP  1700 

r 

STEP  W INjr  AP  FA 

SUPP1710 

rn  101  11=1, iLi 

SUPP 1 720 

WAP  EA  = PV  IX(  1,  11  » 

SUPP  1 730 

WAR  FA  = WAPEA  ♦ 14«. 

SUPP17A0 

PXU  1 ) = WAR  FA 

St|Poi750 

C 

STFP  TAIL  AREA 

SUPP 1760  1 

rn  102  12=1, IL2 

SUPR1770 

TAREA  = PVIX  ( 2,  I.?  1 

SUPRl7aO 

TAOEA  = TAREA  ♦ lAA. 

SIIORl  700  j 

PX 1( 2 1 = TAR  EA 

SUPRIROO 

TrT AP  = WAP  FA  ♦ TAPFA 

SUPRIRIO  1 

RATl"^  = l.OE+10 

SUPRIR20 

IF  I WARFA  .GT.  0.0  ) RATIO  = TARFA  / WAREA 

SUPRIR30 

C 

STEP  Exprsi^o  wiMG  afpfct  patio 

SUPRl RAO 

ro  10?  13=1,113 

SUPP] 950 

ACPEOT  = RV1XI3,13) 

SUPR1960 

PXK  31  = ASPECT 

SUPRl P70 

TA7  5(1)  = TAR  EA 

SU  PR  1990 

TF7  5( A)  = WARFA 

S'lPRlROO 

APW  = ASPECT 

SIIPRlooo 

r 

STFP  PAVIOAO  LFNGTE 

SunPloio 

rn  lOA  IA=1,ILA 

SUPPIO70 

PI  n = PV  IX(  A,  1 A ) 

SU PR  1030 

RXK  A)  = PL  CL 

SIJPPIOAO 

/LPAY  = PLCL 

SI ) OR  n 50 

r. 

STFP  WAPHPAn  WT 

SUPRIO60 

on  105  15=1, IL5 

SU  PR  1 0 70 

■ 

WFWT  = PV  1 X ( 5 ,I  5 ) 

SUPPIORO 

WWFXXX  = WHWT 

SUP  MOO' 

RX  1(  5 ) = WHWT 

SUPR2nOO 

c 

STFP  rnNiTPOLS  WT 

SU  OROOI 0 

on  106  16=1,  IL6 

SUPP  ?n  po 

rornwT  = pvix( 6,  if ) 

SnoR20  30 

c 

Cn^TPni  S WT  FOP  COSTING 

SU  PR  pOA'' 

roMCTR)  = GuiowT 

(;i  1 oop  0 

riMowT  = GuinwT  ♦ wTGUin 

SU  PR2n6o 

PXK  6)  = GUinwT 

SUPR2070 

AVAR  = 10 

SU  PPROSO 

• 

call  sllm  nvap.zgwtt, 7rFP,wTGuin,CFP ,it  n,i HI  1 

SUPP  2000 

r 

STEP  V ISS  II  E DIAM 

SUPP? 1 no 

cn  107  17  = 1,  1L7 

SlIPORllO 

TnroiA  = PV1X(7, 17) 

SUPR212n 

0 3 = TO  TO  1 A 

SUPR2130 

C3X  = 03 

SLJPR?  1 AO 

rCASFX  = 03 

SUPR21 SO 

PPSTl  X = ?.  ♦ 03 

Sl|O02  160 

A3  = .7fl5A  ♦ 03**2  / lAA. 

SUPP  ? 1 7 0 

cpffs  = A3 

suppp 1 eo 

CH77  = riAFR  * 03 

SU  PP2 1 00 

WARr!77(  IP)  = 03 

SU  PD??00 

HA  6A 

L 

u 

o r> 


I 


/ 

t 

i 

i’ 


T^A7;L  =03/2. 

IF  ( KPYPS'^  .OT.  0 1 TNAZZL  = XNOZ 
PVl(7)  = TOTDIA 
IN'TYPE  = ITYPE 
K FA  U =0 
IMO  I =0 

C SIZF  R PACK  AGE  PAYLTAD 

call  payi  nni K'=AiLf  impi  ) 

WPAY  = WPAYl 
PLMASS  = WPAY 
7WPAY  = WPAY 

iriKFAll  .CT.  C » GO  TO  107 
eo'7  CPNTINUF 

ri^MAX  = 03 
C VARY  HPnSTER  T/W 

on  107  1 I 8 =1,  IL  8 
PPPTW  = P.V!X(8,18) 

r VARY  lrs  r pr  t/w pp ramjet  design  ait 

C PR  TURPPJFT  CESIGN  ALT 

DP  1072  IE  = I , IL9 
VAR  I = PV 1 XI 9, I 9 ) 

VARY  LRS  ISP OP,. ...RAMJET  DESIGN  MACH  NO. 

PP  TURBOJET  CESICN  MACH  MO. 

CP  107?  110=1,  ILIO 
VAR2  = PVIXI  10,  I 10) 

C VARY  LRS  CHAMRPR  pppc^UPF  ...OP...  RAMJET  DESIGN  GAMMA 
C PR  TURPPJFT  DESICri  THPLST 

DP  107A  111  = 1,  ILll 
VA0  3 = PV  IX  ( 1 1,  I 1 1 ) 

r VARY  I IPUIC  MIXTURE  RATIO  I NO  SPLID  ) ...PR...  RAMJET  DESIGN  TT^ 

C PP  TURBOJET  DESIG^'  T4  ( TURBINE  INLET  TEMP  ) 

CP  1075  1 12=  1,  IL12 
VAP4  = PV  IXI  12,  I 12) 

IF  ( KIND  .GT.  AS  ) GO  TO  1077 

IF  ( kTNP  .GE.  AO  ) GP  TP  IC7S 

IF  ( KIND  .CF  . 20  ) GP  TO  1 078 

IF  ( ITFR  .IF.  0 ) SOLE  = VARl 

IF  ( ITFR  .CT.  0 ) Sni TW  = VAPl 

SPLISP  = VAR2 
sn  PC  = VAP3 
GC  Tn  IPRO 

1077  CONTINUE 
TJALT  = VARl 
TJMACH=  VAR  2 
TJTF'R  = VAR  3 
TATJ  = VARA 
GP  TP  lOHC 

1078  CPNTINUF 

IF  ( ITFR  .LF . 0 ) PI  IDE  = VARl 
IF  ( ITFR  .GT.  0 ) RLIOTW=  VARl 

Rl  IQSR  = VAR2 
PLIOI'C  = VAR3 
PIIQMP  = VARA 
GP  TO  1080 
10  70  CPNTtNUE 


SUPR2710  ! 

SUPR2220  i 

SUBR2230  ! 

SUPRpRAO  'j 

SUPP2250 
SIJRR  2260 
SUPO2270 
SUPR22P0 
SUPR2290 
SUPP2300  j 

SUPR23in  j 

SUPR2320  I 

SURR2330  i 

SUPR23A0  i‘ 

SUP0235n  ( 

SUPR2360  i 

SUPR?370 
SU  PR23P0 
FUPP23q8 
SU  PR2AD0 
SUPD2A  10 
SUPR2A20 
SUPR2A30 
«;i|PP2AAD 
SURR2A50 
SUPR2 Af  0 
SUPP  2A70 
SUPR  2AR  3 

oo 2 £;  OD 
S'l 

t;!  I no?  S2  0 
SI|0025?0 
FiJRR  ?8A0 
SUBR  2580 
SUBRTS^O 
SUPE  25  70 

S'  I RO  2 8 PO 

t;(ir>i^oSFO 
F.  u O U 2 ^ 0 
FURR  28  ID 
SM  PR  2 8 20 
SURR263n 
sn  PR2  8A0 
SURR26E0 

SU  RR2»-(  0 

SIIPR  2570 
SUBR?5B0 

Simuo^or) 

SIIPR  2700 
Siino27n 
SU  PR7720 
SUPR2730 
SUPP  27A0 
SUOP2750 
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« 


rPflL  T(  l J=  VflP  1 
HPFM  = VAP  I 

C 5FT  l-EIGHT  FOR  INLFTP  ANC  CDINLT 

AP7 ( 7)  = VAR  1 
rPMAf  H{  1 )=  VAR2 
AMAC  FM  = VAR2 
rPGAM(  1.)  = VAR  3 
rPTTFA(  1 ) = VAR  4 
TTA  = VAR<» 

IC60  rONTINUF 

RX  l(  8)  = ROPTW  , 

RX  1( Q ) = VAP  I 
PXK  10»  = VAP2  • 

RXK  ID  = VAR  3 
RXK  12)  = VARA 

C PAMJFT  CFSIGN  FRACTION  FUEL  CQNSU^FD 

CO  1176  I 13  = 1, IL  13 
OPFPC  n=PVlX(  13,  [131 
C P/J  OEGir.H  NORMAL  ACCELERATION 

rp  1 1 77  I 1A=  1 ,1  I 1 A 
CPNTI  1)=PV1X(  lA,  I lA) 

C P/J  OFS  [PNI  TAMC.FNTIM  ACCEIERATION 

EP  1178  115=1, IL  15 
CPNTI  11)  = PVIXI  15,  115) 

C PAMJFT  CES rCN  PRESSURE  MARGIN 

CP  1 179  1 16=1, IL  16 
prMGN=PVlX(  16,1  16) 

C STFP  ^'ISSILP  WT  PP  lENGTH 
CP  113  117=1, IL17 

F iNx  = pv  rxi  1 7,  I 17 ) 

TTA  = VAPA 
PXK  13)  = BINX 
PAP  AM  = PINX 

r ♦ ♦ 

C TfST  FOR  CPMPAT  IP,  IL  ITY  MATRIX 
CPI  =nrM  ♦ 1 .0 

IFlAMnpfnPL,  lOOn.)  . FO . 0.0)  MR  I TF ( N6 , 20 1 0 ) OOL 
70  10  FORM  AT ( 6X , AHOPL =,  IPF  15. 7) 

ir  ( Af rni OPL , locoo.  i.ne.c.C)  go  to  60 

wpITF  (N6,20  10)  PPL 

WPITF  (N6,200A)(JXI1 ) , I = I , NSST YP) 

200A  FORMAT  I6X, 61513, 2X)  ) 

60  CPNTINUE 

jr  ( nICPMa  .LT.  0 ) GP  TP  6A20 

C 

CP  67  I = 1,  NICCMA 

K=  [s u r ) 

I =IS2(  I) 

M=IR(  I ) 

N= ir ( 1 1 
K 1=JX(  K ) 

K2=JX( l ) 

IF  ( (K  1 .FO .0  ) .PP . 1 K2.F0.C) ) GO  TP  300 
K3=ICM(K  1,K2,1  ) 

IR(M*N.FQ.O)  K2=-l 


SUPR2  760 
SUPR2770 
S(IPR7  780 
SUPP2790 
SUPR2P00 
SUPR2P 10 
SUPR2820 
SUPR2S30 
SIIP02PAO 
SUPR2850 
SIJPD  2«60 
SiJPR2870 
5i)PR2RR0 
SUPR7890 
SU PR  2900 
SI)  PR2P10 
SIJPO2920 
SUPR2930 
SUPR29A0 
SPPR2950 
SUP°7960 
SUPR2970 
S'JOR?980 
S')PR299P 
SUPR3000 
S'lPR'^Ol  0 
5UPR3020 
Sl/R-I  3030 
S'JPR  3 0A0 
SMRR  30  50 
SUPR  30 FO 
SIIPR  3070 
S'.IPR30PO 
SI)PO3000 
si)PR:<ino 
SIIPR31  1 0 
RpRR  3 1 70 
SUPRJ  130 
CHOP  3140 

R'lPR  3 I 50 
S'IPP3160 
51 1 OR  3 I 70 
SIIOR3180 
5l)PR0  1 oo 
51(003^00 
SMPO3710 
SIIOR3770 
SIM’R3230 
Sll  PR3740 
SIIPR  3750 
SIIPR3260 
5l)PR  3770 
5I)PR  3280 
SIJPR3290 
SIIOR3300 
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r ^ — — 

n 

I 

1 

1 

IF(K3.FP.C)  GP  TP  66 

! 

j 

i 

SUPR3310  ; 

6? 

Flint  inuf 

SU PR  3 320  ‘ 

tA2C 

CPNT INUF 

SUPR3330 

rn  64  i=i,r'SSTYP 

SUPP3340  ; 

JXK  I)=JX(  I 1 

SUPR3350 

IF  ( IL(  I I.FO.O)  JXKI  1=0 

SUPR3360 

64 

FPNT  IMUE 

SUPR3370  i 

C GC  TP  HFRE  if  COMPATIBLF 

SUPR3380 

ICNP  = lABSIIAIR)  ♦ lABSI  IPR(12)  ) *■  lABSlIVPI 

5UPR3390  • 

IF  ( fCNO  .FO.  0 ) GO  TO  7842 

SUPR3400 

CALL  PACC 

SUPR3410 

NCF  = NCONFF  ♦ 1 

SUPR3420 

WRITE  1 6,  7841  » NCF 

SUPR3430 

7841 

FORMAT  1 III  5X,  SOHSFARCH  FOR  C ONF I GUR ATI FN 

NO.  , 15  ) 

SUPR3440 

NFONOT  = -47 

5UPR3450  ; 

CAll  FACKCM  I IX,  KCON'FG  , NCONOT  ) 

SUPR3460  j 

7842 

CPNT  INUF 

SUPR3470 

f.** 

SUPR34P0  ' 

AP7 ( 6 ) = rP“ACH(  1 ) 

SOPR3490  ! 

IF  ( INWPRL  .GT.  0 1 GO  TO  7345 

SUPR3500  j 

r 

SUE  PN  TOTAL  WT 

SUPR3510  ] 

( WPPT  = 2 

9UPR3520  ; 

TPTWT  = PINX 

SUPR3530  ; 

WTTPT  = TPTWT 

SUPR3540  J 

IF  ( KFYPSM  .GT.  0 ) GP  TP  7347 

SUPR3550  ’ 

PPOPl  = 0.0 

SUPR3560 

TPTl  = PLPL 

SUPR3570  1 

XI  RPY  = 2.  ♦ P|  CL 

'SOPP35R0  1 

IF  ( PPPPLT  .GT.  0.)  vlPOY  = PRPPLT 

SUPR1590  > 

rr  TP  734" 

SUPR3600  ' 

1 

7745 

CPNT  IMJF 

SUPR3610  ! 

r 

517  F PN  L RNFTH 

S'JPR3620 

LWOPT  = 1 

SUPR3630 

[ 

TPTL  = PINX 

91199  3640  i 

I 

PPOPl  = TOTl  - PICL 

SUPR3650  ; 

XiPPY  = PROPL 

SUOO1660  ; 

TPTWT  = 0.0 

9UPR3670 

WTTPT  = 3 . * WPAY 

SUP936B0  I 

IF  ( kRYPSM  .LE  . 0 1 GO  TO  7349 

9UP3360P 

WPITF16,7346) 

9IIOR3700 

7146 

FPRMATI  n 2X36HPRPPUI SI PN  SIZING  CANNOT  HE 

RYPASSFO  / 

9UPR3710 

f 

1 2X30OMUST  SI7F  TP  WFIGHT  NOT  LENGTH 

1 

9MPR  3723 

CO  TP  9009 

9i)PR3  730 

7 34  7 

CPNTINPF 

<;uoo‘^74n 

prpPL  = PPPPLT 

90  PR3750 

XI  npY  = PPOPL  T 

9UP93760 

73*q 

CPNT INUF 

9UPR3770 

PnM666(2J  * TPTWT 

9UPR37flO  ; 

7777 

CPNT INUF 

SUPP37O0  ! 

r 

9UPP3800  1 

«TGW  = TPTWT 

SUPR3H10  ! 

71  TP  T = XLHP  Y 

9UPT3R20  i 

n = TPTriA 

SUPR3830 

CCASF  = P3 

9UPR  3840 

► 

TNOZZ  =03  / 2. 

9UPR3a50 

1 

HA  67 

4 

La  „ 

M 

AP7 ( 5 )=rPMArH(  i ) 

APZ  < 8)=PRnPL  T/2. 

TX( 33)=PR0PL  T/2. 
rUM666( c) =03 
Pjn7(  * »=nUMfet6( 8) 

IF  ( KPYPSM  .LE.  0 I SEXITZ  = A3  ♦ .9 

IF  ( KPYPSM  .GT.  0 ) TNOZZ  = XNOZ 

XLTOT  = XLPOY  PLCL 

TEJOZL  = TNOZZ 

Tl  THFO  = XLPOY  *■  PLCL 

xriTP  = ( TLTHEO  - OCASE/2.  » / DCASE 
C COMPUTE  WIK'G/TAIL  WTS 

FALL  AFPOWT  ( APSUPF  ) 

ZARSUR  = ARSURF 

IF  < IPACK  .GT.  0 ) CALI  PAGE 

WTAIL  = ARSL'RF  - WWlE'G 

IF  ( ICK'C  .NE.  0 ) WR  ITF  (6,7851J  taPAY,  WWlA'Gt  WTAIL 
7651  FPRMATI  //  5Xl<»HPAYLPAn  WEIGHT,  F9.1  / 

I 5X,11HWIMG  WF  IGHT  , F12.1  / 5X,11HTAIL  WEIGHT  , F12.1 

XLPDZ  = TLTHEO 
C 

C TFST  TP  BYPASS  APM  STFP 

IF(K  PYPSM.GT.OI  go  TO  4923 
IF  ( KIN'P  .LTi  4C  ) GO  TO  4923 

IF  ( KINO  .GT.  49  ) GO  TO  4923 

C COMPUTE  I IFT/CRAG  COEF  FOP  DESIGN  PTS 
PP  P172  I9N  = 1,  10 
e 1 12  c^SK^'F(  iPN ) = 0.0 

IF  ( KBYORG  .GT.  1 ) GO  TO  4923 

KSTFP  = 1 

NPMSAV  = NRM 

NRM  = I 

NALTSV  = MALT 

malt  = 1 
RMVSAV  = RMVI  1 ) 

At  TS  AV  = AL  TV(  1 » 
lAIR.S  = lAIR 

IF  ( lA  IRS. I F.O)  I AIR  =0 
CP  4021  UK  = 1,  NOOP 
RMVI  I 1 = OPMACHI  I JK  I 
ALTVI  1 ) = OPALTI  UK) 

C CALL  AFOP  TP  COMPUTE  CPP  C CLALFO  FOR  DESIGN  POINTS 

CALI  APMIKFAIL,  KSTFP) 

rrppFSi  UK ) = cnc 

CLACFSI  IJK  ) = CNA  / 57.29578 

CrSKMFI  IJK  ) = CFP 

C AFJUST  PPATTAIL  COO  FOR  CHANGE  IN  NOZ  LT 

CrpPATI  UK  ) = cnppTi 
4921  CONTIMI/E 

NPM  = NRMSAV 
malt  = NALTSV 
RMV(  I ) = RMVSAV 
Al  TV(  I ) = ALTSA  V 
I AIR  = lA  IP  S 

IF  ( I A IP  .EO.  0 ) GO  TO  4923 


SUPR3860 
SURR3970 
SU  PP3980 
SUPR3890 
SUPR3000 
SIIPR39  10 
9UPR3920 
SIJPR3930 
SU  PR3940 
SUPR3O50 
SUPR3960 
SUPR39  70 
SijoRBOBO 
SUPR3990 
SU  PR4000 
SURR4010 
SUPR4020 
SUPR4n30 
SUPR4040 
SUPR4050 
SUPR4060 
CUPR4070 
SU  PR4nP0 
SUPR4090 
SUPR4  100 
SURP41 10 
SUPR4120 
SUPR4130 
SUPR4140 
9U  DP4 I 50 
SUPR4160 
SUPR4  I 70 
SUOQ^IOO 
SURR41 91 
SUPR4200 
9UnR4?l 0 
SUPR4220 
S'IPR4230 
SUPR  4240 
SIIPR4250 
SU  P«42ft0 
SUnP4270 
SUPP4280 
9UPR4Z90 
SURR4300 
SUP043 in 
SUPR4320 
SURP433n 
SUOR4340 
SUPP4350 
SUPR4  3^0 
SUOR4370 
SUPP4380 
SUPR4390 
SUPR4400 
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WRITF(Mf,  ) 

SIJPP9A  10 

99>l 

rrPMAT  ( //  5X,??HnES!GN  point 

AERO 

DATA  // 

SUPRAA20 

1 SXSHPniMT,  7X3hALT,.  3X^HMACH, 

3 X6HCD0DES  , 

SUPR4^30 

2 ^XtHrtAOFS,  3X6Hf.nSKNF 

) 

cijpR44c,0 

WRITF  (N6,^933)  ( ( IPF,  OPALTdOE) 

, PPMACH(IDE).  CCnOESdOE), 

SUPP.4A50 

1 rLATFSClPF),  rOSKNFdOE) 

) . 

IDF=lf  NOOP  ) 

SUPRAA60 

A9  33 

FORM AT( 5X, I 5, FlO.Ot  F7.2f  3F9. 

9 ) 

SUPOA970 

CALL  PAGF 

SUPR A9B0 

A92J 

CPNT INUF 

SUPRA490 

crnx  = cnmFS(  i ) 

SUPRA50n 

CL  ALX  = CL AnFS(  1 > 

SUPRA51 0 

c 

SUPR4520 

IPSM=IPP(  12) 

SUPRA5T0 

K 1 I M I T = 1 

SUPRA540 

IF(  (KPYPSM.GT.O)  .OP.  (KBYVP. 

GT.O) 

) KLIMIT  = 0 

SUPPAS50 

' 

IF(  (IPFY.NF.-2)  .OP.  (lAlR.GT 

.0)  . 

OR.  dVP.GT.O)  ) KLIMIT  = 0 

SUPP4S60 

K IPS'^  = IPSY 

SUPR4570 

K 1 A (R  = lA  IP 

SUPRAS80 

K )vp  = rvp 

SUPR4590 

r 

TFST  T(1  PYPASS  PSM 

SUPP4600 

ir(  (KPYPSY.GT.C)  .AND.  (KBVDRG.LE. 

0)  ) GO  TP  163 

SUPR4610 

IF  ( XBYPSM  .GT.  C ) GO  TO 

76  79 

SUPP462n 

r. 

5I7F  PROPULSION  SYSTEM 

SUPRA630 

IPT  = 0 

SUPP4640 

IFLY  =0 

SU  PP4650 

KWUN  = C 

SUPR466n 

DFLVSV  = VFQP  - VL 

SUPR4670 

TFl  V 1 = npi  VSV  ♦ DVMULT 

SUPP46Rn 

vro=o . 

'lUPRAAOO 

V 10  = 0 . 

SUPRA  700 

LPOPF j=n 

SUPP4710 

c 

VALUES  SET  SAFE 

PRA720 

CFNSAV=.2 

SUPRA730 

WTSAV=3.*WPAY 

t;ijPPA7A0 

V«SSAV  = TOTKT  / 3. 

SUPRA7B0 

SI  SAV  = TOTL  / 3. 

SUPRA  If-  0 

ISIZE  = LWOPT 

SUPRA  770 

MJYZIT=1 

SUPRA  7P0 

N'UM  I T = 1 

c:i  1 po4  7^0 

If? 

r.PNT  INUE 

SUPOArtOO 

IF  ( INWORL  .LF.  C ) GO  TO 

163 

SUPPA°  10 

XLTOT  = TOTL 

CUPRAP20 

GO  TO  15A 

SUPRAB3n 

ie3 

CPNT  INUF 

SUPRABAO 

WTTOT  = TOTWT 

SU  PRA850 

1<A 

rCNT INUE 

SUPRAR^n 

PLLT  = PLCL 

SIIPR  Afl70 

E’  = THTOIA 

SUPPARRO 

A3  = .7BS'^  * 03  **  2 / 14A. 

SUPRAfloO 

AP7  I 1 ) = A3 

SUPRA900 

NPASS  = 0 

SUORA910 

moru  * 0 

SUPRAn20 

IPSM  = IPR(12) 

SUPRA9  30 

IDFS  = 1 

S((PR  aoao 

IF(KRYPSM.LE .0)  GO  TO  165 

SUPRA9S0 

HA  59 
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I 
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s 

» 

1 

!' 


IP(  »K  INn.LT.<iOI  .HR.  (KIND. GT. AS)  ) GO  TO  7679 

NrUT=  IPSH 

lNC=n 

CALL  lAiLETP 

1F(  lA'O.Nr  .0)  GO  TP  ICfl 
CP  TP  7679 
U5  CONTI^4UE 
C 

fF(  TPSM.NF.O  ) WR  ITF(N6»5lll)  NUMZIT,  DELVI 
5111  FORMAT! /////5X, RHLOOP  NO.,  13,2X29HCN  BOOSTER  OELIVEREO  VELOCITY 
1 //  5X,26HinEAL  VELOCITY  ASSIGNED  AS  ,F10.1,  2X3HFPS/Z///  I 

IF(  IPSM.NF.C)  WR  I TEfN6,5520) 

5520  FORMAT!  /5X,37HG0  DESIGN  AND  SI/E  PROPULSION  SYSTEMS  / ) 

C SIZE  Ppnp  SYSTEM 

PCMGN  = PV  IX!  16, I 16) 

IF  ! KL  IM IT  .GT.  0 ) 1 P SM  = 0 

IF!  IIPSM.NE.O)  .AND.  ! KL  IM I T .LT. 0 ) ) CALL  PAGE 
CALL  PSM  ! IRT,  IFLY  ) 

IPSM  = KIPSM 

r 

FARMAX  = /FAR'^X 
T TAM  AX  = 7TTAMX 
I OOPRJ  = I 

IF  ( IFLY  .GT.  0 ) WP  ITE!N6,3110  ) 

3110  FORMAT!/////  5X,01HMI SSILE  SYNTHESIS  FAILED  IN  PSM  /////  ) 

IF  I IFLY  .GT.  0 ) GO  TO  108 

IF!  IPSM.^'F.c)  WP  ITFINt,  5522) 

552?  FORMAT! /5X, RAHPROPULSION  STEP  COMPLETE  / ) 

7679  CONTINUE 
r 

03  = TPTPIA 

C TEST  TP  BYPASS  ADM  STEP 

IF  ! KRYPPC  .GT.  n 1 GO  TO  6753 
K FA  IL  =0 
KSTFP  = 2 
Tl  THFO  = XL  TOT 
TAP//  = TN-^ZL 
C RACK  FULI  AFRO  TABLES 

IF!  lA  IP  .NF  .0  ) WR  1TF!N6,  552A) 

552A  FPRM A T! /5X , 30HGO  COMPUTE  AERC  LIET/DRAG  DATA  / ) 

IF  ! KL  I« IT  .GT . 0 ) lA IR  = 0 
CALL  AO^IKFAIL,  KSTFP) 
lAIR  = KI  AIR 

IF  ( KFAIL  .GT.  C I WRITE<N6,311  1) 
ill!  FhomaT!/////  5X, 31HMI SSILE  SYNTHESIS  FAILED  IN  ADM  /////  ) 

IF  I KFAIL  .GT.  C ) GO  TO  103 
I F(  I A IF  .NF  .0  I WP  ITF  IA'6, 5526) 

5526  FORMAT!  /5X,  18HAEF0  STEP  COMPLETE  / ) 

6753  CONTINUE 
C 

0?  = TOTCI A 

IF!  ! KPYPSM  .GT  .0  ) .OR.  IKBYVP  .GT.  0)  ) GO  TO  3909 

IF  ! MAXNIT  .LF.  0 ) GO  TO  3 909 

IF  I kWL'M  .GT.  0 ) GO  TO  2 909 

ro  2907  I = 1,  NLPHAZ 


SUPRA960 
S()PR4970 
SU OR AO  80 
SUPRA990 
SUPR5000 
SIJPR50  10 
SUOR5n?0 
SUPR5030 
SU  PR50A0 
SUPR5050 
SUPR5060 
SUPR5070 
SIJPRSOOO 
SUORSORO 
SUOR51 00 
SUPR5110 
SUOP5  120 
SUPR5 130 
SUPR  5 lAO 
SUO051 50 
SUPR51 60 
SUPR51 70 
SUPR51  P.O 
SI  I pp  5 190 
SUPR520O 
SUPR 52 10 
SUP0522P 
SIIPP5230 
SU  PR  52^0 
SU  PR  52  50 
SUPR  5260 
SUPP5'>70 
Sl)PR5280 
SlIPP  5290 
SU  0.05300 
SUPR531 0 
SIIPRS320 
SUPP  5 3 30 
SI ) P P 5 T ^ 0 
SUPDS350 
SUPD5360 
SUPPF37n 

SUP05  ?B0 

SUPP539n 

SUPP5A00 
SUPR5R 1 0 
SUPR  5A70 
S'IPS5A30 
SU  PR5<VA0 
SUPP5A50 
SUPP  5A60 
SUPR5«70 
SUPR5A80 
SIIPR5A90 
SU  PR5500 


I 

i 


HA  70 


I^L  •=  I 

IPTYPF  = 1 PT YPX ( I ) 

IF  ( MPTYPF.ro.  1»  .OP.  ( IPTYPE.FQ.2)  ) GO  TO  2908 
29C7  CrNTlNL'F 

GP  TP  3909 
29C8  CPMTIMLF 

NLPSftV  = NLPHAZ 
NLPHAZ  = INL 
KWUN  = 1 
29C9  continue 
MPOFl  =1 
KruR';T=c 

C HACK  DFLIYF^FD  VFL  TO  SEE  IF  SUFF 
C nCCSTFR  PHASE  PNLY 

IF(  IPS’- .NE  .0)  WP  ITF(N6,  5528) 

5520  EPPH ATI /SYABHCOMPUTF  OELIVEREO  VELOCITY  BY  FLYING  BCCST  PhASF  /» 
IF  I KL  IPIT  .NE . 0 ) IVP  * C 
call  VFHPFR (KFUR ST,KFA  IL » 

IVP  = K IVP 

IF(  I KL IMI T.L T. 1 ) .AND .1  I VP.NE.3) .AND. II VP.NE.O)  ) CALL  PAGF 
IF  I KEAIL  .GT.  C I WP  I TE I N6 , 3 1 1 2 I 

3112  FPRMATI//Z//  5X,  3AHMISSILE  SYNTHESIS  FAILED  IN  VEHFER  f/tf/  I 

IF  I KFAIL  .GT.  0 ) GO  TO  108 

VATTsRK  XI 3 I - VL 
CELPFL  =0EI  VSV  - VACT 

IF  I ARSMEiOELI  .LF.  OVTOL  ) GO  TO  3908 
IFI  NliMZ  IT.GT.MAXN  IT  ) WR  I TE  I N6,  31  I 3)  NUMZIT 

3113  rnfiVATI 5X, 34HFA ILFO  TP  CONVERGE  ON  DEL.  VEL.  IN, 

1 15,  2XAHTRYS  ///  ) 

IF  I NUMZIT  .GT.  MAXNIT  ) GO  TO  lOR 
C LPPP  TP  PFFINE  PROP  SYSTEM 
NU*-ZIT  = NLMZIT  ♦ I 
MJMIT  = NUMZ  I T 

rVPAT  = I CELVI  - VIP  ) / I VACT  - VDO  ) 
rvRATT  = OVRAT  * I VACT  - DELVSV  ) 

CVWANT  = OEIVI  - DVRATT 
VIP  = PELVI 
vrn  = VACT 
CEL  V I = DVWANT 
3QC7  CONTINUE 

IFI  IPSM  .NE  .0)  WR ITEIN6, 55301  PELDEL 
55  30  FORM  ATI /5X2PHOEL  IVFRFD  VELOCITY  MISSFD  BY  , FlO.l,  2X3HFPS  / ) 

C CP  TO  PFFInF  PROPULSION  SIZING  BASED  ON  NEW  DFLTA  V GUFSS 

CP  TP  162 
3SC8  CONTINUE 

IF  I Kl  IMIT  .lE.  0 ) GO  TO  3919 
KL IMIT  = -1 
GO  TO  3907 
3919  continue 

OFLVI  = PFLVSV 
NLPHAZ  = NLPSAV 

I FI  IPSM  .NF. Cl  WP ITEIN6, 95321  DELOEL 
553,?  FORMAT! /5X,38HDFL  IVERFD  VELOCITY  CONVERGED  - MISS  IS  , FlO.l, 

1 2X3HFPS  / ) 

39C9  CONTINUE 


SUPR5510 
SUPR5520 
SUPR5530 
SUPR55A0 
SUPR5550 
SJPR5560  ; 

SUPR5570 
SUPR5580 
SUPR5590  i 

SUPR5600  I 

SUPR5610  ] 

SUPR5620  i 

SUPO5630  1 

SUPR5690  I 

SUPR5650  ; 

SUPR5660  I 

SUPP5670  : 

SUPR56P,n  ^ 

SUPR5690  > 

SUPR5700  1 

SUPR5710  : 

SUP'^5720  I 

SUOR5730  j 

SUPRSTAO  ! 

SUPR5750  ^ 

SJPR5760 
su  PR  5 7 70 
SUPR57P0 
9UPR5790  ' 

SUPR58no  \ 

SUPR5810  : 

SUPR5«20 
SUPP5830 
SUPR5890  ; 

SUPR5fl5n  : 

SUnRSRftO  I 

SUPR5rt7n  ; 

SUPR5880  ‘ 

SJPR5RT0 
RUPRFv^OO  i 

9UPP5910  i 

SUPR5P20  ' 

SIIPR5030  , ! 

; ; 

5;U  035050  i 

511  PP  SQfO 

SUPR9<97r' 

SUPR5P80 

5L)PR90qo 

SUPR60n0 

SUPR6010  ^ 

SUPR6020 

SUPR6030 

SUPR60<,n 

9UPR6050 


HA  71 


r 


r 

LOrp  rPMPLETF 

SUPR6060 

c 

FfNAL  PROP  SYSTFH 

SU  PR607n 

KFAIL  ^ 0 

SUPR60P0 

c 

TFST  TP  BYPASS  f HACK 

SUPP6a90 

IF  ( KPYMPI  .GT.  0 ) GO  TO  0522 

SUPR6  100 

IMOI  = 1 

SUPR6  1 10 

r 

COMPUTE  MOI  TFRMS 

SUPR6120 

CALI  PAYLnni  KFA  IL.  1 MO  1 ) 

SUPR61 30 

IF  ( KFATL  .GT.  0 I GO  TO  108 

SUPR61A0 

KSTFP  = 3 

SUPR6150 

C 

HACK  MPI  TERMS  FOP  AERO  SYS 

SUPR6  160 

CALI  AGMIKFAIL,  KSTEP) 

SUPR6  170 

IIE6 

coMT  nuF 

SUPR61P0 

0522 

COMT INUF 

SUPR6190 

call  costwti cnsNx,  wttot) 

SUPR6200 

C 

911  PR  62  10 

C 

packaginc  tests 

SUPR6220 

IF  ( KPYPAk  .LF.  0 ) CALL  PACKER 

(KFAIL) 

SUPR6230 

IF  ( KFAIL  .GT.  C ) WPI  TF(N6t31U) 

<^1)806240 

31  1^ 

FORMAT!/////  5X,34HMISSI LE  DOES  NOT 

FIT  LAUNCHER  /////  ) 

SUPR625n 

K FA  II  =0 

SUPR6'’60 

rr  79A0  itr=i,  k'traj 

SU  PR62  70 

CMAXO  =0.0 

SUPR62P0 

V^'AXO  = C.O 

S!)PR6  2R0 

IF  1 KBYVP  .GT.  C ) GO  TO  7680 

SUPR6  300 

MPOEL  = 1 

9UPR63 10 

K FURST  = 0 

SUPP6320 

ICES  = C 

SUP=6330 

C 

JUGGl F segments 

SU  PR63A0 

CALI  CnSTWT! C05NX,  WTTOTI 

SU  PP  6 390 

r 

FfA.AL  PFRFPRmANCF  HACK 

SUPR6''60 

IF  ( IVP  .NF  . n ) WRI TF(N6,5534)  I TR 

SUPR6370 

S534 

FORM AT(  i5X30HGn  FLY  CCMPEFTE  TRAJFCTOPY  NO. 

f 

15  / ) 

SUPP63R0 

CALI  VEFP FO ( KFUP ST, KFA IL ) 

c;i)  pp 

IF!  IVP. NE. 01  WR  I TF  IN6, 553f ) 

SU  PRdAnO 

5 5’*) 

FPRMAT!  /5X,?4HTraJFCT0RY  STFP  COMPLETE  / 

) 

SU  0P64 10 

IF  1 KFAIL  .CT.  0 ) WR ITF(N6,3ll2) 

SUPR6A20 

IFIkF A IL  .GT .C  1 GO  TP  7S2C 

SUPp6',3T 

7iSPy 

CPNT  INIJF 

SU  PR6 AAO 

03  = TOTOIA 

SUPD6A60 

r. 

SUPP6A60 

r 

CPMPUTF  COST  ! LNIT  ) 

9U  PR64  70 

AX  = PLMASS  - GUIDWT  - WHWT  ♦ ARSURF 

SUPP64R0 

IF!  !KINn.GT.20)  .ANO.  !KlNn.LT.30) 

) AX  = 

AX 

WSFCT 

SUPR6 900 

IF  ! KINO  .GT  . AC  ) AX  = AX  H V^TINLT 

StlPR6  900 

Nr(lFFG=NrnNFG  ♦ 1 

SUP06S 1 P 

firOA'FX  = NCHNFG 

SUPP6S20 

rrsH  = rosNx 

SUPP693n 

IF  ! KPYCST  .GT.  0 ) GO  TO  37l<5 

SU  PR65A0 

CALI  COST! ICNO ) 

SUPR6660 

IF!  !NSCFC.LE.0)  .and.  ! N SCO  S T .L  E . 1 1 

) COSN 

= 

CPTCT 

SUPR6960 

IF!  !MSCPC.LE.0)  .and.  ! NSCOST.EO.2J 

) COSN 

- 

CRTCT 

SUPP6S70 

IF!  !MSrRC.LE.O)  .AND.  ! NSCOST.GE  .3  ) 

) COSN 

CTOT 

SUPR65F0 

r 

SUPR6590 

27  IP 

CONT INUF 

SUPR66nO 

HA  72 

L.. 


r y 


EMPTY  = WHWT 

SUPR6610 

fAll  WORTH  ( WTHl,  WTH2,  EMPTY  ) 

SIJPR6620 

c 

SUPP6630 

r. 

SIIPR6640 

c 

SUPR66S0 

c 

♦ * 

SUPR6660 

NCONOT  = 0 

SU  PR6670 

IXXY  = 1 

SIIPR6671 

IF  ( ICNO  .FO.  0 ) IXXY  = 0 

SUPP6672 

OALl  HATkOM  ( IXXY,  KfONFG,  NCONOT  ) 

SURR6680 

C CCNCEPT  TK 

SUPR6690 

IF  I KPYVP  .GT.  0 » GP  TC  7960 

SUPR6700 

79  20 

CFNT INU  E 

SUPR6710 

IF  ( NTRAJ  .LF.  1 ) GP  TP  7960 

SUPR6720 

IF  ( ITC  .GF.  NTRAJ  ) GO  TO  7940 

SUPR67i0 

IF  ( IVP  .NE.  0 ) CALL  PAGE 

SUPR67A0 

ITRP  = ITR  + 1 

SUPR6750 

C 

RFSFT  TRAJ  PARAM  from  storage  for  next  traj 

SU  PR6760 

CO  1976  1=1, 102 

SUPR6770 

1976 

TPF  IX  ( I ) = TRMflP  ( I , I TPP  ) 

SUPP6780 

kfmty=o 

SUPR6790 

ro  7930  I = 1,  67C 

SU PR 6 800 

7930 

TRYSOMI  I I = TRCONI  I , ITRP) 

SUPR6810 

79A0 

PONT  INUF 

SUPP6820 

C 

RFSFT  TRAJ  PARAM  FOP,  FIRST  TRAJ 

SUPR6830 

CO  1977  1=1,102 

SU  RR6840 

1977 

TRF  IX ( I ) = TRMOR (1,1) 

SUPR6850 

nr  7950  1 = 1,  67C 

SUPR6860 

7950 

TPYSnM(  I)  = TRCON(I,l) 

SUPR6870 

7960 

FONT  INDF 

SURR6880 

GP  TP  108 

SU  PP6890 

r. 

SUPR6900 

C,  G 

C TO  HFPF  IF  NOT  COMPATIRLE 

SUPR6910 

r 

FAILFO  pomp# TIPIL I TY  TEST CONTINUE 

LOOP I NG 

K4  = MAX0( K, L ) 

SUPR693n 

IF  ( K4  .FC.  0 ) GO  TO  302 

IF  ( KA  .GT . 8 ) GO  TO  108 

SUPR6950 

GP  TO  ( lOl,  102,  103,  104,  1C5,  106 

, 107,  108  ) , K4 

SU  PR6960 

9 2 76 

font  INUF 

SU  RR697.1 

9 8 7° 

FORM  ATI  10X22FTAPLF  FXGFEnEO  AT  STEP, 

6I5//(20X8G12.5)  ) 

SnPR6980 

IC8 

CPNT INUO 

SUPR6990 

JX2(  I7)  = t 17 

SUPR7n00 

1 18 

FONT  INUF 

SURR7O10 

1 1 79 

JX2(  161  = 116 

SUPR  7020 

1 1 78 

JX2(  15)  = I15 

SUPR7030 

1177 

JX2(  14) =I  14 

SUPR7OA0 

1176 

JX2(  13)  = I 13 

SUPP7050 

1075 

JX2(  12)  = 112 

SUPR7n60 

1C7A 

JX2(  11)  = 111 

SUPR  7070 

1C73 

JX2(  10)  = I 10 

SUPo  7080 

1072 

JX2( 9)  = 19 

SUPR7090 

1071 

JX2(8)  = 18 

SUPR7100 

107 

JX2( 7)=I 7 

SUPR7  1 10 

106 

JX2( 6 )=1 6 

SURR7120 

1C5 

JX2(  5 ) = 1 5 

SUPR7  1 30 

L. 


HA  73 


■ 


IC4  = 

IC"?  JX2(3)=I3 
IC?  JX2(2)=12 
ICl  JX?(l)=ri 
99‘;9  rrMTINUF 

AP? ( 6 )=SAVMAC 
CVMULT  = nV'^ULS 
RFTUPN 

iCO  WR ITF  ( Nb,  2006  ) K l,K  2 
2006  FORMAT  t 6X,3HKI=,  15,  3HK2=,  15) 

RFTORN 

3C?  WRITF  (N6,?CCPI  K6 
2008  FORMAT  ( 6X,3HKA=,  15) 

R f TURN 

Fvr 


5l)RR7lAO 
Sl)PR7l50 
S0PR71  60 
5UPR7  170 
Sl)PR7  180 
RUPR7  190 
SUPR7200 
SUPR7210 
SUPR7220 
SUPO7230 
SUPR7?^0 
SaPR7250 
8UPR  7260 
SOPR7270 
SIIPR7280 


r 

r 


SOBROUTINF  F’ACKCM  ( IX,  KCONFG,  NCONOT  ) 

NUK.FM-COSM  P .K.MCnOMOlJGH  FIV/ERCD  10/18/73 
F ACK  TM  WR  itfs  PATA 

CnMMpN  /CnSTSC/  COSnuM(20) 

COMMON/ CD  I pen /cn  FIX, ODUM 69 ( 59) 

COMMON  /AlFPLK/  A1F6(6),  COO,  ALF66(6),  C LA 
common  /RF5YFT/  F AC  TOR , WBTO  , OLUB , 8LENG , B ES I 1 II 1 ) 
common  /PYAIR/  A3,  RVPCC(ROO) 

COMMOM  /CMOPT/  KMe(6),  KFIL12 
COMMON  /CnOEXX/  KINn,lFN(15) 

TNTF0FP*2  rCM 

CO.MMf'N  /CSET3/  K ASF,KI  lOUM  ( 30  ) , B AU  X V ( I 6 , 1 0 ) , B TC  ( -3  , 30 ) , 

1 BV  IX(  2A,  16)  ,NTn  ( S'*)  ,3T(  10,10  ,30)  , I C M ( 16 , 1 6 , 1 0 ) 

common  /EXTERN/  PICT,  PLFX,  0RVC(2),  WTTOT,  X LTOT  , VL , V FOP , 

1 OFLVI,  PLMASS,  APSUPF,  ARZ(9) 

roMvnNj/pn  ING/  KOMPL,  KSAVPL,  KZIM 
CpMf^rN  /INCATA/  CD2(2),  WTINLT 

common  /INCATX/  FPROJ,  HC,  we,  ANGK6(6),  XLE,  4NGKl3tl3) 
common  / IM0U12  / jni2,N012,  NB12 
COMMON  /IN9FRT/  8031(31),  WTNOZ,  XI SPV 
CPMMTN  /y  lOOUT/  XLTP,  WTP,  WOXTNK,  WFTANK, 

1 xiTnx,wnx,  xitf,wf,  xlps,  wpropi,  wnoz 

common  /NAFRC/  OLMIPC  18)  ,WW1NG,  nUM6(6) 
common  /mam  sol/  S(iLll(ll),  ITHR,  FOES 
common  /MFILES/  N5,N6,N7,N11,N12,N1 
COMMON  /PRIMTR/  If^P6(6),  lALL 

common  /PJPAT/  CFN2(2),  AAAA(3)  , SEC  ,ROS T WT  , PCS T 1 T , POST  PR 

COMMON  /PIIOMOP/  PPNC.  ( 20  ),  WOP  TH, CEP  , RANGE  ,RCR  ,Ar.R  , VCR, 

1 RM.  ,ALL  ,VLL  , ROF  lAt  1^) 

COMMON  /SCRFFN/  MFVFL,LWTM1  ,LWTM2,  NUT6(6) 

COMMON  /SFPCIWR/  WTSP,  SFP67(<i7) 

COMMON  /SOLR/  WVEH,WM,SnL4(A),  nExrT,wp 
common  /SOLSAV/  PMF,  wpgvwo,  wn,  winept 

COMMf  N /SU»FX/  nijMXlfl(lB)  ,WTAIL,  DUMX6(6) 

COMMON  /SOSOAT/  TX32(32),  SUSLT,  SUSWT,  TXIO(IO) 

FCUJVAl  FNOP  I TX?2(2A),  WFMP  ) 

COMMON /SY  1/M  CODE  ( 6)  , NCOOE  S,  NC  ONFG 


HACKOO  10 
MACK  00 20 
MACK  0030 

mackooao 

HACK0050 
FACK0060 
MACK0070 
H A C K G 0 R 0 
HACK 0090 
M ACK  0 I 00 
HACKOllO 
HA'^KO  I ?0 
HACKO 1 00 
MACK  01  -tO 
HACK  01 50 
HACK  01 60 
HACKOl  70 
HACKQ  1 RO 
HA  CKO  190 
M.ArK0200 
MA  r,K  02  I 0 
CK  02  20 
H ACKOT’O 
MArK02A0 
MACK0250 
HA  CKO ’CO 
HACK02T0 
HACKO280 
H ACK  0 29  0 
HACK  0 300 
HACK0310 
HACKO  3 20 
MACKO  J30 
HACK03A0 
H A CK  0 3 5 0 
H ACK 03 60 
HACK0370 


1 


1 


CrM^pN  /TPWP/  JXX(  560>  t I I ,12,  I 3,  l<t,  15,  16,  17,  18,  f^, 

I no.  III,  112,  113,  H<»,  115,  116,  JXXX18) 

rr^MPN  /TCVPFR/  WPR()P7,XI  SPP,  TVACC,AFXP,WPR0PS,AEX5,0UMPF, 

1 WT  F IM  ,wnRnP  ,V(nRnPE  , K17,  A5A3,  A6A3  ,ACA3  ,n3 

2 , rxTf<A(57l 

FPUIVAL  FMfF  ( EXTRA(57),  XIM  | 

rpMMPN  /ZWnP  TH/ZCEP  ( 10  ) ,FOP,CE  , ZGWTdOl,  RFLIP,  NLL"!,  ZWO  (Q  ) 

FCtJIVALFMCF  ( Zwe(8),  W7HI  ) , ( ZWPfP),  WTH?  » 

rOUIVAlFNCE  (KASE,KAS>,  ( NC ONFG , JCPNFG ) 

echivalengf  ( in,  jxxxd)  i 

^IM^^ISI^^|  TAPF(IOO) 

r 

r ♦♦ 

WPRPPM  = WPFPPZ 

IF  ( NC PMPT  .FO.  -47  ) GP  TP  666 
WTMl  = FLPAT(LWTMi) 

WTM?  = FlPATdWTM?) 

ir  ( .GT.  0 ) GP  TP  6 000 

^’TE^'  = 10 

NK  INP  = ‘'PP  ( K INP,  MTEN  ) 

K IMPT  = K INC  ! MTFN 

rr  TP  ( IOC, ICO,  ICC, 4CC, 100)  , KINDT 

ICO  CPNTINUF 

prn|  = Rt  FNG 
PPPW  = UR  TP 
OPSTWT  = RPPW 

SUSW  = UTTPT  - PlMftSS  - ARSURF 
SUSW  = 5USW  - RPSTWT 
SUSl  = XI. tot  - PLl  T 
CP  TP  600 
4 CO  '■PNTINUr 

K INP  = K INP  - 40 

CP  TP  I 4 10, 100,42  C,1  CC  ) , KINM 

4 10  CP.MTIMPC 
420  crNTINUr 

oppi.  = Pr-S’’!  T 
FOnw  = PP.iTWT 
SJ5L  = 

SUSW  = W.xpT  - PLMASS  - ARSURF  - Brjpw 
6C0  CONTINUE 

IF  ( ( r K IMP.FO. 3)  .PR.  IKINP.F0.41)  ) GP  TP  654 

RPPl  = 0. 

Pf'UW  = C. 

UPPPPu  = 0. 

654  CONTINUE 

TAPE!  50  = WNPZ 
AC  = fl3  ACA3 

WPRTF  = I UTH1*WTMI  ♦ WTH2*WTM2  ) / ( UTMl  WTM2  ) 

TAPFI  1)=  NCPNFF 
TAPFI  2)=  WTTPT 
TAPFI  3)=  WWING 
TAPFI  4)=  PCR 
TAPFI  5)=  APR 
TAPFI  6)=  VCR 
TAPFI  7)*  WORTH 


‘JACK03fl0 
HACXOSOO 
HArK0400 
H ACX  04  I 6 
hack  0420 
HACK  0430 
H'\rK0440 
HA  CKO 4 50 
HACK  0460 
MAFK  04  70 
h<ArK  P4P0 
HArK04<P0 
HACKOSOO 
HAFKORin 
HACK0520 
HACK05  30 
H A 0540 
HACK  05 FO 
I'ACK0560 
M » CK  05  70 
HACK05e.o 
M.ACKOSOO 
HAPK'TFOO 
H ATk  06  1 0 
hack  6 6 20 

HACK06T0 
HArK0640 
'JACK  065  0 

HArK0660 
M A ''K  0 6 Z"* 
M A FK  0 6 0 ,1 
M A CK  F,  6 n T 
HA  r<  ftoo 
u A r K 0 ' 1 0 
>-ArKO-f^0 
H»Fi<n7-^o 
Hrt  fk  '‘740 
HAFK  07^0 
>-'AFI‘'0766 
7/0 

HACKOZ^O 
iJ'.  FK  1700 
I-  A ri^  0 RO  0 
H Af<  TRIO 
HACK  0020 
1 1 4 r !<•  0 Q ■>  O 
a'AFk  0 R40 
MAFk  or  50 
' ■ A F K O R 6 0 
uArKOuzo 

HACKORRO 
maCK0"'’O 
H ACK  0000 
H ACK  00 1 0 
H ACKOQ20 


HA  75 


T 


T APE( 

P)  = 

WTA  II 

HAPkOOSO 

TAPE  ( 

S)  = 

RLE 

- 

HArK0040 

TAPF( 

10)  = 

ALL 

HACK0050 

TAPF( 

11)  = 

VLL 

HACK  OP60 

TAPF( 

12)  = 

OFP 

MACK0070 

TAPF( 

13)  = 

plmass 

HACK  OORO 

TAPF< 

1A)  = 

PLLT 

HACK  pooo 

TAPE( 

15)  = 

R ANGF 

A 

HACK  lOOO 

TAPF( 

16)  = 

fOPCF 

HACK  10  n 

TAPF  ( 

17)  = 

suow 

' 

' 

HACK 10?0 

TAPE( 

IP  ) = 

SUSL 

HACK  103  0 

TftDE( 

l^)  = 

R FL  IP 

HACK  1040 

TAPE( 

20)  = 

WPROP  S 

HACK  1050 

T APF( 

?1)  = 

POOW 

hack  1060 

TAPF( 

22)  = 

PPPL 

‘ 

HACK  1070 

TAPE( 

23)  = 

WPRnPB 

' HACKIOPO 

TAPE  ( 

2^)  = 

XLTOT 

t 

hack looo 

TAPF( 

25)  = 

WTH  1 

HACK  1 100 

TAPF( 

?6)  = 

WTH2 

HACK  1110 

TAPF( 

27)  = 

WM 

' 

hack  1130 

T APF  ( 

?e)  = 

XL  ■‘I 

HACK  1 no 

TAPF  ( 

2F)  = 

WP 

HACK  1 140 

TAPF( 

30  ) = 

OF^IT 

HACK  1 1 50 

TAPF( 

31  ) = 

WINERT 

HACK  1160 

TAPF( 

?2)  = 

PHF 

HACK  1 1 70 

TA9F( 

33)  = 

WM 

HACK  1 no 

TAPF« 

3A)  = 

KPOvwn 

H«CK  1 no 

T »PF( 

35)  = 

XI  PS 

HACK  1300 

TAPF( 

36)  = 

WPROPI 

HACK  1210 

TAPF  ( 

37)  = 

xltf 

HACK  1 330 

TAPF( 

3H  ) = 

WF 

H A CK  1 3 3 0 

tape( 

30  ) = 

XL  TO  X 

HACK  1240 

TAPE( 

40)  = 

WO  X 

HA  (,<,  1260 

TAPF( 

41)  = 

WF  TANK 

HAPK  I 260 

TAPF  ( 

42)  = 

WPXT^'K 

HACK  1270 

TAPF  ( 

42)  = 

XLTP 

HArki2P0 

TAPF( 

44  ) = 

KTP 

HAPK  1200 

TAPFI 

45  ) = 

ACA  3 

HACK  1300 

TAPF( 

46)  = 

HC 

HAPK  ni 0 

TAPFf 

47)  = 

WTSP 

HACK  1320 

TAPF( 

48)  = 

A EA3 

HACK  n’O 

TAPE( 

40)  = 

wr. 

HACK  1340 

TAPE( 

50)  = 

WFMR 

H A PK  n T 

T AP  F( 

51)  = 

A6A  3 

HACK  1 060 

TAPF( 

52)  = 

WT  INI  T 

HACK  1370 

TAPF( 

53)  = 

KTNOZ 

HACK  1 3P0 

TAPF( 

54)  = 

AC 

HACK  1 300 

TAPE( 

55)  = 

XL  F 

► 

HAPK 1400 

TAPE( 

F6)  = 

COO 

HAPK 1410 

TAPE  ( 

57)  = 

CLA 

HACK  1420 

no  = 

60 

HACK  1430 

nn  677  I = 

1,  13 

HACK  144  0 

6 77  TAPF( 

iLL+n 

= CnsnUMI  I ) 

MACK  1 4 50 

TAPEf 

ioo)=cnsTx 

HACK  1460 

666  CONTI 

NU  F 

HACK  1470 

I 

[ 

f 


L 


HA  76 


& 


I 


TAPFI  8 1 ) 

= 

PVtxi 

1, 

1 1 ) 

TAori  82  ) 

= 

PVIXI 

2 

,12 

TAPFI  8?  ) 

= 

8VIXI 

3 

,13 

TAP  FI  84  1 

= 

PVIXI 

4 

,14 

TAPFI  85) 

= 

8 V IXI 

5 

,15 

TAPFI  86  1 

= 

PVIXI 

6 

, 16 

TAPFI  87  ) 

= 

PVIXI 

7 

,17 

TAPFI  88  ) 

= 

RV  IX  1 

a 

,18 

TAPFI 89  1 

- 

RV!  XI 

9 

,19 

TAP  FI  90  1 

X 

PVIXI 10 

, I IC) 

TAPFI  91  ) 

= 

PVIXI 

1 1 

,111) 

TAPFI  92  1 

= 

PVIXI 

12 

,112) 

TAPFI 93  ) 

= 

PVIXI 

17 

,117) 

TAPFI 94  ) 

= 

PVIXI  13 

,113) 

TAPFI 95  ) 

= 

PVIXI  14 

, I 14) 

TAP  FI  96  ) 

= 

PVIXI 15 

,115) 

TAP  FI  97  1 

= 

PVIXI 

16 

,116) 

IF  ( Ncn^'MT  .Fo.  -47  ) r,r  rr  777 
IF  ( '<ril  12  .GT.  0 ) GO  TO  0497 
r.  LFAT  rn^FFPT  hn  fILF  12  FOR  SCREFNING 

jri2  = NCONFG 

IF  ( ATrNFC  .GT.  K5AVFL  ) GO  TO  1393 
WPITF  (Ml2'jni2)  TAPF 
M^12  = JC12  - 1 

13F3  r^NTIMUF 
849  7 rrNTIMlIF 

ACC7  FORMAT  ( 6XFHTAPF*  ( lOX,  5G15.8>  1 

rr  TP  t<;99 

6CC0  CONTINUE 

jri2  = NCHNOT 

PFADI  M12'jri2  ) TAPE 

NCONFG  = TAP  FI  I ) 

WTHl  = TAPFIPS) 

WTH?  = TAPFI  20 

WrPTH  = 1 WTHI*WTP1  + WTH2*V»TM2  ) / I WTMl  ♦ WTM2  » 

60CO  COMTINUF 

IF  ( IX  .FO.  0 ) on  TO  7198 

IF  I NCON'OT  .FQ.  0 ) CALL  PAGF 

WPITF  (NA,3M1  » NCONFG 

3711  FCRMATI  12X, CH****»* / 2 X , lOMC PNCF PT  *,  15,  7H  ♦ C C P F , 5 X , 5mwT .1  “ , 

1 5X , 5Hl T . IN, 3X , JOMPHA SF  RANGE. NM  ALT. FT  VFL.P  / 

2 i2*,f-.H*t****  ,3X,2H**,8X,3H***,7X3H*>»*,6X3I-i***,3X3H***  , 

3 5X,3H***,  ^ix’H***  ) 

WPITFII  6, 3712)  TAPFIlOO),  ( TAPE ( I ) , I =3 ,6  ) 

3 7 12  FPP>‘AT(  2X,  5HCnST*,F10.2,3X,4HWING,F10.  0,13X,5MCPUI  SF.FP  .1, 

I FP.O,  F7.2  » 

WPITF  IN6,37n»  I TAPFII  ),l=7,  in 
37  13  FORMAT!  2X  SHWOR  TH  , F 1 0. 2 , 3 X4H  TA  I L , F 1 0 . 0 , 1 •>  X4HL  LR  I ,F8  . I, 

I F9.0,  07.2  ) 

WPITF  (N6,3714)  I TA P F I 1)  , I * I 2 , I 5 ) 

3 7 14  FPRM  ATI  2x3HrEP,  F12.2,3X3HPLC  ,r  U.  0,F  10.  0 ,4  X5MT0T  AL  , FR  . I ) 

WPITF  INF, 3715)  I TAPFI I)  ,1=16,18) 

3715  FPWMATl 2X, 5HFnKrE,FlC.O,  3X,5HSUST.,  F9.0,F10.0  ) 

WPITF  IN6,’7U)  I TAPFI  I 1,1*19,20) 

3716  FPRM ATI 2X, 5HRFL IR,  F10.2,5X,  6HS.PR0P,  FIO.O  ) 


MACK  1480 
HACK  1490 
HAFK 1500 
HACK  I 51  0 
HACK  1520 
HACK  1 530 
HACK  1540 
HACK  1550 
hack  1560 

MAPK  16  7-1 

MACK  1500 
HACK  1590 
mark  1500 
HACK  1510 
HACK  1620 
H ACK  16  3P 
HACK  1 640 
HACK  1650 
HACK  1560 
HARK  1 670 
HACK  1680 
H ARK 169P 
HARK  1 7 00 
HACK  17  10 
HACK  I 723 
t-'AR.K  17'*0 
HACK  1740 
HA  RK  17  5.) 
HACK  1 76  T 
H«RK  1 77'' 
HACK  I TOO 

n « RK  1 1 
hark  1(03 
HACK  in  10 
H ARK  I •'  20 
HARK  1 ,3  ^ 0 
M ACK  1 n n I 
H A C K 1 P 4 0 
HA  '■k  1^53 
H .«  r K 1 3 6 0 
MACK  in  70 

hark  19  0 3 

'A  ark  18H 3 
HACK  IP'^O 
HARK  1 O I 0 
H'CK 1920 
HACK  1930 
HACK  19  40 
M ACK  1050 
hack  I 060 
HARK  197  1 
HACK  19P0 
HACK looo 
HACK200O 
HACK  2010 


Li. 


HA  77 


1 


i 


( 


f 


t 

I 

I 


f 

i 

1^ 

t 

[. 

f 

I 


WPITT  (N6,3717»  ( TA  P F ( I ) 1 1 *2 1 , 2 3 > , TAPE(2),  TAPEI2<») 

3717  FrRMAT(20X,  7HR00STrR,  F7.0f  FIO.O  / 22 X ,6HB. PROP t FIO.O  / 

1 20X,5HTnTAL»  F9.0,  FIO.O  ) 

WP  lTF(Me,  7777  ) TAPF(62)»  ( TAPFd),  1 = 64, 68»,  TAPE(63), 

1 < TAPE( I ),  1=69, 73  ) 

7777  FORMATC//  qxi<iH*COST  SUMPARY*  / 24  X5HTOT  AL  ,5X4HAF  ♦ I , 

1 6X4HPRnP,  6X4HGUI0,  eXAHCONT,  6X3HM/H  / 

2 <;X6HF.U.P.,  AX,6F10.3  / <)X5HROT*F,  5X,6F10.3  ) 

777  CONTINUE 

IF  ( KINO  .GT.  4<^  ) GO  TO  5450 

WRITF  (W6,  3019) 

3019  FORMAT  I ///  ) 

WRITE  ( N6,  3027  ) 

2C27  FORMAT  I 6X,20HBASIC  VARIABLES  LIST  / ) 

IF  ( KING  .r.E.  39  ) WRITF  (N6,  3042  ) 

30<2  FORM  ATI  6X4fHW  ING,  3X4HTA  IL  , 14H  W.A.R  L.  P/L  ,2  X5HW.  W/H  ,2X5HW.  G/F  , 

1 3X4H0I AM,2X, 5HR. T/W,2X,7Hn.P. ALT,2X5H0.P. M,2X6HC. P.GM, 

2 2X5HC.TT4, 2X6HW .OR.L , IX7HD. P.FCN, I X7MD. P.NAC , I XTHD. P.T AC, 

3 1X7HD.P.PMG  ) 

IF  ( KINO  .LT.  29  ) WRITF  (N6,  3052  ) 

3052  FORMAT!  6X4HWING,3X4HTA1L,14H  W.A.R  1.  P/L  ,2  X5HW.  W/ H ,2X5HW  . 0/C  , 

1 3X9HniAM, 2X,5HB. T/W  ,2X, 7HF. PARAM,2X5HS. 1SP,2X6HC.PRES, 

2 2X,5HMIX.R,2X,6HW.0R.L  ) 

IF  ( KINO  .GT.  39  ) GO  TO  3032 

C LIO/SOL  CASE  WITH  1THR=0  FOR  F INPUT 

IF  ( ITHR  .FO.  0 ) WRITE  I N6,3062  ) ( TAPE  1 1)  , 1 = 8 1 ,93 ) 

3062  FORMATOX,  3F7.2,  F7.1,  2^  7.  C,F7 . 1 ,F  7.  2 , F9.0  ,F7.l,F8.0, 

1 F7.2,  FP.O  ) 

IF  ( ITHP  .NE.  0 ) WRITF  (N6,3082)  ( TA PE ( I ), I *8 1 , 93 ) 

3082  FrRMATI3X,  3F7.2,  F7.1,  2F 7 . 0 , F7. 1 ,F 7. 2 , F9.0  ,F7.l,F8.0, 

I F7.n,  FE.O  ) 

rp  TP  3092 
3032  CONTINUE 
C R AMJ  ET  CASF 

WR  ITF(N6,  30  72  ) I TAPF  1 1 ) ,I  =81 ,97) 

30  72  FPPMAT(3X,  3F7.2,  F 7.  1 , 2F  7.  0 ,F  7.  1 ,F  7.  2 , F9,2  ,F7.l,FR.n, 

1 F7.n,  FP.C,  4Fe.2  ) 

3092  CONTINUE 

WRITE  IN6,30ie  ) 

3C18  FORMAT!//  ) 

IF  I NCONOT  .FQ.  -47  ) GO  TO  5450 
IF  ! KINO  .CT.  29  ) GO  TO  5440 
IF  ! KIND  .CT.  19  ) GO  TP  5420 
r.  FPR  Sf^LID 

WPITF  !N6,546I)  I TAPE! I ), I *27,34) 

54tl  FORMAT!  6X6HWT .M TP ,F 1 3. 0 , 5X6H LT. MTR ,F 9. 0 / 

1 5X7HWT.PROP,  F12.0,  5X6HEXIT.D,  F9.2  / 

2 6X7HWT. INR T,F  12.0,  5X3HPWF,  F12.2  / 

3 6X6HWT.N0Z,  FM.O,  5X6HMASS.ft,  F9.2  ) 

GO  TO  5450 

5420  CONTINUE 
C FOR  L louin 

WPITF  !N6,547l)  ! TA PE ! I ) , I *35 ,40) , TAPE(37),  TAPE(41), 

I TAPFI39),  ! TAPE ( I ) ,1*42,44) , TAPE(58) 

5471  FORMAT!  1 5X 5 HL T . IN , 5 X5H W T .LB  / 6X3HE NG ,F 1 1. 0 , F 10 .0  / 


HACK2020 
HACK  2030 
HACK  2040 
HACK2051 
HACK2052 
HACK2053 
HACK2054 
HACK2055 
HACK2050 
HACK2060 
HACK2070 
HACK  2OP0 
HACK2090 
HACK2I no 
HACK  21  10 
HACK2120 
HACK2no 
HACK  2 140 


HACK2  150 
HACK2160 
HACK2  170 
HACK2  180 
HACK2190 
HACK2200 
HACK2210 
HACK2220 
HACK2230 
MACK2240 
HACK2250 
HACK2260 
HACK2270 
hACkp’OO 

HACK220O 
HACK 2 3 00 
HAC.K2310 
HACK  2320 
HACK  2330 
HACK2340 
HACK  2350 
HACK  2 3 60 
HACK2A70 
HACK  23B0 
HACK239n 
HACK2400 
HACK2410 
hack  2420 
HACK2430 
HACK  2440 
HACK2450 
HACK  2460 
HACK2470 
HACK24B0 
HACK  2490 
H4CK2500 
HACK2510 


HA  78 


1 tX<iMFUFL,  2F  lO.O  / 6X2Hr)*,  F12.0,F10.0  / 

2 6X  AMFTNK,  2F  ir.O  / 6X<»HOXTK,  2F10.0  / 6X<fHT  F^p,  2Fl  0.0  / 

3 6XAHNQ?Lf  ICXfFlO.O  ) 

Gr  TO  5AbO 

5«A0  rCNTI^UE 

r FTP  PftMjfT 

WRITF  (Nb.SAen  ( TAPFI  I » , I =A5t50) 

•jAEI  FORmatC  ex,  AHACfl3,  FIC.A,  5 X7HH  T.  I NL  T ,F  fl  . I , 5X6HWT  . S F P,  F 1 1 . I / 

I 6X,AHA‘-A3,  FIO.A,  5 X 7HWI  . I Nl  T ,F  8.  I , 5 X6HWT,  F , Fl  I . I ) 

WPrTF  CM6,5A82»  ( TA PF ( I ) , I *51 , 55) 

5AP2  FORM aT(  6XAHA6A3, FIO.A,  5X 7H WT . I N L T ,F 8.  I , 5 X6HWT. NO Z ,F 1 1 . I / 

1 6y6Hr.AREA, FP.2,  5X7HLF.INLT,F8.l  ) 

5A50  CCNTINUF 
NTF^I  = 10 

NKtMO  = MOn  ( KINP,  NTEN  ) 

!F  < KIND  .FO.  A I ) GO  TO  7111 
TF  ( ntn  .NT.  3 ) GO  TP  7188 

IF  ( FACTOR  .GT.  I ) GO  TO  7107 
WPITC  ( 6,  7112  ) 

7112  FCRMATIEX  IPHSINGIF  EXT  BOOSTFR  ) 

GC  Tn  7ic)3 
71C7  CPNTINUF 

WRITE  ( 7122  ) 

712?  rppM/iT  ( 6X17EnuAL  ^XT  ROCSTFRS  ) 

GP  TP  7108 
7111  rONTINUE 

WRITF  ( 6,  7132  ) 

7132  FORMAT  ( fX  lEHINTEGRAL  RPOSTFR  ) 

GP  TO  7108 
7108  CPNTINOF 

WP  ITF  ( 6,7  1A2) 

7 CriDUAT  / tv  OU  IJMOp  fl?  Trn  1 

7108  CCNTIMUF 
RFTOPN 


HACK  25  20 

HACK2530  . 

HACK25An  ’’ 

HACK2550  i- 

HACK256n 

HArK?570 

HACK2580 

HACK25O0 

HACK2600 

HACK2M0 

HACK252P 

HArK2630 

HAOK26A0 

HACK2650 

HACK2660 

H ACK  2S7n 

HACK268n 

HAr,K2690 

MACK  2700 

MArK27  10 

HACK2720 

HACK  2 7 80 

MARK  2 7A0 

MACK? 750 

HACK  2 7^0 
HACK  2770 
HArK2780  ; 

MACK  2 TOO 
(jAOKPaoO 

HArK2810 

MACK  2820 

II 1 TK  2 17  8 

HArK28A0 
HAC.k,28S8 
HACK  2860 


SUPROUTIMF  CnSTWT(CnSN,WTTnT)  CoSTOOlO 
IC  = ( WTTOT  + 5.  ) / 10.  r.o<;T00?0 
crsN  = IC  rosTooio 
CCSN  = CrSNTio.  rnsTooAO 
PFTUPM  CORTOOSO 
FA'P  COSTOOEO 


c 


SORPPUTIfJE  PACKER  ( KFAIL  ) 

NUK.C»1-CG5M  P .K  .MCOnNOUGH  FIV/EBCO  10/18/73 
INTFGFP  VTCOPF 

CPMHCN  /AFTAR/  ARVT2(2),  flVT,  ARVlKllI 
common  /cnPFXX/  KING,  ITYPE,  XYZlAdA) 

CCMMON  /PRG/  CR  36(  36),  NW,  TCW,TCT,  BT , BW.  nR5(6) 

COMMON  /EXTERN/  AR20(2C) 

FOUIVALFNC.F  (AR2C(  5),WVEH)  , ( AR20(6I,  XLVFH),  ( AP20(3), 


1 

i 

PACKOO  10 
oACKno2o 
pAc.KOo^n 
PAC.KOOAO 
PArKnoRO 
P ACK0060 
PACK0070 
CCASE  ) paCKOORO 


HA  79 


COMMON  /GODOL/  DROnST,  WARD77(77) 

COMMON/lNHATX/HPPnj.HC  tW,ZZ(5) tHB LD I V , Z ZZ ( I U , T ST A PT , 7 Z ZZ « ? I 
COMMON  /LFT/  XLFlOriO),  lART,  XLF3(3) 
common  /PRIMTRZ  IP4(4),  IPACK,  IP2(2) 

COMMON  /S'JPFRBZ  KSYSA,  KLNCHf  KFGBV 

COMMON  /TOR/  RCLR,CLRA,CLRF,0ELVX,FCLR fGCLR tKMT.PSUe, 

1 RATCLR,  RFH,  THFAO,  THEBST,  TUBTHK,  VTCCOE,  WCLR, 

2 WT*»AX,  XLTMAX.DTUBMX , XLTBMX,  DPYLCN 

NAMFL  lST/RUGl/OENV,RENV,AOIM,RDI M,COI M,DD1 M,PHIP,SGIM,TniM,uniM, 
IVCIM.THFTPP,  CriMX,Cr>IMXX,KRUG 

NAMFL  lST/RUG2/EniM,FDIM,GDlM*PHI  ,GAMA,Hni M,PSI tOOl P, POI P,THETZ , 
IZriM.nFLOrM, DFLOEl ,nELVT,KOUNT,KBUG,RENV 
NAMFL  tST/RUC3/Rn  IM,THETBX,BDI  PP,  CD  I MP,D0  I MP  . BDI  MX  , GO  I MX  , PS  » B tX  I , 
IXJ.PS IBP,  THFTflZ,XK,XLfSOI MX,XM,XN,THETBY,PSIBX,XO,XP,KRUG 
NAM  El  f ST/RUrA/STLH  tREXP  ,WFOLO ,RE  SWt  PHI W ,WDI M , I ART , STU BHT , REX  PH, 
IHTFOLO.VTFOLO.VTl  STR,PFTT,  V TLUST  , V T L LST , VT LF LO , VTUFLO , STU PVT , 
2CAMX , XO  IM, srupT, pFTX,ALPH,xni MP, TFOLD,ALPHX,BETXX,Xr IMUfSTURTU, 
’TFOLOU,  STIJBTL  ,RETZX,GAMXZ,XDIPL,TFOLnL,KBUG 
NAMFl  l<;T/mJG6/  TUPin,TURCD,XLHEAO,TUBLT,TUBCYL 
NA-FL  IST/RUO^/  kCMT .OTUB  I ,RENV 

A'AmCl  I ST/RUG7/Wf  LR  ,Ff  LR  ,nPYl  ON  ,GC  L R,  PSUB  ,KMT,  ZS  , Z 1 ,ZT,ZTnT,BVT  , 
IHTOT, »T 

aamfi  IST/lNruT/  DpnnsT,  OCASE.RCLR,  THFBST,  DTUBX.CELVX,  RATCLR, 

1 wiTr’T,  hT'M,  ITvpF,  IART,  NW,  RW  , BT , BVT,  OELTUB,  TUBTHK,  RFH, 

2 ClPf,  ''I  “A,  rwf  AC,  VFH,  VTCOOE,  hCLR  ,FCLR,DPYLON,GCLR,  PSUB, 

3 • I « . •>  “T  , kiNCm,wvEh,kIND 

rTu*»»  • . • f'rA<;r 


rTu*»»  • . • f'rA<;r 

CFl  Til”  - , • ''T|jR  , 

I . ’.i  M . 

«»  A II  T 

IFI  It’S**  . ’ . ' I MOtTFIt,  INPUT) 

P I-  K U I' 

CPU  T . 

THF»A«»TRFnrT /npo 
PPf':ST»''.*>»CP”>^ST 
OFLVT.Ofl V* 

CT||«  I ■PTU"  * 

XCNT.O 

KOUNTsP 

PCAKf *n.K*rCASF 
1 ri  I TYPE.Ff).  1 ) GO  TO  7e<»S 
c IDF  MOUNTED  INLETS****** 
kiTOTsHPLOtV  ♦ H ♦ 2.*  TSTART 
t-TOTsHC  ♦ HPROJ  ♦ ?.♦  TSTART 
CO  Tn  7P50 

C«<»***pfi.ly  MOUNTFO  I Nl  FTS******* 

TEAR  WTOT=W  ♦ ?.♦  TSTAPT 

HTnT=HBLniV  ♦ HC  ♦ HPROJ  ♦ 2.*  TSTART 
78*0  continue 
K 10=10 

IF(  MODI  K IND,  K 10  ) .I  T.  31  RR0nST=0.0 
IFIK  IND.I  F.20)  HTOT=C.C 
I F(  K INO  .1  F .20  ) WTOT^O.C 
I FIKLNCF.FO.  I ) GO  TO  120 
15  CENV=CTtRI-2.0*P ATCLR 
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P ACK0200 
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PACK0720 
PACK0230 
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PACK0250 
PACK0260 
P ACK0270 
PACK0280 
PACK0290 
PACK0300 
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PACK0350 
PACK0360 
PACKO370 
PACK03H0 
PACKOS^’O 
PACKOAOO 
P A CK  u 410 
PACKnA20 
P ACkoaoo 
PACKOAAO 
PACK045O 
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PACK  04 7 0 
PACK 04«0 
PACK  04^10 
PArKn*;nri 
P ACK05  in 
P ACK0520 
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PACK0550 
PACK0S60 
PA  CKO 5 70 
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PrNV  = o.  5*np».'v 

20  IFJ(PCASt  ♦ CFl  VT ) .F0.RENV)Gn  TO  70 
AC  J^'  = RCNV-'’r  ASE-OFLVT 

IP((f'FLVT  ♦ Rr/\SF  J .GT.RFNVJ  AOr  MxOEL  VT+RC  ASF-ftENV 
eri»'=HCAsF  ♦ ponosT  ♦ bclr 

rriM  = ScPT(  AO  1M**2  ♦ R01M**2  - 2.C*Ar)IM*Br)lM*C0S(THFTAR)  ) 
r'riy  = rniM  ♦ ppoost 
iF(nn iM.r.T.PFNV)  go  to  icoo 
tF( ITYPF.F0.2)GP  TD  900 
C****PFLLY  wruNTFD  tNLFTS 

ir((HTnT  ♦ PCASE  + OELVTj.GT.OFAiV)  GO  TO  2000 
P(-rP  = A TAN(  C.  5^WTnT/(  HTOT  ♦ RCASF)» 

RriM=S0RT( 0. ?5*WTOT**2  ♦ (HTOT  * RCASF)**2) 

TriM  = SCPT(  AniM**2  -*■  SniM**2  - 2.  0*A0I  M*SOI  M*CnS  ( PH  I P ) ) 
IFdOIM  .CT.PENV)  rn  TO  2C00 
ijriM=t<Rnn<.r  + o.5*WTnr  ♦ i.o 

vriM=  PE  1M*S  IN(  THFTAP  ) 

I F(  un  iM  .r.T  .VO  iM  ) r,n  to  so 
K P(IG=1 

rF(  IPSA*. CT. Cl  wp  iTF(6,Rur.i) 
or  TP  CO 
so  vriM  = UPiP 

K pijr=2 

THFTPP  = A>S  II'I  voim/poimj 

rriYY  =SOPT(  AC  IH**  2 4 60111**2  - 2.  0*ADI  M*Bni  M*cns(  THFTPP  ) ) 

criMxx=rniMx  ♦ pRonsT 

KPur-3 

IF(  IPS!’ .OT  .C  I WPfTF<6,eUGll 
I FI  f IMHXX  .GT  .PFMV  I GO  TO  3000 
C'’’  XT’  CO 

C « « «#Twr- H'L  F T r.nr;  f IGIIP  A T I ONS*  ** 

SCO  fP  r*' =0.  S*HTO  T 

rojM— orAcr  A 

!'r!A'  = SOPT(  FPIY**  ? 4 FniM**2l 

PH=ATAN(roiM/rniM| 

rflMA  = n.s*p  r ♦ PH  I 

Hr!“'  = sfjPT(  apim**2  4 r,niM**2  -2.o*AniM*GniH*CFis(GAYA  1 1 
tF(  ( HDr'-PFNV).rT.0.2S)  GO  TP  920 
PS1=0.5*PI  -THFTftR 
rr  iM^MP  INI  PS  I ) 

Pr'IM  = FPlA'  4 PPOPST  4 i.o 
KPIjG  = A 

IF|  TPSM  .GT  .0  ) HR  ITF(6,P(JG2) 

K PUG=S 

IF  ( POIP*  .GT  .00  IM  ) GO  TO  950 
nc  TP  f.Q 

920  rFLT  = HPIA'  - RFNV 
KPIjr.=  4 

CTUP  I=PTIIP  I 4 OFLT*2.0 

KPUA'T=K0U'‘JT  4 I 

IF(  IPSM .GT.O  I WO  1TF(6,BUG2) 

IFIki'UNT.GT.  10)  GO  TP  999 
GP  TP  IS 

9S0  priM=«nnp?T  4 o.S 

TFFT0X= AR  s IM ( RP I M/pOf M ) 
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PACK  0700 
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PACK  1040 
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PACK  1 100 
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IF<  T^FTBX.GT.T^FT^'^»  SC  10  5 000 
PCIVPrPOfM  ♦ i.O 

Cn  1MP  = S0FT(  ADIM**?  ♦ pr)IM**2-  2, 0*ADI  M*BD1  l»*COS(  THETR  X ) ) 

nniPp=criMP  > rpoost 
tF(rn  IMP.GT.RENVJ  GO  TO  600C 
GO  TP  60 

C*«*CFNTEP  LINE  OF  MISSILE  ON  CENTER  LINE  OF  TUBE*** 

70  PriMX=FCASF  4 RBOPST  4 BCLR 
IF(  BPIMX.GT  .RFNV  ) GO  TO  1000 
IF(  ITYPF.FQ, I ) GO  TP  80 
C****TWr  INLFT  Cr^'F  IGUPATIPMS*** 

GriMX=S0RT(EniM**2  4 F0IM**2) 

IFt  GP  IMX.GT  .RENV  ) GO  TO  AOOO 
PSIP=C.5*P I - THETAR 
XI=BDIM*SIN(PSIB) 
xj=FriM  4 rpoost  4 1 
KPUG=6 

IF( XJ  .GT.XI ) GO  TO  75 
GO  TP  60 
75  XI=XJ 
KPUG=7 

PSrPP  = APSlN(  X I/PPIM  J 
THFTB7=C.5*PI-PSIPP  • 

XK=RPIM*SIM( THFTRZ ) 

Xl=PBPrST  4 0.5 

IF(  XL  .GT  .XK  ) on  TP  5000 

CO  TO  60 

C****eEILY  MOUNTED  INLFTS*** 

SO  SniF'X=SO»  T(  0.  25*WTOT**?  4 (RCASE  4 HT0T)**2) 

KPIJG=fl 

IF( SO  IMX.GT. RFNV)  GO  TO  2000 
XM=PniV*SIM»THFTAPJ 
XN=PBnPST  4 n.5*V.T0T  4 1.0 
K PUG=9 

IF(XN.rT.XM)  GO  TP  60 
THFTPY  = AR  SIN( XN/RDTM  J 
PSIPX=0.5*PI  - THFTRY 
XP=PH00ST  4 1.0 
XP  = Pn  IM*S  IN(PSIBX) 

I F( XP  .GT  . XO  » CO  TO  60 
GO  TO  7000 

C***M1SSILF  4 rooster  4 INLFTS  WILL  FIT  INSIDE  CAN  ENVELCFE**** 
60  CCNTINUE 

ir(  IPSM  .GT.O)  WR ITF(6, 17) 

17  FORM  ATI / lOX, 52HMISSILF  4 BOOSTER  4 INLETS  FIT  WITHIN  TUBF 
1 ) 

IF|  IPSM. GT.O)  WR  ITF  (6,PUG1) 

IFI  IPSM  .CT.C  I WR  ITF<6,BUG2) 

IFIIPSM.GT.C)  WR  ITFI6  ,BUG3) 

IFI  IPSM  .GT.O)  WR ITF(6,RUG4) 

IFIIPSM.GT.C)  WP  I TEI  6,  BUG5) 

TUB  in  = DTUB 1 

IFITUBir.GT.OTUBMX)  GP  TC  91CC 
TL)RPG  = CTIJR  I 4 TUPTHK 
XLHFAC=TUR0n*0.5/PEH 
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Tll<^LT  = Xl  VFH  ♦ CLRF  CLRA  ♦ 2.0*THEAn 
IK  TUHL  T.r.T  .XLTB^'»  ) Hfl  TO  9000 
TURCYL=TUPLT  -2.C*XLHEAn 
IF(  IP SV  .GT.O  ) WR  ITF(6,RUG6) 

IF(NW.NF.l)  Cn  TO  90 

IF|  IPRM  .GT.C)  WR  ITF(6,RUG3) 

STIIP  = SCRT  ( RFNV**2  - A0IM**2)  - BCASE 
BFXP  = '3W/2. 

WFOl  n=PEXP-STllR 

B FSW=SORT  IWFDLf)**?  ♦(STUB  ♦ RCASE)**2> 

PH1W=0.5*PI  - ARSINIWFOLO/RFShl 

wrT»'=SCRT|  AniM**2  ♦ PFSW**2  - 2.  0*A0I  M*  RF  SW*CnS  ( PH  m J) 
IKWPIM  .GT.PFNV)  GO  TO  8000 
SO  IF(  I APT  .GT  . 1 ) GH  TO  95 

IF<  IPSM  .GT  .0  ) WP ITE( 6,RUG3) 

KnUG=  10 

STUphT=S0RT|RFNV**2  - AniM**2)  - RGASF 
PFXPH  = PT/7  . 

HTFfU  r = PEXPH  - STLIRHT 
IF|  VTrXOF.GT  . 1 I GO  TO  IOC 
VTFOl n=RVT-nFL VT 
rr  TP  r'? 

ICO  VTL  STB  = PCNV-DFL  VT-B  C A SF- ADI  H 

IP((RCASF  + rFLVT)  .GT.RFNV  ) VTLSTB=RENV-ADI M-RCASF 
1F|  ( PCASE«-nFL  VT  ) .FO.PENV)  VTLSTB=RENV-RC  ASE 
VTFOl  n = PVT-VTl  STB 
cr  TP  113 

95  IF(  I APT  .GT  .2  ) GO  TP  105 
KBUC=  1 1 

IFIIptasF  ♦ GEL  VT  I .FO.RFNV)  A0IM=C.0 
STUBHT=SOKTIRFNV**  2- A 0 1 M** 2 ) -RC A SE 
HTTIIL  (;  = n.  I -STOHHT 

VTLUST=nFL VT 

VTliST=  OPNV  - nCASP  - oflvt 
VTLFLn=  0.5*BT  - VTLLST 
VTOFI  n=0.5tHT  - VTLUST 
CP  TP  113 

1C5  IF|  I ART.PT  .3  ) GP  TO  IIC 
K POG=  12 
STilPVT  = rFI  VT 

IFIIPCASF  + PfL VT » .GF.RFNV)  GO  TO  106 
PrTT  = 4P  SIAM  ACIM/IPFNVOSINIPI  /3.  » » > 
r A«^x=p  r-PF TT-P I / 2. 
xriA-  = PFMV*S  INIP  I/’.»*SINIPFTT) 

STORT=0.5*RT  - XOIM 
GP  TP  tCP 

1C6  irilPCASF  OFLVT)  .TO. RENV)  GO  TO  107 

IFIIPCASF  ^ OFL VT  1 .GT.RENV)  AOIM^OELVT  ♦ PCASF  -RFAV 
PFTX  = AP  S INI AP  IM*SINI 2.*P I /3. 1 /PENV) 

Ai PH  = P I-PFTX- 2.0*P 1/ 3. 
xniMP=AriM*SIN<AIPH)/SINIRETTl 
STDPT  =C.5*P T-xn  IMP 
f.P  TO  ICfl 

IC7  STUBT  = PFA'V-Pr.ASF 
ICR  TFnLO  = 0.5<‘BT-  STLPT 


pack  17A0 
PACK  1 750 
PACK1760 
PACK  1 770 
PACK  1 7P0 
pack  1 700 
PACK  1800 
PACK  IP  10 
P AC*'  1820 
PACi^  1R30 
pack  1840 
PACK  1880 
PATK  IPA  0 
PACK  18  70 
PACK  IP RO 
P ACK 1 PPO 

PACK  noo 

PACK  1910 
PACK  1 020 
PACK  19  30 
PACK  1940 
PACK  1950 
P A tk  I 9 6 0 
PAClf  1 97  0 
PACK  1900 
pack  1^00 
PACK  2000 
patk  20  10 
p ic.K  ?n?o 

PACK2030 

PACK2040 

o A C p iT  0 

PACK  2060 
PArK2O70 

PArK20‘’0 
o « CK  2 0^0 
P A CK  P 1 O 0 

pack  2 I 10 
PAfK?120 
p ATk  P 1 ->0 
p ACK  2 140 
r A Tk  2 I 8 1 

p A''K?1  A 0 
PACK  2 I 70 
patk  2 1 PO 
PAI-K  2 I 90 
PACK  2 TOO 
pack  2 T 10 
P'CK7220 
PACK  2230 
PtCK2240 
pack  2? 50 
PACK2260 
PArK2270 
PACK  2 2 PO 


HA  83 


J 


IF((‘<CASf  ♦ PFLT  ).GF  .RFNV)  GC  TP  III 
GO  TO  113 

no  /IPHX=ARSIN(  ariM*SIN(0.75*Pn/RFNV) 

KPUG=  13 

eFTxx=n .?5*p I - Ai  PHx 
xrrMU  = AC  tM*SIN{RETXX)/SIN(ALPHX» 

STUPTU=xn IMU-RCASr 
TFPl  nU=0.‘i*BT  - STURTU 
G?  T3  112 

111  IFllRCASF  ♦ DFLTI.GT.  RENV)  GO  TO  112 
STURTU=RF^IV  - RCASE 
STURTL=STUBTU 
TFOL  niJ  = 0.5*P  T - STURTU 
TFnLnL  = TFn|.DU 
GO  TP  113 

112  PFTZX=ARSIN( AniM»0.707/RFNV) 

GAMXZ=PI  - PETZX  - PI/A. 

XniMi  =PFNV*S IN(G AMXZ ) /C. 707 
STUPTL=XDIML  - RCASF 
TFnLnL=n.5*RT  - STURTL 

113  CPMTINUF 

1F(  IPSP  .CT.O  ) WP  1TE(6,RUGA) 

Gf  TP  PPRR 
120  CGNTINUF 

C#*«**wrLR=  W IMG  HEIGHT  ABOVE  OFCK  - IN 
C**«**FCLR=  FUSELAGE  HEIGHT  ABOVE  DECK-  IN 
f«#«**PYLQM  HEPTH  - IN 

ground  CLEARANCF  - IN 

^♦♦♦♦♦P<;U0=  PERCENT  SUBMERGENCE  OF  BFLLY  MOUNTED  ASM 
C*****KWT=1  PPLLY  mounted,  KMT=2  WING  MOUNTED 
C****  ITYPF=1  BELLY  INLFT,  1TYPE*2  DUAL  SI DF  MOUNTED  INLETS 
/ S=  I 2.U  - P buB i *0. 3Y DCa SE 
1F(KMT  .GT  . 1 ) ZS=  DPYLON  ♦ DCASE 

7 I = HTOT 

IF(  ITYPE.CT.l  )ZI=0.0 
IF(  lAPT.GT.l)  GO  TO  200 
7T=0.0 

IF( VTGODF.GT. n ZT=BVT 
GO  TO  500 

TO  30C 


RSUR/RMISS  ILE 


2C0 


3 00 


ACO 

ECO 


ECO 


ir(  [APT.GT.Z  1 GP 
ZT=0.5*PT 
GO  TP  500 

IF( IART.GT.3)  GD  TO  AOC 
7T=0. 25*PT 
GO  TO  500 
ZT=0.3535*PT 
IF(  FTOT.GT.ZT  | ZT=0.0 

IF(ZT.GT.HTPT)  7I«0.0 
ZTnT=ZS  ♦ Z I ♦ Z T ♦ GCLP 
AGCLP  l*FCLR-Z  TOT 
AGCLP2*WCLR  - ZTPT 
IF(KMT.GT.l)  GO  TO  60C 
1F( ZTOT  .GT  .FCLR  ) GO  TO  8500 
CP  TP  700 

IFIZTOT.GT.WCLR 1 GO  TO  3600 
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CCNT  I ►MIF 

IF  ( ir^M  .r.T.  0 ) WPITF  (6,BUG7) 

inwVEH.GT.WTMAX  ) GO  TO  E700 
IFCXLVFF  .CT  .XLTMAxIGO  TO  8800 
ir(  IPS^'  .r.T.O  ) WP  ITF(6,  9) 

Pf'R'' AT(  lOX,  3CHA  SM  EXTERNAL  CARRIAGE  POSSIBLE  ) 

GO  TO  8PP8 
KFA IL  = 1 

IF(  IPS>‘ .GT  .0  ) WPITF(6,  10)  ZTO  T ,F  CL  R , AGC  LR 1 

FORM  ATI / lOX, A7HRFI LY  MOUNTER  ASM  FAILS  CLEARANCE  TEST  ZTOT  = , 
lCf.2t2H,  , SHFCLP  = .F6.2,?H,  ,1SHACTUAL  GROUNO  CLR . = , F6. 2 ,4H  IN. 
or  Tf'  PPRR 
KFA  II  =1 

IC(  IPSM  .GT.C  ) WRITF(6f  11  ) ZTOT.WCLP  ,AGCLR2 
rOPM  aT(  / lox,  8PHW  INC,  mounted  ASM  FAILS  CLEARANCE  TFST  ZTOT  = , 
1FP.?,2H,  , EOWCLP =,F6.2.2H,  .l^HACTUAL  GROUND  CLR .=  , F6 . 2 , AH  IN. 
GO  TO  PPPS 

K FA  n =1 

ir(  IPSE. GT.C)  WP  !TF(6,  12) 

FORMAT! /10X,21HASM  FAILS  ^F^GHT  TEST  ) 

GO  TO  RPPfl 
KFA  IL  = 1 

IF(  IPSM  .GT  .0  ) WRITE! 6,  13) 

FORMA  T(  / nx,  2 IHASF'  FAILS  LENGTH  TEST  ) 

GO  TO  PRPR 

comtinuf 

IF!  IPSM. GT.C)  WP  ITF(6,  1 ) 

FORMAT!  /lOX, 3FHMISSIL  F 
GO  TO  qqo 
FONT IMUF 

I F!  IP  SM  .GT  .0  ) WR  ITF  ! 6, 

FORM  A T!  / lOX,  arhmi  SSI  LE 
CO  TO  Fioo 

font  I NUF 

IF!  TPSM  .GT  .0  ) WR  TTF ! 6f 
FORMAT!  /lOX, AOHM  ISSILF 
Gf'  TO  qqq 
CONTINUF 

IF!  IPSM.GT.O)  WP  ITF!6, 

FORMAT!  / lOX, AAHMISSILF 
GO  Tn  pqo 

font  INIIF 

IF!  IPSM  .GT  .0  ) WR  ITE  !ft.  5) 

GO  TO  pep 

FORMAT! /IOX.aOHINSUFFICIFNT  clfarance  betwffn  boosters  ) 

CONT INUE 

6) 

S.M.  INLET 


+ BOOSTER  TOO  lAPGE  FOP  TUBF  ) 


21 

*■  RFLLY  MOUNTEP  INLET  TOO  LARGE  FOP  Turf 


3) 

♦ B.M.  INLET  ♦ PIOSTER  TOO  LARGE  pop  Tijop 


A) 

SIDE  MTD.  INLET  TpO  LARGE  Foo  Tiinp  ) 


IF(  IPSM  .GT.C  ) WP  ITF(6, 
FrRMATl /IPX, A9HMISSILF 
GO  TO  PPP 
rOMT  INIIF 

IF(  IP  SM  .GT  .0  ) WR  I TF  ( 6, 


♦ BOOSTER  TOC  LARGE  FOR  TURF 


71 


FORM  AT!  /I  OX , 30HPnr STFR  INTERFERENCE  WITH  WING 
CONTINUE 


in  IPSM.GT.O  WPITF(6, 


a ) 


R FORMAT! / inx, 3AHW  ir G FOLD  WILL  NOT  FIT  IN  ENVELOPE  ) 


PACK  2B AO 
PArK2B50 
P AGK?QftO 
PA  0X2  870 
P ACK2‘’B0 
pagk  28of) 
PArK2P0') 
PACK2P  10 
PACK  2820 
PACK2P3,1 
PAr,K?c;/,o 

PAGKPPSO 
PACK  2060 
PArK2P70 
PAr,K2P80 
o ftTK  2"O0 
PACK  3 OOP 
PACK  3010 
PACK  3020 
OAf K3O30 
PACK  30A0 
P ACK30S3 
PACK0060 
P ACK3070 
P A CK  T 0 R 0 
PACK  300") 
r>ACK31'^n 
pagk  3 I 10 
PACK3120 
PA  i-K  3 m 
P A.  CK  3 1 A 0 
)n  AOK  0 1 =^0 
P A -"K  3 1 M 0 
pact  31 70 
PACKS IRO 

) P A Gi^  T 1 n T 
PAC<T20O 

pagk  3210 
R/'fK  5R20 
mack  3? 33 
PACT  32A0 
P AGt  3 7 80 
R ACK  32  A- 3 

pagk  j270 
PACT  3 2E  ) 
PACT  3?''0 
P'CKRTOO 
) p A c.K  3 :m  0 
PACK  33  TO 
R ACk  33T0 
P AC<  33A0 
PACK  3 3 80 
PACK3360 
PACK  3370 
pack  33P0 


HA  85 


GP  TP  P88B 
qCCO  KFAIl  =l 

IF(  IPSM.GT.C)  WBITF(6,  Ut  TU8LT,  XLTBMX 
U FPR^'ATC /lOX,  lAHTLFE  LFNGTH  = ,F6.2t43H  IN. 
IIMUM  LFNGTH  OF  ,Ff.?,AH  IN.  ) 

GO  TP  8888 
RICO  KFA  IL  = l 

IF(  IP SM  .GT  .0 ) WRITF(6,  Ife)  TU8I0,  0 TUB 
16  FD^'^ATI  / 10X,12HTUPF  I . D.  = ,Fb.2,<tlH  IN., 
lUM  I.R.  OF  ,F6.?,4H  IN.  ) 

GC  TP  8888 
RSR  CPNTINUF 

DTU8I=rTUP I ♦ OEl TUB 
KfMTsKGNT  ♦ 1 

IFI  IPSM  .CT.C  ) WR  ITE  (6,BUG5) 

IFIKGNT.CT.IC)  GD  TO  8888 
GP  Tn  15 
8883  CPNTINUF 
RFTUPN 
FND 


PACK33R0 

PACK34»00 

PAGKSAIO 

, GREATER  than  INPUT  MAXPAr.K3420 

PACK  34 30 
nACK34A0 
P ArK3450 
PACK  3460 

GREATER  than  INPUT  AX  ACK  3470 

PACK  3480 
PArK3490 
PACK3500 
PArK3610 
PACK3520 
PACK  3530 
PACK  3540 
PACK3550 
PACK  3560 
PACK3570 
PACK  3580 


SUBRPUTIAF  SURF! SE  I ,AP I ,I SURFI ,I PLANI , B I , RCI ,TC I , T AKS I , TR I , IWT , SURPOOlO 

I  STEI  I SURP0020 

RFAL  KrV.,K.V<;,KRHT  SURFOOBO 

CPMMf'N  /AERP/  X57(57),  XPIT,  X35(35),  SLET,  X12  ( 12  » 5URFn040 

CPMMPN  /AFTAR/  ARVT,TRVT,BVT,RCVT,TCVT,TANSVT  5URF0050 

1 , STFVT,  GGMI?;(7)  SU>5F0060 

CPMMPN  /PPG/  P03£I36),  NW,  084(4),  APT  ,A RW  , T RT , TRW  , 0 92 ( 2 ) SURF0070 

CPMMPN  /IFT/  SFTIC(IC),  lART,  SFT3(3)  SURF0P80 

( /imAEkC/  Tn?  L , ST  , STZL  , THKk  T , S *« , THKRW  , ui  , T KZ  L i I ( I i i SURrOvOPO 

1 , WW  ING, I ARW, TN7L 5( 5)  SURFOIOO 

CPMMPN  /PKINTR/  173(4), IPACK,  1733(2)  SUPFOllO 

COHMPN  /SURFX/  R MPES ♦ WDG  ,GULT  , I WTS , WWT NGI  , WTI , WPV AW  , WPV AHT , SURF0120 

1 WPVAVT, WOVA  T, WT, WHT  ,WVT , V TA LOG , ST A I L , SHTPAN,SHT  ,SVT  ,WT A ILS  SURFQ  1 30 

2 ,SLFW,SLFVT,(  S(!RFW,IPLANW,ISURFT,IPLANT  SURFOIAO 

CPMMPN  /UPINLT7  PFAMBL(12R),  XCGDl  SUPF0150 

COMMON  /VFPT/  VF1P(18),  THKRVT,  VE2(2)  SUPF0160 

CPMMPN  /XINERT/  X26(45),PANWW,  X X4( 4) , PANWHT  , XX X4 (4 ) , P ANWVT , SUPFOItO 

I X61(6l),  PANVT,  X14(14)  SUPFJIPO 

MAMFL  IST/BUG/  BWTrT,SWTnT,SWlNT,ARWTCT,TPWTnT,WDGN7,AWW,pww  , SURFoior) 

1 CWW,nwW,FWW,FWW,WWING  SUPF0200 

NAmfi  IST/HUGI/  stint, BTTrT,STTCT,ARTTPT,TRTT0T,WHTAIL,wnGN7  SUPFn?lO 

2 ,PVTOT, SVTINT,fnS4VT, SVTOT,ARVTOT,TP VTOT , AVT , BVT X , CVT , SURF 02 20 

3 CVT,EVT,FVT,GVT,HVT,WVT,WHTAIL  SUPF0230 

C ISUPFI=1 TRAPF7niDAL  WING******  SlJRFn240 

C ISURFI,  I OFLTA  wing*****  SURFn2S0 

C**«**IPLaNI  = 1 INPUT  SFI,ARI,TRI  *****  SURF0260 

C**#*#  IPL aNI=2 INPUT  SF I , AR I ,L .F. SWFFP  ****  SUPF0270 

IPLAN  1= 3 INPUT  SEI,ARf,0FS  MACH  NO  *****  SURF02P0 

C*****IWTS=1 INPUT  SURFACE  WEIGHTS •******•♦*♦  SURF02P0 

C*****tWTS*2 surface  WEIGHTS  PASEO  ON  WT/UNIT  AREA  ♦**♦♦♦♦♦  SUPF0300 

p*##*** fWTS=3 COMPUTE  WEIGHTS  BASFO  ON  PFF *****  SURF0310 

1AIR=IPACK  SURF0320 


HA  86 


P 


j 


rcflSF  = Di 

1F(  isut  F ! .r.T  . 1 ) nr'  in  loc 
in  IPL4M  I .GT  . I ) C.r  TO  lie 
PI  = SCnT(S'=  I*AP  I » 

PCI  = SF  I/(  0 ,5<'P  I )/(  1.0  ♦ TRI  ) 

TO  I=RC  I’f'TO  2 

Tfl^'S  1=4  .♦(  1 .-TRI  )/(  (1  .♦TP  I )*ARI  ) 

GO  TO  500 
ICO  CONTINUF 

IF(  IPl ANI .GT . 1 ) GO  TO  ?0C 

TP  1=0.0 

TANS  1=4  .0/AR  I 

R I = SORT( SF  I*AR  I ) 

PC I=2.0*SFI/BI 
TCI=RCI*TR  I 
CO  TO  500 
2C0  ConTIN'OF 

IF(  IPLAMI  .GT  .?)  GO  TO  TCC 
P I=SOR  T(  SF  I*ARI  I 
pri=?.0<'PF  T/PI 
TO  ( = 0 C ! OTP.  I 
or  TO  500 

3C0  IF(  IPLAMI  .GT.  ? ) GO  TO  3505 

TAM  <;  [ = c;np  t(aps(pmpfsoo2-1.)) 

RI  = SORT( SFI*AP  I ) 

Rfl =2.00SF  I/R  I 
TO  I = PC  I OTP  I 
GO  TO  500 

35C5  PI  = SORT!  SEI  ♦ API  ) 

RGI  = ? . * SFI  / PI 
TO  I = P r 1 * TR  I 

SIPT  = 4TAN  ( 2.*(  RG  I*.5*P I*TAN(  STFI/57.206  ) - TCI  )/PI) 

T ANR  I = TAM  ( SI  F I ) 
sm  = SLP  I * 57.256 
GO  TP  500 
1 10  GONT IMdP 

I F(  IPl  AM  I .GT  .2  ) GO  TO  12C 
P I = SOR  T( SF  I*AR  I ) 

COM  I =T  AMS  I «AP  1*0.2'= 

I FirON  I .OT  . I .0)  GC’  T*^  130 

TP  i = ( i.n-ccNn/(  i.c  ♦ CONI) 

R 1=SQRT ( SF  I*AP  I ) 
pri=SFI/(O.5*RI)/(l.0*TPI) 

TG  r=PC  I*TR  I 
GO  TO  5G0 

120  IF  ( IPIANI  .GT.  3 » GO  TO  3600 

TANS  I =SOP  T ( APSIR  P'nFS**2-  1.  ) ) 

COM  I = TANS  MAR  1*0.25 
I F( GON  I .GT  . 1.01  GD  TO  13C 
TP  l = ( l.O-GON  n/(  l.O^GPNl  ) 

P I =S0P  T(  SF  MAR  ! ) 

BGI=SFI/(0.5*Rl)/n.0*TRl  ) 

TC  I=PG.  MTP  I 
GO  TO  500 
120  GONTINUF 


SIIRF0330 

SIIRFO  j/,0 
SDR  FORSO 
SliPFn=»63 
SUPF0370 
SUP  F0  3R0 
Si)PF0  390 
SDPF0400 
SUP  P04  10 
SUPF0420 
SIJPF0430 
SD  PF0440 
SUPP0450 
SUPF0460 
SIIRF0470 
SUP  F04C0 
SUP  00400 
SUPFOSOO 
SUP  ‘=05  10 
SnoF0520 
SUR  FO  5 30 
SUP  F0540 
Sii  pfofso 

su  p‘'05A,n 
so  PFosrn 

Sll  RFO  5 HO 
SURPO5O0 
SUPFO^nO 
SUP‘=OM  ) 
SUPF052  0 
supro63o 

SI  I p FO  5/; 0 

SI|P‘'0d50 
SUP  F.'^hf.O 
SUPF(V.  TO 
SOPF0650 
SUPF05O0 
S ) PFO/OO 
Sll  Prn  7 10 
S"P'=0  7 20 
SO'P  FO  7 30 
SUPfq/a  ■) 

SU  RFCi  7S0 
Sll  PF0760 
Si|PF077n 
SIIRF07P0 
SIIPFO  700 
SUR  FOPOO 
SUP  FORI  0 
siipro5?o 
SIJ  RFO‘330 
Fii  oFnp40 

SIIRP08SO 
SURFOR-FO 
SUR  F0R70 


r 


ICUPF  1=3  .0 

TP  1 =n  ,0 

tP  1 =4.0  /T/VN  s I 
P I = S0«T ( SF  !♦ AR  I » 

PC  I=2.0*SF1/RI 
TC  I=TP  i*pr  I 
rn  TP  500 

36CO  R!  = SORT  ( SE I ♦ ARI  ) 

PCI  = SE  I / ( .5*PI  ) / ( 1.  «■  TRl  ) 

TCI  = P r I * TR  I 

SLFI  = 2.  (RCI+.5=*PI*TAN(STEI/57.296I  - TC  t » / BI 

SI  E I = ATAN  ( SLET  ) 

TANSl  = TANISLEH 
SLFI  = SLFI  ♦ 57.296 
5C0  CONTINUE 

iri IWTS.FO. 1 ) GO  TP  40C 
IF( IWTS.FO.?)  GO  TO  450 
IF(  IWTS  .F0.4)  GO  TO  35C 
IF( IWT.GT .0)  GO  TO  700 
IFINW.FO.O)  go  to  700 

r ♦♦♦♦♦♦♦fHMPUTF  SUPFACF  WEIGHTS  BASEO  CN  REF.  ♦♦♦♦♦♦♦♦♦♦*♦* 

C0S4I  = l.n/( TAMSI*SORT( ( 1.0/TANSI  »*♦?  + 0.5625)) 

IF(TP  I.FO.O.O)  KCW  = C.768 
IF(  TP  I.GT.0.0)  Kr;w  = i.c 
KVS=  l.O 

IF(NW.FO.O)  GO  TO  700 
PV.TnT=  PI  +01 

SWINT=n  .5*RC  1*0  1 ♦ 0.  125*0l*TANSI  *Dl 
SWTnT  = SFI  ♦ ?.0*SW1NT 
AFWTnT=RWTnT*’«'2/SWTnT 
TPWTOT=TC I /(RCI  ♦ C. 5*ni»TAMSI ) 

Wi:(:N/  = WlH.>»fjULT 


SURFOBBO 
SURFORPO 
SURFOOOO 
SURF09 10 
SUP  F0920 
SURF0930 
SUPF0940 
SUP  F0950 
SUR  F0960 
SU  PFOf’TO 
SURF09P0 
SUPF0990 

suPFiono 
suRFimo 
SURF1020 
SURFIO30 
SURF  1040 
SURF1050 
SUPF1O50 
SUP  FI  070 
SURF1080 
SURF  1090 
SUPFl 1 00 
SURF)  I 10 
SURFl  120 
SUPFl  130 
SURFl 1 40 
SUP  FI  1 50 
SUP  FI  160 
SUPFl 1 70 
SUPFl  IRQ 

C I ) D Cl  1 O 


AWW=SOP  Tt  WOCNZ  ) 

PWW=(  SWTOT/ 144. )**n. 622 

CWW=ARWT0T**0.785 

rww=THKRW*T(-0.40) 

EVW=(1.0  ♦ TRWTnT)**0.C5 
FWW=  1 .0/COS4 1 

WW  IM 0 = 0.0  10 2*KnW*K  VS*AWW*BWW*CWW*OWW*EWW*FWW 
IF(  IARW.E0.4)  WW IMG  = 2.*WWING 
IFI  lAlP  .GT.O)  WR  ITF(6,PUG) 

00  TO  600 
7C0  CONTINUE 

WOCNZ  =wrr,*GUL  t 

STIMT  = 0.5*PCI*01  0.  125*D1*TANSI  *01 

PTTriT=PI  ♦ 01 

STTPT=SEI  ♦ ;.0*STINT 

STTOTF=STTnT/  144. 

ipTT0T=PTTnT**2/STTnT 

TPTTOT=Tr I /( PC  I ♦ 0.5*ni*TANSI ) 

roS4I  = l.0/( TANSl *SOP T( ( 1 .0/TANSI ) **2  ♦ 0.5625)) 
WFTA  lL=4.0  49*STTnTF**.  789*( WDGN7 /lOOO. ) **0. 25/11.0 
IFI  lAPT  .NE  . 1 ) GO  TO  111 
GO  Tn  112 
111  CONTINUE 


SURFlZnO 
SURF1210 
SU  PFl 220 
SUP  FI  230 
FU°F1?40 
SURF  1250 
SUPF1260 
SURFi27n 
SUPF12P0 
SURF  1290 
SU  PF  1 390 
SUPFl 3 10 
SURFl 320 
SUPFl  3:<o 
SUPFl 340 
SURFl 350 
SURFl 360 
SURF1370 
SURFl 3P0 
♦ 01/RTTrT)**2  SUPF1390 
SUPF1400 
SU  P F 1 4 I 0 
SU  PF  I 420 


HA  Rfl 


AO<»e  366 


unclassified 


LTV  AEROSPACE  CORP  DALLAS  TEX  V0U6HT  SYSTEMS  DIV  F/6  15/7 

missile  - CONCEP— ETC(UI 

VSO-00.1636-VOL-3E-REV-A  iL 


WTAILS=e.C98*  STT0TF**.78<?*  ( WOGNZ  / 1 41 4 . I **0.  ?5  / SURF  1430 

1(1.0  ♦ ni/RTTnT)**2  SURF1440 

f F(  lA  IP  .O’- .0  ) WR  ITF  (6,BUGl)  SUPF1450 

C**<**WT=WFIGFT  OF  rqiiriFOPM  TAIL  SUPF1460 

GO  TP  ICOO  SURF1470 

112  CTMINUF  SURF14ftO 

KPHT  = 1.C0  ^iJRFlAOn 

HVTPT=PVT  ♦ .5  * pi  SURF1500 

SVTINT  = .5  * RCVT  * 01  ♦ .125  * 01  ♦ TANSVT  SUPFISIO 

C0S4VT=  1.0/( TANSVT*S0RT( ( 1.0/TANSVT) •*2*  0. 56251  1 SHPF1420 

SVTTnT=SVT  ♦ SVTl^'T  SIIRFISTO 

APVTnT=PVTnT«'*2/SVTTnT  S')OF15<,0 

TPVT0T  = 7CVT/(RCVT  0.5*0  l*TANSVT»  S'IOF15‘'0 

AVT=wnONZ**C.124  SUOFIS60 

PVTX=(  SVTTPT/144.)**C.606  SI)PFIS70 

CVT=RM0E?**0 .404  RURFISPO 

armt=  xn  IT- xccni  Supfi690 

I F(  ARMT  .1  T .4  . ) ARMT  = 4.C  SURF1600 

rVT=( ARMT*CCASF/12.)**(-.516)  5URF1610 

E:vT=  ARVTnT**C.344  S1)RF1620 

FVT=THKRVT**(-C.?50I  SUPF1630 

GVT=(  l.O  ♦ TR  VTPT  ) **0.25  ':i)RF1440 

»-VT=rnS4VT**  (-0. 332)  SURF16S0 

WVT  = 0.5  57*KR  HT*A  VT*R VT  X*r  V T*0 V T*E VT*F V T*G VT*H VT  SURF  1460 

V^TAII  S=WVT  ♦ WHTAIL  SU^FlftTO 

IF  ( lAIR  .CT.  0 ) WRITF(6,PUG1)  SURF16S0 

1000  rPPTINUF  SUPCift90 

GP  TP  600  SUPF17P0 

4C0  CPNTINUF  SURFITIO 

C CPWPPMFMT  V*FrOHTS  MUST  PF  INPUT  ♦♦*♦♦♦•***  Suoci720 

ir(  I ART  .MF.  I ) on  Tn  mo  sup'll  730 

wvT=vTAir'c  * ^«Ti  suoFiz4n 

WHT  = WTI  - WVT  SURP1750 

WWING=WWINGI  SURF1760 

IF(NW.FO.O)  WWIMG=0.G  SURF1770 

WTAIIS=WUT  ♦ WVT  SUO'^ITRO 

GO  TO  600  SIIRPI  700 

1110  CPNTINUF  SURPlsno 

c,  ♦♦♦♦♦♦ImsfRT  TAIL  WFIGHT  HFRE  *••••**  SURGIRIO 

WTAILS  = WTI  SUDcm20 

WW1NG=WWINGI  SUOFI030 

IF(Mw.FO.n)  WWING  = C.O  SUPriR^,-) 

rp  TO  600  S'|ori550 

350  CPNTINUF  SUDFlRGO 

ir(MW.FO.O)  r,n  TO  360  SucriRTO 

NWPAN=?.0  SIJRFIPPO 

IF(  IARW.FO.4)  NWPAN=4.  SURFl.RRO 

WWU4G=P  AMWW*NWPAN  SlIRFlPnO 

3t0  CONTINUE  SURFlolO 

NTPAN=4.0  SlIRFlOPO 

I F(  I AP  T .FO  .3  ) NTPAN  = 3.  SURFI03O 

ir(  IART.EO.I)  NHTPAN=2.  SURFIOAO 

IF(  I APT  .FO.  1 ) NVTPAN»l.  StIRFlOSO 

IF(  lART  .FO.l  ) GO  TP  3eC  SURFl<»60 

WTA IL S=PANWT*NTP AN  SURFl^TO 


HA  89 


GP  TO  600 

1€0  WTAILS=PANWVT*NVTPAN  ♦ PANWHT*NHTPAN 
GP  TP  6C0 

a;o  cpntimuf 

1F(NW.FC.0»  GP  TP  2C5 
WWING=W0VAW*SW/1AA. 

2C5  CONTINUF 
WWING*0.0 

IF(  lART.MF.l)  GO  TO  210 
WHT=WnV AHT*SHT/IA4. 
WVT*WnVAVT*SVT/lAA. 

WTAILS=WHT  ♦ MVT 
GO  TO  600 

210  WT=WPVAT*ST  /lAA. 

WTAIL  S=WT 
eCO  CONTINUF 
RFTURN 
ENO 


SURF1980 

SURF1900 

SUR«=2000 

SURF2010 

SURF2020 

SURF2030 

SURF2040 

«;URF7050 

SURF2060 

SURF2070 

SURF20R0 

SURF209n 

SURF2100 

SURF2110 

SURF2120 

»;uRF2130 

SURC21A0 

SURP2l';0 


C 

C 


SURROUTTNF  WTIRTH  ( WTHl,  WTH2t  EMPTY  ) 

NUK.CM-Cr.SM  P .K. MCDONOUGH  FIV/ERCD  10/18/73 
CnwPUTF  RELATIVE  WORTH  — SIOE  1 AND  2 FIRST 

COMMON  /SCRNNL/  NP TS ( 2C I , PAR VNL I 7 ,20) , DWNLI 7 ,20 ) tOUMMY ( 
1 ,NSCPST,  IDUAMAI  A) 

COMMON  / SWORTH/  KRASE,  WORTHl,  W0RTH2,  NPAR,  KPAR(20) 
1 OERVIIZO),  nFRV2(20) 

DIMENSION  PAROON  ( 20  ) 


WORTOOIO 
WPRT0070 
WORTOOOO 
50)  WORTOOAO 

WORT0050 
, PARVI 20) ,WPRT0060 
WORTOOYO 
WORTOOPO 


COMMON  /PFRF/  KRY2(?) ,PEA(A),MOPT,  NLPHAZ,  NCPHAZ,  NDPHA/,  WORT0090 

I XMACHF(20),  ALTF(20),  GAMMAF(20),  FVALUEI20),  FE50O(58O)  WORTOIOO 


CPMMCiN/ROUNOP/PRNGIZO) ,HORTZ,CEP,RANGE ,RCR , ACR , VCR  , 

1 RLL  .ALL  ,VLL,  RUE 1A(  lA) 

COMMON  /ZWOPTH/ZX  10)  , FORCE,  ZSX(IO),  RELIB,  NLLRI,  ZAX(9) 
C CPMPUTF  PHASE  VARIABLES  FROM  PHASE  STORES 

IF  ( (NCPHAZ  .LF  .C  ) .OP.  (NCPHAZ. GT. NLPHAZ ) ) GO  TO  3501 

KC  = NCPHAZ  -1 

VCR  = XMACHF ( NCPHAZ) 

ACR  = ALTF(  NCPHAZ  ) 

IF  ( NCPHAZ  .EO.  1 ) PCR  « PRNG(l) 

IF  ( NCPHAZ  .NP.  1 ) RCP  = PRNGI NCPHAZ)  - PRNG(NC) 

m TO  3505 
35C1  CONTINUE 
VCR  = 0. 

ACR  = 0. 

PCR  = 0. 

35C5  CONTINUF 

IF  ( (NLLRI.LE.O)  .OP.  ( NLLR I .GT. NLPHAZ)  ) GO  TO  3511 

NL  = NLLRI  - 1 

VIL  * XMACHFI  NLLRI  ) 

ALL  * ALTF  ( NLLRI  ) 

IF  ( NLLRI  .FQ.  1 ) RLL  * PRNGCl) 

IF  ( NLLRI  .NE.  1 ) RLL  * PRNGINLLRI)  - PRNG(NL) 

GP  TO  3515  . 

3511  CONTINUE 


WORTOl  10 
WPRT0120 
WPRT0130 
WORTOIAO 
WOPT0153 
WPRTO 160 
WPRTOITO 
WORTOIRO 
WPRT0190 
WORT0200 
W3?  T0210 
WORT0220 
wnRT0?3n 
W0RT02A0 
WORT0250 
WORT0260 
WnRT0270 
WORT0280 
WnRT0290 
WORT0  300 
wnRT0310 
WORT0320 
wnRT0330 
W0RT03A0 


HA 


90 


ALL  = 0. 
VLL  = 0. 
RIL  = 0. 
3515  CnNTINHF 


range  = 

PRNC  (NLPHAZ) 

CONE  = 

6076 

.1155 

POR  = f 

CR  / 

CONF 

PLL  = P 

LL  / 

O.ONF 

range  = 

RANCF  / CONF 

OP  10  1 

= 1 

. 20 

PARCPNl 

1) 

= PARV(I) 

PARDON 

! 1 

) = CEP 

PAR  CONI 

?)  = 

RANGE 

PARDON 

! 3 

) = FOPCF 

PAPDONl 

A)  = 

PFL  IB 

PARDCNl 

5)  = 

FMPTY 

PAPDONl 

6.  ) = 

RCP 

PAP  DON ( 

7)  = 

RLL 

PARDON! 

P ) = 

ACR 

PARDON! 

o)  = 

Al  1 

PARDON! 

10)  = 

VCR 

PARDON! 

11  ) = 

VLl 

WTPl  = 

WORTH  1 

WTF2  = 

WOR  TH2 

NPAP  = 

11 

no  100 

I = 

1,  NPAR 

IF  ( MPTSIII  .LF.  n ) Cn  TO  100 

CALL  SLUINPTSI 1 ) .PARVMLIlf 1 1 .OWNL  <1 , I)  , PARDON ( I ) .WTFO,  ILO,  IHI ) 
WTHl  = WTHl  ♦ WTHO 
WTF2  = WTH?  ♦ WTHO 
ICO  CPNTINUF 

Z AX(  «)  = WTHl 
7flX(9I  = vJTH? 

PFTU»N 

FNO 


wnRT0350 
WORTO  360 
wnRT0370 
WORT03B0 
wnRTOJOO 
wnpTOAOO 
WORTOAin 
WDRTOAPO 
WORTOA’O 
WOPTOAAO 
WnP.TnA50 
Wr'RT0A60 
WORTOATO 
WORTOABO 

WORTO^oo 

KORTOSOO 
wnpTOSlO 
wnPT0520 
Wr;RT0530 
wnRTOSAO 
wnRT0550 
wrRT0560 
wnPT057n 
WORTHS  80 
WORTOSOO 
WOR  T0600 
Wi^RTOMO 
W'^P.T0620 
wnPT0630 
WnpTOSAO 
WORTObSO 
wnRT0*-60 
W^^RT  OhTO 
WOPTO^m 

WOPTOSOil 


Sl!PR''>UT  INF  PSM  ( IPT,  IFLY  ) 

r PGMsMIK  .FMf  rSM  GGJ/RKM  FIV/FBCO  9/10/73 

r rxFCOTlVF  POP  ppopulsiom  system  sizing 

/PFSYFT/  FACOFSt  WRfJOSX,  nES13(l3) 

CrMMON/CCOFXX/  ISIZ,  IZAP(15I 
EOUIVALFNCF  ( IZAP(2),  I LW  ) 

COMyON  /FXTFRN/  AR(20» 

COMMON  /GUPOl / MAR  01 78) 

rOMMON  /INPTTJ/  FNOfALPnEStAMnESfT^OEStSKSTR.DI AM.WTTJ, 

1 PAYLTfR INPil 3),  PA YMT, R I NP5 I 5 ) t WTSUR,  WROOST  , HIVS5(5) 

COMMON  /INSERT/  ZX17(17),  TNOZRt  ZX15(15) 
rpMMPN  /MAMSOL/  OCASf  XE2(2)f  STGWt  ZLTOT,  WMUSf 
I ZLPAY,  ZWPAY,  ZARSUR,  S0L4(6) 

COMMON  /PINT/  FHI,FL0»PINT28(28) 

COMMON  /PRINTR/  IPSM,  176(6) 

COMMON  /ROCKET/  ROC20(P0),  DCALt  RnC6(6)f  XLL»  WTLt 
1 XI.PlLf  WARLf  WPLLt  R0C7(7) 


PSM  0010 

PS'^  0020 
PSM  0030 

PSM  0049 

PSM  0050 
PSM  nn60 
PSM  0070 
PSM  OORO 
p«;m  0090 
PSM  0 100 

PSM  Olio 
PSM  0120 

PSM  0130 
PSM  01  AO 
PSM  01  SO 
PSM  0160 
PSM  0170 


HA  91 


wr 


1 


c 

c 


93 


ICO 


CPMMPN  /RJPAT/  ItHDt  ZA6A3»  ZX5C5) 

PSM 

0180 

CPMMPN  /SAVL/  FLOS,  FHIS,  SVL5(5) 

PSM 

0190 

COMMON  /SOLR/  SOL7(7l,  WPX 

PSM 

0200 

CPMMPN  /TOVPER/  RPOWP,BlSPV,flTHVAC,BEXIT,SUSMP,SEXIT, 

eCANTA,WT  I , 

PSM 

0210 

ORPPST, DROPEBtKiND, A5A3,A6A3,ACA3,03t 

PSM 

0220 

rVACMX,TVACMN,YISP(20»,XTHRTLt20l ,EXTRA{15I 

PSM 

0230 

CPMMPN  /TURBI/  HAFCOS , ALFT J , T JALT , TJMACH ,T JTHR ,T4T J ,TUR3 (3 ) , 

PSM 

0240 

A9,  WFUEL,  XTOTAL,  XLPS,  XLNOZ,  TUR16(16) 

PSM 

0250 

COMMON  /MATIN/  WAT9(9»,  TIT,  MAT3I3) 

PSM 

0260 

EQUIVALENCE  ( SOLTI  1),  WTSOL  ) 

PSM 

0270 

EQUIVALENCE  ( ARI5I,  HTTOT  I 

PSM 

0 280 

EQUIVALENCE  ( AR(6),  XLTOT  I 

PSM 

0290 

ECUIVALFNCF  ( FXTPA(M),  XLPAV  ),  I EXTRAIIS),  XLMSCL 

) 

PSM 

0300 

,<  EXTRA (13),  TNOZS  ) 

PSM 

0310 

NAMEL  IST/PERFL/  IPERF,  FREQ,  XISFLP,  XISPHI,  WDOT 

PSM 

0320 

,YISP,XTHRTL,FRE0D,FHI  ,FLO,WPX 

PSM 

0330 

CIMFNSICM  FREOIZC) 

PS“ 

0 340 

** 

PSM 

0 350 

** 

PSM 

0360 

K FA  IL=0 

PS** 

0370 

IFLY=0 

PSM 

0380 

CCASE  = OCAS 

PSM 

0300 

WTOTSV  = WTTOT 

PSM 

0400 

lEP  = 0 

PSM 

0410 

WBOOST  = 0, 

PSM 

0420 

WPOOSX  = 0. 

PSM 

0430 

CP0PST=0. 

PSM 

044  0 

rRPPFB=C. 

PSM 

0450 

IF  ( (IS17.GE.AO)  .AND.  (ISIZ.LT.50)  ) GO  TO  400 

PSM 

0A60 

NTFN  * 10 

PSM 

0470 

NKINP  = MOO  ( KIND,  NTEN  ) 

PSM 

0480 

IF  ( NK  INO  .NF.  2 ) GO  TO  93 

PSM 

0490 

IF  ( ILW  .LT.  2 ) GO  TO  93 

PSM 

0500 

WTOTAL  = WTTOT 

PSM 

051  0 

IFB  = 1 

PSM 

0520 

TALL  RFXFC  I WTOTAL,  WBOOST,  XLBOC,  IFLY  ) 

PSM 

0 530 

IF  ( IFLY  .GT.  0 ) GO  TO  900 

PSM 

0 540 

CALL  FOR  EXTERNAL  BOOSTERS 

PSM 

O'iSO 

CPNT  INUF 

PSM 

0560 

IF  I ISIZ.LT.  19  ) GO  TP  100 

PSM 

0570 

IF  I ISIZ.LT.  29  ) GO  TO  200 

PSM 

0580 

IF  1 I SI7.lt.  39  ) GO  TO  300 

PSM 

0590 

IF  ( ISIZ.LT.  59  ) GO  TO  500 

PSM 

0600 

GP  TO  900 

PSM 

0610 

CONTINUE 

PSM 

0620 

SIZE  SOLID  PROP  SYS  FOR  CRUISE  MISSILE  CGSM 

PSM 

0630 

IPFRr=0 

PSM 

0640 

FPFQD=0.0 

PSM 

0650 

STGW  * STGW  - WBOOST 

PSM 

0660 

SIZE  SOLID  ROCKET  PROPULSION  SYSTEM 

PSM 

0670 

CALL  SPLROCI I PERF,  FREQD,  XI SPLO,WOrT  ,I FLY  ) 

PSM 

0680 

SUSWP  = WOX 

PSM 

0690 

WTSOL  OL  ♦ WBOOST 

PSM 

0700 

WTTOT  . 

PS** 

0710 

WTI  s 1 

PSM 

0720 

HA  92 


1 


I 


n n r» 


TVACMX  » PHI 
TVACMN  = FLP 
Gr  TO  105 
2 CO  COMTINUE 

c sizr  Lioun  rocket  brcpulsion  system 
C parameters  set  rOE  SOLID  C USED  FOR  LIQUID 
CCAL  * GCAS 
XLL  = 7LTPT 
WTL  = STOW 
WTL  = WTl  - WBOnST 
XI  PLL  = ZLPA  Y 
WARL  = ZARSUR 
WPLL  = 7WPAY 
IPFPEsO 
EPE00=0. 

CALI  ROCL 10 ( IPFRF,F»EOn,XISPLCtMDOT,KFAIL) 

TRAP  = n,03 

PliSWP  = ( 1.0  - TRAP  ) • SUSWP 

IFLY  = KFAIL 
WTTOT  = HTI  ♦ WPOnST 
TVAC»'X  = FHIS 
TVACMN  = FI rS 
1C5  CONTINUE 

IF  ( IFLY  .GT.  0 ) GO  TO  900 

CFNFRATF  PERFORKANCF  MAP  FOR  ROCKFTS  - - - ISP  VS.  THR.PAT 
THR.RAT  IS  ( F - FMIN)  ! ( F Ml  N - FMAX  ) 

RAT  FRr’M  0 TO  I 

SET  IN  CONSTANTS  FOR  VPM  £ ADM 
TNOZR  = TNOZS 
SFXIT  = SFXIT  / lAA. 

XLSOL  = XLPAY  ♦ XLMSOL 
XITOT  = XL  SOL 
nPDPST  = 0. 

IPEPF=1 

TAX  = TVACMX  - TVACMN 
n^AX  = TAX  / IS), 

FREOIl)  = TVACMN 
FPFOIZO)  * TVACMX 
EPF  = TVACMN 
XTHPTLI  1 1 =0. 

XTHPTLI 201=1. 
rr  110  1 = 2,  1«5 
EPF  = FRF  4 DTAX 
EPFO  ( 11  = FRF 

XTHPTLI  I)  = I FPF  - TVACMN  ) / TAX 
110  CCNTINUF 

IF  ( IPSM  .NF.  0 1 call  page 

rr  120  I = I,  20 
FPE0r  = FPF0(  I ) 


PSM  0730 
PSM  0740 
PSM  0750 
PSM  0740 
PSM  0770 
PSM  07R0 
PSM  0790 
PSM  0800 
PSM  0«10 
PSM  0820 
PSM  0830 
PSM  0840 
PSM  0850 
PSM  0860 
PSM  0870 
PSM  0880 
PSM  0890 
PSM  0900 
PSM  0910 
PSM  0920 
PSM  0930 
PSM  0940 
PSM  OOfO 
PSM  0960 
'’SM  09  70 
PSM  OOPO 
PSM  0990 
PSM  1000 
PSM  1010 
PSM  102  0 

PSM  1030 
PSM  1040 
PSM  10  50 

PSM  1060 

PSM  1070 
PSM  1080 
PSM  1090 
"SM  1100 
PSM  1110 
PSM  1120 
PSM  1130 
PSM  11^0 

PSM  1150 
PSM  1160 
PSM  1170 
PSM  1180 
PSM  1190 
PSM  1200 
PSM  1210 


Y ISP(  1)  = XISPLO 
- 116  CONTINUF 

120  CONTINUF 

IFLY  = KFAIl 

IF  ( IPSM  .GT.  C ) WRITFI6fPERFL) 

ro  TO  ooo 

3C0  CONTINUE 

C CONBINEC  CYCLF 

GO  TO  900 
AOO  CONTINUE 

C RAMJET  C FXT  BOO t INT  BOOt  UNBOO  ) 

IF  ( IRT  .GT.  C ) RETURN 

C *♦ 

C 

CANT  = ViAROI  17  ) 

CALL  PROPXX  ( IFLY  I 
WARD! 17)  = CANT 
WTl  = WTTOT 
C 

c ♦♦ 

GO  TO  900 
5C0  CONTINUF 

C DESIGN  ANT  SI  Z?  TURBOJET  PROPULSION  SYSTEM 

FNn=  TJTHR 
ALPOES  = ALFTJ 
ANDES  = TJMACH 
T4DES  = T<^TJ 
TIT  = TATJ 
CIAM  = CCASE 

WTTJ  = WTTOT 

WTTJ  * WTTJ  - WnooST 
PAYLT  = ZLPAY 
PAYWT  = ZWPAY 
WTSUR  = ZAPSUR 
CALI  TURBO  ( IFLY  » 

Z A6A3  = A9  / ARI 12) 

TKOZP  = XLNOZ 
SFXIT  = A9 
XL  TOT  * XTOTAL 
SUSWP  = WFUEL 
WTI  * WTTOT 
900  CONTINUE 

IF( IEB.FO.il  STOW  « HTOTSV 
1F( IFB.FO.l)  WTL  * WTOTSV 
IF(  IEB.EO.il  WTTJ  * WTOTSV 
IF  I NK  INO  .NE.  3 I BEXIT  » SEXIT 
RETURN 
FND 


SUBROUTINE  SOLROC ( I PERF , FRFOt  XlSPXt  WDOT , KFAILI 
f.  NUK.CM-CGSM  R .K. MCDONOUGH  FIVZEBCD  10/18/73 

COMMON  /SOLMIS/  CSTARl,  CSTAR2,  ETAISPf  DUM7I7) 

COMMON  /CONLY/  KP  I ST,  Dl  AFR  Z ,WMC  »DTHRT,  RNOZI  tWMX  t SOMMORU I 
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PSM 

12flO 

PSM 

1290 

PSM 

1300 

PSM 

1310 

PSM 

1320 

PSM 

1330 

PSM 

1340 

PSM 

1350 

PSM 

1360 

PSM 

1370 

PSM 

1380 

PSM 

1390 

PSM 

1400 

PSM 

1410 

PSM 

1420 

PSM 

1430 

PSM 

1440 

PSM 

1450 

PSM 

1460 

PSM 

1470 

PSM 

1480 

PSM 

1400 

> SM 

1500 

PSM 

1510 

PSM 

1520 

PSM 

1530 

PSM 

1540 

PSM 

1550 

PSM 

1560 

PSM 

1570 

PSM 

1580 

PSM 

1590 

PSM 

1600 

PSM 

1610 

PSM 

1620 

PSM 

1630 

PSM 

1640 

PSM 

1650 

PSM 

1660 

PSM 

1670 

PSM 

1680 

PSM 

1690 

PSM 

1700 

PSM 

1710 

PSM 

1720 

PSM 

1730 

PSM 

1740 

PSM 

1750 

SOLROOIO 

SOLROOZO 

SCLR003n 

SOLR0040 


,EXt>eR 
, AP4T 


,PHIKr7 
, RHCO 


crMMPi^  /rnMVLS/  cpmcsd 

FOIJIVAI  Fr'CF  ( r,PM(  A7»,WPXI  , 

5 ( COP(A9J,DP  ), 

6 ( rnM(A9)tWNX) 
riPFNSION  TARPRG(12) 

aH«DM /NA'i  SHL  / n:ASF,  XI  SPHJ.FPHJ,  ST  GW  ,XT  OT  ALt 

I WMlSr,XLPAY,  WPAYfWASURFfTOWOFS  .T  RAT  ir, 

1 ITHR.FOFS 

CnMMTN/PRINTR/  IPSM,IZ6(6) 
cnMMrN/rnoFxx/zo (2 ) t isiz ,?AP( i3) 

CPMMrN/roMp/TARFPS  (505) 

NAMEL  IST/TPWPR/  IfOUNT,  KCPUNT,  FHI , FLC,  TOWERR 
NAMEL IST/WINPUT/  TERMP.TFRWOfTEP  MR.TEP WSf TERMT, XLC  t WS C t WI C ,WPf , 
iwr ,Wl ,WP,WY,WN,WAH,Wf ,WFH,WMISCtXLM 
^AMFL  IST/PIN-NOZ/PCHI  , PCLP,  EPHI,  EPLPtCSTARH.CST  AR(  , CFDELLt 
ir.FnpL  F,  ATHl  , ATLPfFFTLO,  TARAT 
C IMFNSIPN  X( 3 ),NIKV( 3) tPCLOC 10) 

CPMMPN  /TOVPFR/  ZXX5(5),  SFXIT,  XX66(66) 

EOUIVALENCF  ( XX66(66),  XLM  ) 

CPMMnN/SOLR/  WVEH,  WM,  XlROLLf  XIPTCH,  XCP.mRX,  XCP.LAX,  OEXITf  WP 
CPMMPN  /SPLSAV/  PVF,  WPOVWP,  WN,  WlNFFT 

CPMMPN/SPl SV/  FLOSfFHIS.PCHIS,  SISPLOt  SISPHI,  FPHIS,  CSTRHS, 

1 CFCLLS,  CFOLFS,  ATHIS,  OFXITS 
rrMvpM/p  irjT/ 

1 FHI  ,Fir)  .XISPHI  ,PCHI  ,ETACF  ,FXPPR  fPHIKPZ  , 

2 PBFLI.  ,RHPMT|  ,RHniNL  .SIP.MTL  fPEFH  , APAT  .RHCP  , 

3 XISPLP 

A .PHPIMS,  AIAT,  TIC,  RFAH,  PSt  ZUWWIO(IO) 

CPM>'rN/PUJSf'L/TAPI  SP(  719) 

rPMMPN/TARSFT/  NWP ,NPr ,NI SP . NWR P, NPC Pt NF XR 

NZ^'FL  IST/INPLT/  nrASF,  XI  SPHJ,FPHJ,Pr.HI  .STGW.XTf’TAL. 

1 WMISC, XIPAY, tSIZtPTACF,FXPBR,WPAY,WASUBF,TnWDFSfTReTIP, 

2 ITHP,  FPFS 

AAMEL  IST/NnZL/  P THR T , OE X I T , PH  I NO Z t XL  1 1 XL2 t XL3 t T I AHP , RNCZ I , 
lANPZI tCOMP AT,XLA,XLNOZ 

NAHFL  IST/P  INTL/  WNSAt  WNCS,  WNT,  WNEC»  WNSC  , WPIN,  WHS,  W\ 

NAMEL  IS  T/nOG/  TWC  f WFS  tXLNS,DELSi  *iAS,  AP  , TERMP.  , TFR  MH  , T FR«' I ,W  PFH, 
IRZFRP, AZFPP.RP, TFPMJ, TERPK,TERML,TERWM,WPR,nFLSP,WPAHR 
NAM FI  I ST /CAT/  PnNF,AnNF  ,WPAHR , WPCR t TFRMN, TF RMO i WP AH  , I S I Z , T F P “P , 
1TFPMP,TFFMR,  TFP“Sf  TFPHT,  XLC  tWSC,ViIC  ,HPC  ,WC  »WI  ,WP,WP 
NAMFL  IST/FwPAFT/TFH, XLFH,AIGN, ter  pa, terms  fWSFH,T ICt  TIFH.TPPMC, 
lWIFH,WBFH,WFH,RFFH,REAH,XLAHt  TAH, TERMn,TFRME,WS AH,TI AH,TFPMF, 
2WPAE,WA  E 

NAMFI  IST/CGP  AV/  XLK,  ZNSA,  RT,  ZNCS,  ZNT,  ZFC,  ZPIAf  ZHS , ZRFH, 

1 ZSFH,  ZIFM,  ZPFHl,  ZPFH2,  PPFHl,  WPFHl,  WPFH2 t ZPFE,  ZPAH, 

2 ZSAH,  ZIAE,  ZPAHf  ZC,  ZP,  ZFS,  ZASt  ZI,  XMOME,  XCGMRx,  XCPLAX 

NAMFL  IST/CG/  W IN FP T ,PHF , XCGMBOt XCGHLA ♦ XMI SC « XI S PLP 

NAMEL  IST/XIN'PUT/XT0TAL,XLPAY,XLNS»XLAH,XLFH,XLM,WSC,WIC,WC, 

IW  I, WPCi WP,WPAH,WPFH,WM,WNtHAH,HFH,WMI SC 
NAMFL  IST/XMPI/  STrLnn,RGP(1VLf  RGPtXI  PTrH,RGROVn,RGR  tX  IRTll 
TATA  TARPRG/  0.50,  0.56,  1.0,  0.375t  1.5.  0,125. 

1 2.00,  0.31.  3.0,  0.300,  20.,  0.290/ 

CSTAP(X)  = 37.*ALPG(X)  ♦ 4046. 

PPAT(X)  = X*1.15*FXP( 0.0265*X) 

XX66(65)  = XLPAY 


0.300, 


0.290/ 


S^iLROOSO 

sm  Rooiso 

SOLROOTO 
SOLROORO 
sni.Roooo 
SOLROlOO 
SPLROl 10 
SOLRO 120 
SnLR0130 
SOt.R0140 
SPLROl 50 
SPLR0160 
SPLROITO 
FPLROIRO 
SOI  RC190 
SOI.POZOO 
SPL902in 
'IPLPOZZO 
'PLR0230 
S^i  <Jn?40 
SPLrt025n 
SPLROZNO 
sni.P0270 
S^^l.  P0780 
SOL  R02O0 
SPLoomo 

SOLRO 3 10 
sot  RO  320 
SPLROO.IO 
SPLRPOAO 
SP|  90350 
Sn  90  360 
SPL  R0370 
SPLRO  380 
SHLROiOO 
S()LR0400 
SPLPO410 
SP| P0420 
SPLP0430 
COLR0440 
SPI 

<;nL  Rn460 
SPL  R0470 
S"LP04H0 
Sin  P0490 
SPL RO 500 
SPLR0510 
SPL80520 
SPLR0513 
SPLP0540 
SPL  P0550 
SPLP0560 
SPLP0570 
SPLPOSRO 
SPLP0590 
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X ISP  y i=xisPHj 
KCnUMT  = 0 
IC0UNT=0 

IF( IPSM.GT.C)  WP  ITF(6, INPUT) 
WFST=0.32725*0CASF**3 
WVFH=STGW 
P 1=3.14159 
F»-I  = TnwnFS*WEST 
IF! ITHR.EQ.C)  FHI=FDES 
; FLO=FHI /TP ATin 

G=32.17 

IFIPCHl  .GT.20C0.C)  PCHI»2000.0 

C4«««*«FPHI  = HIGH  thrust  expansion  ratio TLUIXISPHI) 

' DIIM=1.0 

Xll)=DUM 

XI  2)  = PCH 
X( 3)=XISPHI 
NVAR=3 
NINVI 1)=NMR 
N INV( 2)=NPC 
NINVI  3)=N  TSP 

CALL  FASTSINVAR»NINV,TABEPSIl).X,EPHI) 

^ CSTARM  = r.STARl  * ALOG(PCHI)  ♦ CSTAR2 

n CFTHI=G4X TSPHI/CSTARH 
CFDELH=FTACF*CFTHI 

12  rPNTINUF 

IF!  IPER  F.EO.O  ) GO  TO  13 
IFI  FPFC!  .LE.FLOS)  on  TO  131 

j IFI FREO.GF.FHIS)  GO  TO  132 

FLO=FRFO 
FH  = FHIS 
PCH!  = PCHS 
ath=athis 
CFXIT=0EX1TS 
^ GO  TO  13 

'<  131  FlO  = FLnS 

XlSPLO=SISPLn 
XISPLO  = XISPLO  * ETAISP 
i GO  TO  985 

i 132  FH=FH1S 

p XISPH|  = SISPHI 

XTSPHI  = XISPHI  * FTAISP 
GO  TO  986 

13  ATHI=  F»-I/IPrHI*CFOELH) 

PGR AT=PRATI FHI/FLO) 

PGLCI  1 )=PCHI /PCRAT 

CP  102  I=?flO 
K = I-1 

TA«AT  = (PCH1/PCL0IK  1 )♦• I 1 .-E XPBR ) 

ICl  ATLO*ATHI*TARAT 
EPLO*EPHI /TARAT 
CTHRT»2.0*S0RTI ATLO/PI ) 

IFI  IPERF.FO.l  ) GO  TO  980 
CFX IT*nTHR  T*SOP  TIFPLO) 

SFXIT  = .25  * PI  • DEX1T**2 
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SnLR0600 
SOL R 06 10 
S0LR0620 
Sf’LP0630 
SnLR0640 
5nLR0650 
S0LR0660 
S0LR0670 
S0LR0680 
SnLR0690 
S0LR0700 
S0LR0710 
SOLR072O 
SnLR0730 
S0LR0740 
SOLROTSO 
S0LR0760 
SP'.R0770 
^OLROTBO 


S0LRO790 


SOLROROO 


S0LR0810 
SnLR08?0 
S0LR0830 
S0LR0P40 
SOLROPRO 
SnLR0860 
SOL  R0R70 
SPLR0380 
SOLROROO 
SOLR0900 
solroqio 
SnLR09?o 

SnLR0930 

S0LR0940 

SOLRO^^n 

PPLROOtO 

solrooto 

S0LR09R0 
SnLR0990 
SOL P 1000 
SPLRIOlO 
SPLRIOPO 
SnLR1030 
SnLR1040 
SOLR) 050 
SnLR1060 
SPLR1070 
SOLRIOBO 
SOLRIOOO 
SOLRllOO 
SOLRlllO 
SnLR1120 
5PLR1 ilO 
S0LR1140 


■ i 


I 


i, 

i 

\ 


IFlDFXIT-cnCflSF-l.O.GT.n.l)  GO  TO  99 
Gr  TP  990 
99  CONTIMUF 

TFX  IT  = CCASF- 1 . 

AP[:FM=0.7H5A*(nCASE-  1.)**? 

SFX  FT  = AR  Ff  N 
FPLr)  = APF'^N/ATl  n 
EPHI=APFFM/ATHI 

icnuMT=  icnuNT  ♦ 1 

IFF  ICf'UNT.GT.  10)  PFTUPN 

IF  ( IP9M  .GT.  0 ) WRITF  (6,PI  NN07) 

CUM  = I .0 
y ( i)=cuM 
xi2)=prHi 
X( 3 )=FPHI 
NVAP=  2 
N INVF  I )=MMRP 
N INVF  2 )=NPr.P 
NINVF  3) =NEXP 

CALI  FAST':FNVAR,NINV,TARISPFl)fX,XISPHI  I 

GP  TO  11 

950  CrNTTNUF 

CFX  lT=nEX  ITS 
FPLP=nFX  IT**2/r)T)-PT**2 
990  CCNTIMUE 

C4««***Y ISOL0=  I PW  THRLST  ISP TLUFEPLC) 

nUM=:  I .0 
XF l)=nUM 
XF  2)  = PCLnFK  ) 

XF3)=FPLn 
NVAP  =3 
N INVF  I ) =N''RP 
MNVF  2)  =NRr.P 
NINVF  3) =NFXP 

CALL  fasts F NVAP , N I NV , TAB  I SP ( 1 ) t X , XI SPLO ) 
CSTAPL  = CSTARl  * ALOGFPCLOFK)  ) ♦ CSTAP2 
CrTLP=C*XI splp/cstapl 
rFCELL=FTACF*CFTLO 
PCLPF I )=FLn/F  CFDELL*ATLn  ) 

IF  F IPSM  .GT.  C ) WRITF (6,PINNn7) 
IFFPCLOFI ).LT.30.I  GO  TO  998 
IFFAPSFPCLOF  I )-PCLOFK)).LT.lO.)  GO  TO  10  3 
1C2  CONTINUE 
1C3  CPNTINUF 

IFF  IPFP  F.FO.  1 ) GO  TO  9P7 

FLOS  = FLO 

ffis=fhi 

PrHFS=PCHl 

sispi n=xisPLn 

STSPHI=XISPMI 
FPHIS*FPHI 
CSTPHS  = CSTAP  F 
CFOLI  S^CFOFLL 
crrLFS=CFnFLH 
ATHIS=ATHI 


SOLR1190 
sni 91160 

SOLRllTO 
SPLRllBO 
SPLR1190 
SnLR1200 
SPLP1210 
SPl  R12P0 

SnL912X0 
SnLP12An 
SnL«l2S0 
SOLP.  1260 
SOLR1270 
SPLP 1200 
SnLR1200 
SOLP 1300 
SPLP1310 
SOI  PI  320 
SnLPl330 
SOLR13A0 
SOLP 1390 
SOLP  1 360 
SOLPl 370 
SOLRl 3«0 
SOLPl 390 

9I1LP16O0  11 

SPLRIAIO 
SPLP 1620 
SOLP 1630 
SPl 91660 
SPLP1650 
SOL  0 1 660 
SPLP 1670 
Sni R 16P0 
SP|  P 16"0 
SOI oiSPO 
SPl  PI  510 
SPl  P1520 
S^i « 1 S30 
SPL»1560 
SPl  mS50 
SPL  R 1560 
SP|  PI  5 70 
SPLPl 5P0 
SflL915O0 
Sni.Rl  600 
5PLP  1610 
SPl  R 1620 
SOI P 1630 
SPL  PI  660 
SPl  R 1650 
Sni  R1660 
SPL  R1670 
SnLR1600 
SnLR1600 


kk 


HA  97 


ses 


«;e6 


r i 


se? 


1C4 


CFX ITS=rEXIT 
cn  TO  104 
CONTTNUF 

WCOT  =FLn/XISOLO 
RETURN 
CCNT  FNUE 

WCOT  =FH/XISPHI 
RETURN 
CONTINUE 

XISPLO  = X ISPLO  * FTAISP 
wrCT  = FPEO  / XISPLO 
RETURN 
CCNT  INUE 

XL1=  nTHRT*PPFLL*  (SORT(FPLO)  -2.0  ♦ COSIPHINOZH/ 

in 

XL  2=  nTFPT*PPFLL*S IN ( PH  I NOZ ) /200. 

XL  3=0.433*0THRT 

TIAHM=l.26E-6*PrHI**0.8*(CSTARH/G»**1.7 
RNOZ I=1.20q*DTHPT  ♦ 0,5*IIAHM  ♦ 1.600 
ANOZ 1=PT*RN07  I*PN0ZI 
APErM=0.7854*(DCASF-  l.)**2 
I F(  AN(17  l.OT  .APEFN)  ANOZI=AREFN 
CCNP  AT=^^o^  I/ATLO 

XI  4=0.2E8  7»nTHRT*(  SQR  T ( CONR  A T »- I . 5) 

XLNPZ=XL1  ♦ XL2  ♦ XL3  XL4 
IFI  IPSM  .GT .0  ) WP ITE(6,NrZL» 

COMPUTE  NOZZLF  WEIGHT 
WMSA=0.74*RHnWTL*ANnZI 

WNCS*(ANn7I-2.25*ATLO)*|RHniNS*TIAHM  0.25*RH0MTL 

WNT=0.03lS*ATLn**1.5 

TPUPN0=10. 

TPURNS=  150. 

WNEC=( 1 .68E-8/S I NIPHINOZ ) ) ♦PHOI NS*A TLO* (E PLO- 12 .-C 
1*(CSTARE/G)**  1.7*(PCHI**0.8*TRURNB  ♦ PCLOl  I I ♦*0.8* 
WNSC  = ( 3.14F-5/SlN(PHINOZn*PHOMTL*ATLO**l.5*PCHI  * 
U FPir-(  2.-COS(PHlf'n7)  I**2I 
WPIN  = O.C68*P I*OTHP  T**3 
W»-S  = FXP(0.5ee  ♦ C.C64*ATHn 


SOLRITOO 
SOI  R1710 
SOLP 1 720 
SnLR1730 
SnLR1740 
COLRITSO 
SOL R 1 760 
SOLRl 770 
SnLRl780 
snLRi7qo 
SOLRiaOO 
SOLR  LB  10 
SOLRlfiPO 

(200. ♦TAM  PHlNGZSnLR1830 
SOLP 1840 


CS(PHIK07 ) )♦♦?) 
T PUR  NS  ) 


WN=  WNSA  ♦ WNCS  ♦ WNT  ♦ WNEC  ♦ WNSC  ♦ WPIN  ♦ WHS 
IFI  IPSM  .GT  .0  ) WR  ITF( 6,PINTL I 
(•♦♦♦♦CCMPUTE  eorwaro  hfao  weight 

TFH=0.54+RErH*nCASE^PCHI /SIGMTL 
XLFH=OCASE/( 2.*REFH) 

A IGM* AI AT^ATLO 

r***^CnMPUTE  FOPWARO  HEAO  STRUCTURE  WEIGHT 
RFFH2»RFFH^RFFH 

TFRMAa(REFH  ♦ SOPT (RF FH2- I . 1) / ( REFH  - 
TFRMP=0.3975/(REFH^SQR  T(REFH2-l.  » ) 
WSFH=RHnMTL*TFH^(  0CASE^^28(  0.7854  ♦ 

TIFH*  (TIAHM  ♦ 2. *710/4. 

C****CrMPUTE  FORWARD  HEAD  INSULATION  WEIGHT 
TFPMC»(PEFH  ♦ S0PT(REFH2  ♦ l.»)/(REFH 
WlFH=T  IFH*RH01NS*(  ( DC  A SE-2 .* TFH I **2* ( 

1-A  IGN  ) 

W PFH=  3 . ^R  HOM  TL ♦ SOR  T ( a TLO I 


S0RT(REFH2-1 . ) ) 


TERMR*ALCG(TERMA) )-A igni 


- SQRT(REFH2 
0.7854  * TE 


- i.n 


SriPl 850 
SOLP 1860 
SOLP 1870 
SPLRIPPO 
SPL01890 
SPLRl 900 
SPLPlOlO 
SPLPl'520 
SP| P 1930 
Sni.R  1940 
qOLR1950 
SnLR1960 
Sr-LPl  970 
SOLP 19P0 
SnLRlQoo 
SOLPPOOO 
sni  R2010 

SPLRZOPO 
S PL R 2 030 
SOL  82040 
90LR2050 
S'3LP2060 
SOI P2070 
SPLPPOPO 
SF'l.PPOr'O 
8PLP2100 
5PLP21 10 
Sni  R21  20 
SnLP?130 
Sni P2  140 
snLP?150 
SnLP2160 
SOIR2170 
SPLRZIPO 
SnLP2190 
SnLR2200 
SPLR2210 


RMB*ALPG(TERMC) )SnLP??20 
SnLR2?30 
SnLP2240 


1 


HA  98 


4 


i RFaM2=Pf ah*pfah 

\ yLAH=SOPT(0.25*nrASF**2  -ANCZl/PH/RFAH 

i TAH=0  .5A*P  FAF*nCASF*PCHI /SIGHTL 

f C****  Cr^'PUTF  AFT  I-EAP  STRUCTURE  WEIGHT 

: TFRMr=(REAF  ♦ S0RT(REAH2  -l.))/(REAH-  SCRT(REAH2  -l.)» 

1 TERMF=0.3925/(Rr AH*S0PT(REAH2  -1.)) 

W«;AH  = TAH*RFrMTL*(  PC  A SF**  2*  ( 0 . 78  54  ♦ TE  P MF*  A LOG  ( TE  R PC ) ) - AMP  7 I ) 
T fAH=(T  lAHM  ♦ TIC ) /2. 

TERMF=(RFAH  ♦ SOPT(RFAH2  - l.))/(REAH  - SORT(REAH2  -1.)) 


Sf'LRZ  250 
SnLP226n 
ROLR2270 
5PLP22flO 
SOLR2290 
SnLR2300 
S"iLR23lO 
SnLR2320 

sni  R2a30 

SnLR?340 


WlAH=TIAH*PHniNS*(  (OCASF-2.*TAH)**2*(  0.7854  TER  MF*AL  PG  ( T FRMF  ) ) SnLR2350 


l-ANOZ I ) 


Snt  R2  360 


WPAH=17.76*TAH*RFrMTL*DCASE 


F;nLR7370 


WAH=  WSAH  ♦ WIAH  WBAH 


SOI  R2380 


I 

t 

i 

i 

I 

i 

t 

I 


I 


I 


I 

[ 


I 


IF(  IPSH  .f  T .C  ) WPITE(6,FWnAFT) 

C***CC1MPUTF  SKIPT  WEIGHTS 

TWC= 1 .OP*OCA  SE*PCHt/SIGMTL 
IF(  TWr.LT.0.0  2)TWC=0.02 
WFS=P I*PHOMTL*PCASF*TWC*  XLFH 
PS  = C.C 
PEIS  = C.O 

XI  NS=( I.-PS/ICC. l«XLNnZ 
PTLSOL  = XLAH  ♦ XLNS 
XX66(64  ) = PTLS'^L 

WAS  = P I*RHnMTL*nr  ASFtTKC*  ( XLAH  *■  XLNS  -0.25*DEXIT) 
XI  AS  = XL ah  ♦ XLNS  -0.25*nFXIT 
C#**«CCHPUTF  HEAD  PROPEILANT  WEIGHTS 
AP=ATLn’»AP  AT 

TEP*'r  = ( 0.  S^rCASF  - TFH  - TIC)**2 
tfrmh=i  o.5=Frc  asf/pffh-tfh-ti  ahm) 

TFPM  I=AP<-nrASE*n.5/RFFH 

WPFH=0 .9«p  Hnp*(  ( 2.0G*TFP  MG*TER»'H  ) -TERM  I ) 

RZ  FPP  =l .209*0  THP  T 
A7FRr=Pl*H7FPO*PZFPn 


SOI  c 2 390 
FOLR24C0 
S'^LR241C 
SnLR2420 
SnLR2430 
SnLR2440 
SOLR  2450 
SOLR2460 
SnLP2470 
SOLR2480 
sot  P2490 
SPLP2  500 
S^’l  RZSIO 

SOI  PP520 
SOL  0 2 9 30 
Sr"!  R2  54  0 
SrLR?550 
SF'LR2FF') 
SnLR?570 
sot  P25P0 


PP=SORT( AP/PI ) 

TFRMJsO  .75  ♦ PEL  S 

T FPMK  =4^*^  Z I- AP 

TrR^‘l  =(  P7FRP-RP  1/0.577 

TF°MH=A7FPn  <AP  ♦ SOPT  ( AZERP*AP1 

XI  PF  =TFRM  I ♦ TFR  Ml 

TTTX=XLAH  - TAH  - TIAHM 

^<pp  = PHPP*|  tFRMj*tfrMK  tTERML*!  TrRMM/3.  -AP)) 
rFl5P=PELS  ♦ 0.7' 

I F(  XLPP  .L  E .TTTX  ) GP  TP  aOC 
XI  vr.=XI  PP  - TTTX 
RPNE=XLVC*C.577  ♦ op 
ArNF=P  I *RfiNF*RnM  F 
TFRMLL=PZERP-RnNF 

V,PAHe=  RHPP*(  TFPmj*tFRMK  * ( TC  RMLL /0 . 57  7 ) * ( 0.333*(A7EPn 
I ♦ SPRT( A/EPn*AONF  ) ) - AP)) 

IF(  IPSH.GT.O)  WPITF(6,nPG) 

GP  TO  550 
PCO  WPAHC=WPF 

IF( IPSM.GT.C)  WRITF|6,nnG) 

GP  TO  550 


SOI R2590 
901  '’2500 

SOL‘’25lO 
SO|  R2f,20 
FPL '’2  53  0 
SOI  02540 

S'^I.R  •>6  90 

SOL  ‘’2560 
sot  P7970 
S''l  R2  5P0 
Sf'L‘^2500 
FPL  ■’2700 
FOLR27  10 
S'^l  0 2720 
APNE  SnLR2730 
S''l  R27<.0 
SnLR2750 
S0LP2  760 
SOI  R2770 
SOLR27P0 
SOI  Rzmci 


fr 


[ : W«=  WM  ♦ WAH  ♦ WC  ♦ WFH  WI 

[ ' 5050  XMI SC=0.5*( XI FH  ♦ XLC  ♦ XLAH) 

r irriMH  = WP  * XISPHt  ♦ FTAI5P 

t TOTIML  = WP  ♦ XlSPLn  * FTAISP 

I TPUfiNL=TnTIKL/FLC 

I TPURNF=TnT IMH/FHI 

I WVFH*WM  WPAY  ♦ WASURF 

I IF(  ITHR  .FQ.n  on  TO  5060 

I TnW=FHJ/WVFH 

[ GC  TP  5C65 

S 5060  Trw=FHI/WVFH 

1TnWFPR=TnWDFS-TOW 

1F(APS(  rnWERR  ).LE.0.n  GO  TO 
5075  FHI  = TnwrFS*kVFH 
FLn=FHl /TR ATin 


SnLR2300 
SnLR2‘>lO 

SnLR?3?0 

SnLR2R30 
SOLRPOAO 
SnLR?S50 
SnLP2R60 
S0LR2570 
snLR2apo 
SOI  R2RPO 
SnLR2000 
SOI  R2910 
SnLR2920 
SnLR2930 
snLR2940 
S^L  P?950 
SnLR2960 
S'^LR2970 
SOLRPOPO 
SnLR?P"0 
SrLR3000 
SOLRSniO 
SnLR3O20 
S^LR3030 
SOI.  R 3040 
snLR3050 
SnLR306n 
SOI  R307C 
SnLR30P0 
5011^3000 

solroioo 

SnLP31 10 
SnLR3120 
S"LR3130 
SOL  3 3 140 
SOLROl SO 
SOI  R3160 
SOLPO  170 
R3  IPO 
Sni P3inO 
SOL  R3700 
SnLR3210 
SnLR3220 
SHLR  3?30 
SPLP  3240 
SnLP3PS0 
snLR3260 
SOI  R3270 
SOL  R32P.0 
SOI  93200 
SnLR3300 
SnLR3310 

5065  SOLR3320 

SnLP3330 

SnLR3340 


550  CONTINUr 

tfrmm=i  .5*crAS‘=  - tah  -Tir,)**2 

TEOM0=  O.S  + Cr.ASE/P  EAH  -TAH  - TIAHM 
WPAH=RHnP*(  2. 09*TERMN*TFRWC  -AP*TERMn)-  WPAHR 
WPCP=WPR-WPAH« 

IF(  fPSM.GT.O)  WPITE(6,CAT» 

1F(  IS  17  .FO  . I ) rn  TO  5000 
C«***CnMPl/TE  WFIGHTS  FOR  WT.  INPUT 

TFRMP=  0.01766*nCASE*  SORT!  API  /REFH 
TFRMO=P  1*R  FOMTL*OCASE*TWC 
TFRmP=P I*RHP INS*T  IC 
TFRMS=  OCASE  - 2.<'TWC 
TFRmT=  (O.S^DCASF  - TWC  - TIC)**2 

XLC=(WVFH  - WFH  -WAH  -WMI  SC  - TFRMP  - WPFH  - WPAH  - WN-W  P AY  ♦W  PC,  R 
l-WASUR  F )/ 

KTERMO  ♦ TFPMR*TFPNS  ♦ RHOP*  ( TERMT*PI  - API  * 0.01  766*SQRT  ( AP  M 
iriXLC.LF.O.OI  GO  TO  998 
XLH=XLNS  ♦ XLAH  ♦ XLC  + XLFH 
WSC  = P I*PHt)MTLSTWC*DCASE*XLC 
WIC  = P l*TIC*PHOINS*(nCASF  - ?.*TWC)*XLC 

WPC=( ( 0.5*CCASF  -TWC  - TIC)**2»PI  - API ♦PHOP*XLC  - WPCR 
WC=WSC.  ♦ WIC 

WI=  0.01766*S0RT(AP)*(XLC  DCASE/RFFH) 

WP=WPFH  ♦ WPAH  + WPC 

WP=  WN  ♦ WAH  WC  + WFH  ♦ WI  ♦ WMI  SC.  + WP 
IF( IPSM .GT.O)  WP ITF(6,WI NPUT) 

GC  TO  5050 

C«*4«4<  rO'^PUTF  WEIGHTS  FOR  LENGTH  INPUT  OPTION****** 

50C0  CPNTINUF 

IFI  IPSM.CT.C)  WR  ITF(6,C.AT  I 
XI V=XTPTAL 

XI  C=  XLV  -XLNS  - XLAH  - XLFH 

IF( XLC  .LF  .0.0  ) GO  TO  998 
XLM=  XLNS  ♦ XLAH  ♦ XLC  ♦ XLFH 
WSC=  PI*PHPMTL*TWC*0CASF*XLC 
WIC,=  PI  ♦T  IC*RHO  INS*XLC*  (OCA  SF  - 2.*TWC.) 

WC=WSC  ♦ WIC 

WI=  0.0I766*S0RT(AP)*IXLC  ♦ OCASE/REFH) 

WPC=( (0.5*CCASE  - TWC  -TIC)**2*PI  - AP)*RHOP*XLC  - WPCR  SOL 

WP  = WPAH  ♦ WPFH  * WPC, 

♦ WMI  SC  ♦ WP 


HA  100 

Li 


K COUNT  =KCnUF'T  4 I 

5OI.R3350 

IF  I IP5M  .C.T.  r ) WR  I TE  (6tTnWPR  ) 

SPLR  3360 

IF| KCCUNT.GT. 10)  GO  TP  658 

SnLR3370 

GO  TO  12 

SPLR33P0 

5Ct5  CPNTINIIF 

SnLR3360 

WPOVWO  = FP  /WVEH 

SOI  R 3400 

STGLnn=XLM/Cr,  ASF 

S"LR34  10 

CALL  1.  INF(  6,  STGLOP,  TAPPP  Cl  1 ) . RGPOVL) 

S^LR3420 

PCP  = P GPPVl *XLM 

SOL P 34 30 

X IPTCF=WM*RGP**2 

5OLR3440 

RGR0Vn=0.35 

501.03450 

RGR=R  GROVn*CC ASF 

SOL P 3460 

X IRnLL=WM*RGR**? 

5nLO3<i70 

WTNFPT=WM-WP 

501 R 34P0 

PMF=WP/WW 

5OLR3460 

XLK=  XLAH  4 XLC  4 XLFH 

5nLR3500 

ZNSA=  XLK  4 1. 

5PL  R3510 

R T = 0.5*rTFR  T 

SPL0357n 

ZMCS=  XLK  ♦ Xl^/2.  * 0.1A^*(TIAHM  ♦ 0.25)*((3*RT  ♦ RNOZ  I f 0.75)/  SnL‘<3530 
l(1.5*RT  *■  PNnZ  I 4 0.5))  - TIAHM  - 0.25  SrHP-<540 

7K'T=  XLK  4 XI  ^ ♦JXLB  4-  XL2)/2.  - TIAHM  - 0.25  5OLR3550 

7FC=  XIK  4 XLA  4 XL3  ♦ X12  ♦ XLl  - 0 . J 333*XL  I • ( ( ^.  0 *RT*  ( 2 . - Sni  H 35i^0 

lCnS(  PHINf'/  ) 40EX  IT  ) ) /(  2.*HT*(2.-Cn5IPHI  NOZ)  4nFXIT)))  5nLR3570 

ZRIN=XIK  - 1.71*RN'nZI  4 5.53*RT  4 1.56  5r'|.D3SR0 


ZF5=  74  T 
7 PFM=0.0 

7<:FH=  XLFH/?.  4 TFH/A. 

ZIFH=(XLFH  4 TFH)/2.  4 TlAHM/^». 

ZPFHI=  n.t25*XLFH  4 0.375*(TFH  4 TIFH) 

7PFH2=  0.5*(XLFH  4 TFH  4 TIFH) 
hPFHl=  0.54rCASF/F  F^H  -TFH  -TIFH 
RnFHl=  C.5*CCASL  -TFH  - TIC 

WPFH1=  C.6667*PI  ♦ RHOP  ♦ HPFHl  * RPFHl**? 

wpfh?=phpp*ap*hpffi 

7PFH=(ZPFH1*wPFhI  - ZPFH2  * WPFH2 ) / ( WPFHl  - WPFH2) 
7PAH=XLK 


Sni  Ri560 
5ni  R3''00 
Sf'l  R3610 
FTt  R3620 
Sni  R3630 
<;f'L  0T6An 
SplR76'=0 
FPLR3660 
Sni  R 7670 
S'^LR  3600 
SPl.R  3500 
FOl R 3 700 


ZSAF=  XLK-(XIAH  4 0.125)/2. 

71AM=  XLFH4  XLC  4 n. 5* ( XLAH-0. 25  - 0.5*TIAHM) 
7PAH=  XLFH  4 XLC  4 0.375*<XLAH  - 0.25  - TIAHM) 


Sni  P 3 71  0 
SP(  R3  720 
5ni  O’  73  ■) 


ZC=  0.5*XLC  4 XLFH 

7P=( 7PFF*WPFH  4 7PAH*WPAH  4ZC*WPC)/WP 
ZFS=  0.5*XLFH 

ZAS=  XL FF  4 XLC  4 0.5*(XLAH  4XLNS  -0.25*DEXIT) 

Z I = 11.2*  W I/A  IGM 

XMOMfs  WNSA*ZNSA  4 WF'CS*ZNCS  4 WFT*ZNT  4 WNSC*ZEC  4 WNFC*Z  EC 

1 4 WPIM*ZPIN  4 V,A<:*7H5  4 WPFH*ZBFH  4 WSFH*7SFH  4 WIFH*7IFH 

2 4 ZPFM*WPFH  4 WPAH*ZPAH  4 WSAH*ZSAH  4 WIAH*ZIAH  4 ZPAH*WPAH 
’ 4 ZC*WC.  < 7FS*KFS  4 ZAS*WAS  4 ZI*WI 

XCOMHX=  XMHMF/IWM-WP) 

XCCL AX=(XM0ME  4 ZP*MP)/WM 

IF  ( IPS'*  .LE.  0 ) GO  TO  606 

WPITFI  6,Cr,RAV) 

WPITF(6,X INPUT) 

WPITFI 6,XMri  ) 

WP ITFI C.CO) 


SOLO-^T/,  0 
FPLp  3 750 
501.  P 3 760 
501  R3  770 
501.  R37P0 
5'^l  R3790 
5ri|  p 3Pno 
5nLR35  10 
SOLR  3R20 
5nLR3P30 
Sni  03  04  0 
501  03850 
5nL  R3  960 
5OLR3R70 
5r>LR3flRO 
5nL  R 3Pno 


HA 


lOl 


6C0 

CONT INUF 

SOLR3900 

IF  ! IPSM  .IF.  0 ) GO  TO  606 

SOLR3910 

WPITF!6,X INPLT) 

S0LR3920 

WRITE! 6,XM0I ) 

SOLR3930 

WP  ITF! 6,f G) 

SOLR39A0 

6C6 

CONT INUF 

SOLR3950 

IF!  IPSM. FQ. 01  GO  Tf)  999 

S0LR3960 

CALL  PAGF 

SOLR3970 

WRITF! 6t6000 ) 

SOLR39flO 

6C00 

FORMAT! //10X,27H  P INTLF  NOZZLE  SOLID  POCKET  ) 

SOLR3990 

IF! IS IZ .LF.l )GO  TO  6001 

SOLRAOOO 

59C0 

FORMAT!  /30X, lAHC ASF  D I A ME TF R = , F 5 . 2 t AH  I N.  ,AX ,1 9HWF IGHT  INPUT 

OPT lOSOLRAOlO 

IN, 3X,  15FVFHICLF  WF IGHT= ,F 10. 3,AH  LB.  ) 

SOL  RAO 20 

CO  TO  6022 

SOLRA030 

6CC1 

CONTINUE 

SOLRAOAO 

IF!  IPSM  .FQ.C)  GO  TO  999 

SOLRA050 

58CO 

FORM  AT!  /30X,  lAHC ASF  0 1 AME TF R = , F5 . 2 , AH  I N.  ,AX , 1 9HLE NG TH  INPUT 

OPT IOSOLRA060 

1N,3X, 15HVFHICLE  LFMG TH=, F 10. 3 , AH  IN.  ) 

SOLRA070 

6C22 

IF!  ITHP  .IT.  1)  GO  TO  6C50 

SOLRAORO 

60A0 

CONT INUF 

SOLRAOOO 

6C60 

FORM  AT! /30X, SOHOFSIGN  THRUST  TO  WEIGHT  R ATI  0= ,F6 .2 ,5 X , 1 5HTHPCT T L E S^lpaIOO 

lRATin=,  F6.2) 

SO!  RAl 10 

GO  TO  6CC2 

SOI  RA120 

6050 

CONTINUE 

SOLRAl  30 

6090 

FORMAT! /?0X,  lAHOFSIGN  THP LST= ,F 1 0. 2 ,AH  LBF  ,13X,23HTHRUST  TO 

WE IGHTSOLRA lAO 

1 PAT  IO=,F6.2 ) 

S0LRA150 

GO  TO  6002 

SOLRAI6O 

9S0 

KFAIL  = l 

SOLRAl 70 

IF!  IPSM  .FQ.C)  GO  TO  099 

SOLRAI8O 

WPITF!6,750C) 

SnLPSlOO 

7500 

FORMAT! //AOX,  A2HrYLINnFR  LENGTH  EQUAL  TO  OR  LESS  THAN  Z'^RO 

) SOLRAZOO 

GO  TO  999 

S0LRA210 

6CC2 

CCNT INUF 

SOI  RA220 

IF!  IPSM .FQ .0 ) GO  TO  90s 

S"LRA230 

WRITE!6,6100) 

SOI RA2A0 

61C0  FPRMAK  //inx  .PHCOMPONFNT  ,15X,  lOHWFIGHT-LR.  tSXt  lOHL  FNGTH- IN,  , LRA2'50 

llPX,3«?HPFPFnRMANCF  PAPAME  TEP  Sir.OMPnSITF  HTPR)  I S'^LPA260 

WP  ITF(6,6  200>WFS,XLFH,FH1 

62C0  FORMAT! /lOX,  I JHFORWAPD  SK  IP  T,  1 1 X , F 10. 3 t5X  ,F  10.  3 f 18  X , 15HM  AX  I MUM  THP«;nLP<>2R0 


IUST=  ,F10.3,<tH  LPF  ) SnLR4?00 

WP  ITF(6,6300  IWFH,XLFH,FLr  PnLP<»300 

6300  FORMAT!  /lOX,  12HF0PWARD  HEAD  , 12  X tF  10.  3 1 5X  ,F  10,  3 1 1 RX  , 15  HM  IN  I MlJM  THPUSOL  RA  3 10 
IST=  ,F10.3,AH  LRF  ) SOIRA320 

WP  ITF!  6,640C)wr.  , XI  0,  XISPHI  S^LP^RTO 

6AC0  FORMAT! /lOX.eHCYLINOFP, 16X, FIG. 3f5X,F10. 3, 18X,15HISP  AT  MAX  THR=,  SOLRAiAO 


IF10.3,AF  SEC  ) 

WP ITF!6i6500  )WAH ,XLAH, XI SPLC 

6RC0  FORMAT!  /lOX, shaft  HFA P , 16X ,F 1 0. 3 ♦ 5X ,F 1 0. 3 1 1 8 X » 1 5 H I S P AT  MIN  THR*, 
1F10.3,4F  SEC  ) 

WPITF!6f66CC)WN, XlNOZtPCHI 

66C0  FORMAT! / lOX, 13HNnZ7LF! TOTAL ) t IlX.FlO. 3 ,5X,F10.3t 1 8X,  15HPC  AT  MAX 
lTFP  = tF10.3,  5H  PSIA  ) 

WP ITF !6,670C IXLNS.PCLO! I ) 

67C0  FORMAT! /lOX,  I6HMn77LF!FXTFPNAL)f23X,F10. 3, 18X,15HPC  AT  MIN  THR=, 
IF10.3,5F  PSIA  ) 


SOI  RA350 
SnLRA360 
SOI  RA370 
SnLRA30O 
SOI  RA390 
SOLRAAOO 
SOLRAAIO 
SOLRAA20 
SOLHAA30 
SOLRAAAO 


HA  102 


WPITE(6tfr'^CC)WAS»XLAS»ATHI 


<;nLPA<i50 


6800  PPRMAK /inx.qHAFT  SK  I P T , 1 SX  ,F  1 0.  3 1 5X  ,F  1 0.  3 1 1 8X  , ISHTHPOAT  ARFA  AT  f?;r'lP6660 


» 


69C0 


7000 


1/77X,15FMAX  thrust  =fFl0.3t8H  SQ.  IN. 

WP  I TF (6,6900  )WMISr ,ATIC 

FPRmatC  /lOX,  ITHM  ISCFLLAMf nuS,  11X,F10.3,  33 X, 1 5HTHR P AT  AREA  AT  , 
1/78X,15FMIN  THRUST  =,F10.3,8H  SC.  IN.  » 

WR[TF(6,700C)WM,nFXIT 

FPRMATI / lOX,  19HT0TAL  MOTOR  WE  I GHT= ,F 1 0. 3 ,4H  LB . , 3^ X ,1 5HFX I T 
1 =,F10.3,AH  IN.  ) 

WP  ITF(6,7  100  JWIMEPT,FPHI 


SOLRAATO 
Solpaapo 

<;P|  « aA'iO 
SPIRA500 
SPLPASIO 
PIA.  SPLRA57() 
SnLRA530 
<;(»!  OASAO 


7100  FPPMATI /lOX, IQHTOTAL  INERT  WE  I GHT  = ,F 10.3  ,AH  L B. ,3A X , 15HEXP . PATIO  SPLPASSP 


lAT  ,/77X,15HMAX  THRUST 
WPITF(6,720C)WP,EPL0 
7200  FORMAT!  / IPX, 19HTPTAL  PROP. 
lAT  ,/77X,15HM!H  THRUST 
WP  IT E( 6,7  300  JXLM.TOTIMH 


= ,AX,F3.2) 


Sf'LRA560 
SnLPA370 

WEIGHT=,F10.3  ,AH  LB. ,3AX ,15HEXP.  RATIO  SPLRASRO 
=,AX,F5.2>  SPLRA590 

SCLRA600 


73CO  FORM  AT! /lOX, lOHTOTAL  MOTOR  LENGTH*, F 10.3 , AH  I N.  ,3A X , I 3HT OT AL  I mPULSPL R A6 1 0 


) 


ISF, /77X,  16HAT  MAX  THRUST  =,F10.2»7H  LB-SEC 
WPITF! 6,7AnO  )PMF ,TOTIML 

TACO  FORM  AT!  /lOX,l9HPRrP.  WT.  FRAC  TI0N=,3X  ,F5.2  ,AOX,  IBHTOT  AL  IMPtJLSF, 
1/77X,16HAT  MIN  THRUST  =,F10.2,7H  LB-SEC  ) 

WP ITF! 6, 7900 ) WVFH 

FORMAT!  10X,19HM1SSILE  WEIGHT  =,F10.3I 
WP  ITC(6,76no  ) TPW,TPUPNH 


7900 

76C0 


SOLPAAPO 
SOI RA630 
SOLRAAAO 
9PLRA6S0 
SOLRAASO 
SOLPAATO 
901  RA6P0 


» 


FORM  AT!  /I  OX,  19HTHP  UST  TO  WFIGHT 
116HMAX  THRUST  =,F6.2,AH  SEC 

WPITF!  6,7700)  TBL'PNL 

7700  FORMAT! /77X, 13HPUPN  TIME  AT  , / 77 X , 16HMI N THRUST 
lAF  SFC  ) 

WP ITF ! 6,7800  ) WPOVWO 

FORM  AT!  / lOX,  19HM  ISSU  F MASS  R A Tl  0*  , 3 X , F5.  2 ) 
CONTINUE 

WMC=WSFH>WPFH'*-WSAH*WP  AH+WFS+WA  S+WSC 
OP  = !WIFH4WIAH+Wir ) / RHOINS 
WNX  = WM 
WPX=WP 
WMX  = WM 
RFTUPN 
FNO 


*,F6.2  ,A2  X,13HPURN  TIMF  AT  ,/  77X  , 9^1  P AA^O 


=,F8.?, 


78C0 
9 S9 


9nLRA700 
S^LRATIO 
PA  720 
901  RATIO 
<;ni  u.,7A0 
SOL  RA  TAP 
SPL  RA  7A0 
9PLRA770 
S'^LRATbO 
<;n( 

';pi, 

S'^LRATIO 
<;p|  i^aBPO 
901 RAR30 


SUPRPUTir'F  Rori  10  IIPFP,  FPEOD,  XISP,  WOXT,  KFAIL) 

Rorunoio 

PGM=NUK  . CMCCSM  GCJ/RKM  FIV/EBCD  9/10/73 

R''r.im2o 

COMMON  /SOLMIS/  SrL9(9),  WSECT 

POOL  0930 

COMMON  /COMVLS/  C0MI5  1) 

pnOLOOAO 

ECUIVALENCEICOM!  2A),  WT), 

POOL  00  so 

(COM!  25) ,WFX)  , 

ROCL0060 

(COM! 26  ) ,FMAX ) , 

ROOLOOTO 

(COM(AO),WTC), 

PncLOOBO 

( COM! A1  ),WTPX  ) , 

Pf^CL  0090 

! COM! A2),WGC)  , 

ROCLOlOO 

(COM! A3),WSC), 

POCLOl 10 

(COM! AA),WLV), 

Pnci  0 120 

(COM! A5) ,VGT)  , 

ROCLOUO 

HA  103 


r 


(CnM(<i6J,W0  ), 
(rnM(  <*7),wp*i. 


00(2)1*  (TFRAC.CnO))  , 

> 00(6)  I * 

00(9)),  (HCVAST,  COdO 


B 
9 

A (r.OM(  50),MFTAl  X) 

DIMFN<;iON  X(3),  NINVO) 

crMMrN/MonL/  nooo) 

FOUIVALFNCC  (TSKlNI,nD(  1)  ) , (TCWI, 

1 (SAFAC,  nD(A)),  ( IWTANK,nD(5)),  (WSKNPL 

2 (WPAYL,  00(7)),  ( IKTPL,rO(8))  , (WSINPU, 

3 ( OPT,  nO(  1 1 ) ) 

FOUIVALENCE  ( 00(12),  (TANK  ) 

COMMON/CnOFXX/  Z0(2),  ISIZ,  ZAP(13) 

COMMON  /LIOOUT/  XL  TP , WTP,  WOXTNK,  WFTANK, 

1 XLTOX.WOX,  XLTF,WF,XXLPS,  WPROPI , WNOZ 

COMMON/PP INTR/  IPSM, 176(6) 

COMMPN/ROCKFT/  XISPTH,  XMRT,  ETAISP,  PCHAMB,  FENG, ETACF , PRFLL, 
ICl,  C2,C3,CA,C5,C6,C7,C8,XLSTAR,ZT,M0VAC2,EXSl  ,W0VAC1,0CASF, 
2WnVANl,W()VAN2,RHOrx,PVOX,REH,METAL,XLVEH,STGW,XLPAYI  ,WASURF,WPL 
aWMlSOL, PHOF, I THR ,TOWOFS,TRATin,FOES,XnLMIS 
COMMON/POCL/  TAB1SP(631) 

COMMON/POCLX/  TABFXR(817) 

COMMPN/SAVL/  FL0S,FH1S,PCHAMS,EPSS, si SPLO,  SISPHI,  OEXITS 
COMMON /TAPSFX/  NPf ,NMR,NISP,NPCP,NMRP,NFXR 
C0MM0N7TCVPFR/GR  X ( A ) , WP  , SFX  I T , XXX  ( 66) 

EOUIVALEMCE  ( XX X ( 66 ) , XLP S ) , (XXX(6A),  BTLQ) , ( XXX (2 ) ,WVFH) 


NAMFL  1ST/TCHAMR/XK3,  WOOTE, 


ROCLOIAO 
ROCt  0150 
RnrLOl60 
POCLOITO 
Rocioiao 
R0CL0190 
ROCLOZOO 
)),'»OCL0210 
R0CL0220 
RCCL0230 
ROCLOZAO 
R0CL0250 
ROCL0260 
PnrL0270 
ROCLOPflO 
POCLOZOO 
, pocLoaoo 
ROCLOOIO 
ROCLOaZO 
PnCL0330 
ROrL03A0 
ROCLoasn 
pnrL0360 
RnCL0370 
R0CL0380 
RnCL0390 
ROfLOAOO 
RPCLOAIO 
ROCLOAZO 
PnOLOATO 
ROCLO AAO 
POCL0A50 
RO  rLOA60 
rnoLOAZO 
POCLOAPO 
prr.LOAOO 
f^PLOSOO 
por.Losio 
KOCL0520 
pnri.osTO 
ROCLOSAO 
PflCL0550 
POCLOSbO 
PPTLOSZO 
ROCLOSPO 
port  osoo 
ROCL0600 
RnCL06l0 
ROCL062n 
ROCL0630 
POCL06An 
POCL0650 
K0rL0660 
R"CL0670 
ROCL06nO 


HA  lOA 


IC 


'j 

I 

I 

r 


c 

r. 


c 


WF,  XLCCX,  XLTPX, 
ZBARQXt  ZRARFt 


ZLFGr,, 

ZVGGC, 


1 ZBflRCZ,  ZBARClt  ZBAPJt  ZBARTC t ZBARTP,WOX, 

2 XLTF,  ZPARPS,  ZBARMH,  WTOSt  ZBART,  ZBARPSt 
2 WnXTNK fWFTANK 

NAMFL  IST/VLr.G/  ZLOM,  ZIOL,  ZLFLt  ZLOH,  ZLFH,  ZLOGG» 

1 ZLM,  ZVFO,  ZVFFf  ZVIC,  7VIF,  ZVTO,  ZVTF,  ZVH,  ZVF , 

2 ZVGGF,  XM0ME,XCGE,XCGF 

NAMEl  IST/BUC/  XL VFH,  XLPAYI  , XLTHR,  XLTP,  XLH,  RTI,  TC,  VOLHO, 

I XLC,  SH,  VT,  WGASt  VGT,  OGT,  XLTANK,  XI TA PP , KnUKT , XLT APR 
NAMEL  IST/TOWPR/  TOWOESf TPH, TCNFRR,KCNT  « FHI,  WVFH 
NAMFL  IST/BUG  1/  KBDG, IPFRF  tXI SPLOt XI SPHI  ,S I SPLOt S I S PH  I ♦ FLO.FHI , 

I FHlS,WnnT,FPSStFPSRtPCHAMS,PCHLO#PCHX,XISPL  tXMRT, EPS, FNGISP 
NAMFL  IST/TA^KB/  IKTANK,  TC , VOLHD ,RHnOX , RHOF , TFRAC , WSK INP, 

1 WSKlNM.XLMStWMS, VSUM,FGGT,Cl ,C2,r3,XLCF,  XLCO, VCO , VCF , VTQ ,VTF , 

2 wsr  F,WPF,  WRO,  WTO,  WTF  ,mANK,X  Lin,  XLTF,  XLTANK 

NAMFL IST/INPLT/XI SPTH,XMP  T,FTAISP  ,PCH AMB , FENG, ET AC F, PBFLL , IS IZ, 
IC1,C2,C3,C4,C  5,C6,C  7,  C 8,  XL  STA  «,  Z T , WOVAC2  ,E  XS  I , WCV  AC  I , DC  AS  F, 
2wriv  AN  1,  wr  V AN2,  PHOrx,P  VOX,  REH,  METAL,  XLVEH  ,STGW  , X LP  AY  I 

3,WASURF,WPL,WMISCL,RHOF,ITHR,TnwnES,TRATICl,FnFS,FRFC,XCLMIS 


WMS  = 0. 

IF  ( IPSM  .GT.  0 ) WRITE  ( 6,  INPUT  ) 
♦♦♦♦THRUST  CHAMBER  C 0 MPUTA TI ON $♦*♦ 

IF  (TFPAC  .CT.  1.)  TFPAC  = 1. 

RH7X  = PH^nX 
RHZF  ■=  PHOF 
XXXI65»=XLPAYT 
IPERF=IPFR 


PrCL0S90 
RnCLOZOO 
RHCLOTIO 
Rran720 
RnCL07T0 
PnCL07A0 
RPCL07SO 
Rnr.L0  7A0 
RnCLDTTO 
PrCL07C0 
pnrL0790 
PPCI  OBOO 
RPCLOB  10 
pnrLOfl?o 
PPCLOBTO 
RO CL  OB AO 
RPCL0B50 
PPCL0B60 
RnCL0870 
RrCLORor) 
RPCL0fl9n 
RPCLOOOO 
RPCLOO in 
Ri^CL  0920 
ROr.l  0930 
«nrL09A0 
RPCL0950 
RPCLOOftO 


wrnT=wPXT 
FPFO=FP  EOn 

IF(  IPERF.EO.n  GP  TO  12 

P 1=3. 1A159 

WVEH=STGW 

xisptt=xispth 

11  riSPT=FTAISPAXI SPTT 
KBUG=6 

IF!  IPSM.GT.O  ) WP  ITF  (6,PUGl ) 

I F(  PCH AMB  . GT  .2000.  ) PCHAMR=2000. 
IF(  PCHAMB.L  T.20.  ) PCHAMB=20. 
XK3=1.C-I.B2  3F-5*PCHAMB 
FNGISP=XK  3*PI  SPT 
WFST=0.?2  72E*r)CASF*M3 
4«4*44ii»SFT  maximum  thpustmm**m 
FHI=TnWDFS*WEST 
IF{  ITHR  .FO.OI  FHI=FOES 
FFNG=FHI 

4«4***sft  minimum  THPLST****** 

FLn=FHI /TR  ATin 
Kr,NT  = 0 

12  CONTINUE 


IF( 

IP 

FP  F.EO 

.0)  GO 

TO 

13 

IF( 

FP 

EQ.LE. 

FLOS  > 

GO 

TO  1 

IF( 

FP 

EO.GF. 

FH  IS) 

CO 

TO  1 

FLO 

*F 

RCO 

FHI 

»F 

HIS 

Rori 

0970 

POCL 

nqpO 

ROCL 

0990 

onCL 

1000 

■’(ICL 

1010 

'’"CL 

102" 

’’PCL 

10  30 

ROCL 

lOAO 

POCl, 

10«)0 

•JPCI 

1 OAO 

ROCL 

10  70 

R9C.L 

lOBO 

R"CL 

1090 

ROCL 

1 100 

POCL 

1110 

ROCL 

1120 

RPCL 

1 130 

RPCI 

1 1 AO 

R9CL 

1150 

RPCL 

llf)0 

RPCL 

1170 

rotl 

1 IBO 

RPCL 

1 1 90 

POCL 

1200 

ROCL 

1210 

c 

or 

12  20 

ROCL 

12  30 

I 


HA  105 


! 

f 

I 

1 


r»CHAMH  = PCHAMS 

POCLIZAO 

CFX IT=PFX  ITS 

POCl  12  50 

PP AT in=FHI/FRFO 

RnCL1260 

PCHX=PCHAMS/PRATIC 

RnCL1270 

FFNG*FRE0 

ROCL 1280 

FPSR=EPSS 

R0CL1290 

IF(  IPERF.FQ.l  > X(  U=PCHX 

RnCL1300 

X(2»  = X»‘RT 

RnCL1310 

X(3>=FPSP 

RnCL1320 

NINV(  n*NPCP 

RnCL1330 

MNV(  2)=NMRP 

PnCL13A0 

NINV<  3)=NFXR 

ROCL 1350 

CALL  FASTSCNVAR  ,NINVtTABI  SPdJ  . X, 

XISPLO) 

PnCL1360 

CISPl  n=ETA  ISP*XTSPL(J 

RnCL1370 

rF(PrFX.LT.20.J  PrHX=2C. 

POCL  1380 

XISP  = XK3  * OTSPI  n 

ROCL 1 300 

WCOTCRsFPEO/  XISP 

POCLl AOO 

wpcT=wnoTrR 

POCLIAIO 

KBIJG=  1 

PPCL 1A20 

IF(  IPSM .GT.O > WP  ITF(6,PUGl) 

ROCLIAOO 

RETURN 

ROCL  lAAO 

131  FLn^FLOS 

pna  l-VSO 

X ISPLO=SISPLO 

ROCLl A60 

KPUG=2 

PnCL 1470 

1F(  IPSP.GT.Cl  WRI TE(6,BUG1 ) 

P^r.L  1480 

CO  TO  9e5 

Rnr.L1490 

132  FH=FHIS 

PPCL  1500 

XISPHI=SISPHI 

PPCL  15  10 

KRUr,=  3 

ROCL 1520 

IF!  IPSM  .GT.O)  WR  ITF  (e.RUGl) 

RnCL1530 

GO  TP  ^86 

Pf^CLl  540 

13  CPNTINUF 

ROCL 1550 

KPUG=4 

PPCl  I860 

IF(  IPS*' .GT  .0  ) WR  ITF(6,PUG1) 

PPCL  15  70 

FFNG=FH  1 

PPCl  1580 

WCnTF=FENr,/FNGISP 

PPCL 1 500 

wnnTPT=(FENG-WCnTE*61 .8) /(DI SPT-61 

.8) 

PPCL1600 

FTHR  = W00TPT*01 SP  T 

RPCL 1610 

IFinET.EO.inCASE-l.))  GO  TO  9<30 

PPCL 1620 

CST AP=C l*PCHAMB**r2  - C 3*PCHAMB**CA* (ABS(C5*PCHAHB**C6  - XMPT)) 

PPPL1630 

!♦*( f 7 ♦ PCHAMR*C8) 

ROCL 1 640 

CFTT  = XISPTT*32.  17/CSTAR 

PPCL 1650 

crcEL  *ETACF*CFTT 

ROCl 1660 

ATHRT*FTHR/( rFnFL*PCHAMB ) 

PPCL1670 

rTHRT=2.0*S0RT( ATHR T/3. 1 A159) 

PPCl 1680 

X(  1)  = PCHAMB 

RnPL1690 

X(2)*XMRT 

PPCL 1700 

X( 3)=XISPTT 

PPCl  17  10 

NVAR=  3 

RUCt  17  20 

NINVI  1 )*MPC 

PPCL1730 

NINVI 2)=NMR 

RPCl  1740 

NINVI  3) *N  ISP 

RPCL 1750 
PPCL 1760 

LOrx  UP  FXPANSION  RATIO  FOR  GIVEN 

CHAMBER  PRESSURE,  MIXTURE 

RPCL1770 

RATIO,  AND  theoretical  SPECIFIC  IMPULSE 

pncLi7eo 

HA  106 


I 

I 


CALL  FA5TS(NVAR ,NINV,TAPFXR ( 1) ,X,EPS) 

CET  = nTHPT*SQRT(FPS) 

SFX  IT=0.?5*P!*DET**? 

(•♦♦♦•♦♦♦tcst  nczzle  niA.  vs.  missilf  niA. 

c«*«*«***  IF  NOZZLF  EXIT  f)IA.  IS  GREATER  THAN  MISSILE 


SET  FXIT 


AREA  AND  FIND  THEORETICAL  ISP  FOR  NEW  FXPANSIOA  RATIO 
IF( DFT-I rCASF- 1.  ).  GT.O.II  GO  TO  99 
cr  TO  990 
rET=CCASF- 1. 

APEFN=0.?5*PI*I nCA  SE-  1.  )**2 

sexit=arefn 

EPSR=ARFrN/ATHRT 
X(  n=PCFAMR 
X( 2)=XMRT 
X{ 3)=EPSR 
NV  AR=3 

A INV(  D^NPCP 
N!NV( 2)=NMRP 
N INVI  3)=NFXP 

CALL  FASTSIMVAP  ,NIMV,TAB  I SP  ( I ) , X , XI  SPTT) 

IF( IPFR  F.EQ.O  ) GO  TO  11 
CONT INUE 

PrHLn=PCHAMP/TRAT in 
X(  1 ) = PCHLn 
Xl 2)=XMRT 
X(  3 » = FPS 

IFI  DET.FO.IRCASF-l.)  ) X(3>=FPSR 
NItJVI  1)  =NPr.P 
MNV(  2)  =NMRP 
MNVI  2)=NFXP 

LOOK  UP  LOW  THRUST  ISP  AT  MINIMUM  CHAMBER  PRESSURE  AND  ? 
MIXTUPF  RATIO 


MINIMUM  chamber  PRESSURE  AND  SFLFCTFC 


CALL  FASTSINVAP  , N IN  V , TAR  I SP  III  t X , XI  SPL  ) 
CISPLO=FTA ISP*X1SPL 
XtSPin  = XK3  ♦ DISPLO 

SPECIFIC  IMPULSE  AT  MINIMUM  THRUST 


wcoTLn=FLn/x i splc 

iri  IPFRF.FQ.I  ) GO  TO  965 

SAVE  values  for  PERFORMANCE  E 
FLOS=FLn 
FFIS=FHI 
PC HAMS=PCHAMB 
S ISPin*XISPLO 
SISPFf=FNGISP 

epss=fps 

IFI  DET.EO.IDCASE-i.l)  EPSS»EPSR 

CFX  ITS*DET 

cr  TO  ICA 

CONT INUF 

WDOT*FLO/XISPLO 

XISP  * XISPLO 

IFI  IPSM.GT.C)  WR  ITF  I6,BUG1) 


ESTIMATES  FOR 


PASS  I IPFRF=  1) 


PnCLl  Z90 
wnCL 1 900 
P0CL1910 
POCL 1920 
PnCLlBTO 
“OCL IPAO 
Rr>CL1950 
POCL 1960 
ROCL 1 970 
POCL 1990 
RnCL1390 
onCL 1900 

ROCLIOIO 
RPCL  1920 
POCL 1 930 
RnCL19<»0 
ROCL 1950 
ROCL I960 
ROCL 1970 
POCL 1990 
RnrL1990 
POCl  2000 
PnrL20l0 

Pr'CL2020 
RnCL20  30 
RO  CL  20 AO 
'’n'-L2050 
R^CL2O60 
R0rL2O70 
R'’CL709n 
R'’CL2090 
RPCL2 100 
R.nCL21 10 
P9rL2120 
POCL  2 I 30 
POCL  21  AO 
‘•’rri  2 ISO 
Pnr.l  7160 
ROCL 2 170 
PC'ri  2190 
PP'CL21'9n 
RiirL22O0 
pnrL?710 
R0CL2220 
PnrL2230 
KnrL?74o 
R'ia2250 
RDCL  2260 
ROCL 2 2 70 
ROCL  2280 
RnrL229n 
POCL 2 300 
R0CL2310 
PnCL?3?0 
PnCL2330 


IIPII  w 


OFTUPN 

<386  CfNTlNUF 

WCnT=FH  f/X ISPHI 
XISP  = XISPHI 

IF(  IPSM  .GT.C  J WR  ITF(6,PUGl» 

RFTUPN 

987  WrOTsFP  FO/X  ISPLO 
XISP  * xiSPin 

IFI IPSM.GT.C)  WRITF(6,BUGl) 

RETURN 

IC4  CPNTINUE 
KPUG=5 

IFIIPS'l.GT.OI  WPITF(6,PUGl» 

CTX*nT»-RT 

XK2T=( ( XLSTAR/OTX*  0.26061I/(ZT  ♦ 0. 26061) ) •♦0, 666 7 
CCT=OTHRT*SORT( XK2T) 

XL JT=0.635*0CT 
XLC1T  = Z T^PCT 

XLC2T=DTHRT*(  SQPT(XK2T)-  l.)/1.279 
XLNT  = OTHRT*PPFLL*( SOP  TIERS )-l. )/53.  6 
XLTHP=XLJT  ♦ XLCIT  ♦ XLC2T  ♦ XLNT 
WINJ=0.0136*DCT**3.326 
WC1T=3. 1A159*DCT*XLCIT*W0VAC1 
Wr2T=1.375*WOVAr  2*CXK2T-l.)*nTHRT**2 
EPSI*EXS1 

IFIFPS  .LT.15.)  FPS1=FPS 
WNIT=2.«734*W0VAN1*(EPS1-1. )*ATHRT 

WN2T*3.  14l59*wnVAN2*ATHR T*(EPS  -EPSl)  ♦ 3. 1E-9*SQRT ( XK2T) •CTHPT 
l**3*PCHAMR**2.0e 

WTC  = WINJ  ♦ WCIT  ♦ WC2T  ♦ WNIT  ♦ hN2T 

WNOZ  = WC2T  ♦ WNIT  ♦ WN2T 

IF(  IPSM.GT.O)  WP  ITE(6,TCHAMB) 

C****  TFRUSTFR  WFIGHT  IN  LBS.  *♦* 

WDOTPT=  WDnTPT*XMPT/( 1,0  ♦ XMRT) 
wnOTFT=  WnOTPT/Il.O  ♦ XMRT) 

wrOTCGs  wnOTE  - wdhtpt 
wrOTOG*  O.l^WDOTGG 
wrr)TPF=  WOOTPT  ♦ WOnTPG 
Wnr)TFG  = C.9*WCnTGG 
wnOTFF*WDf»TFT  ♦ wnOTFG 

^•♦•FSTIMATF  propellant  WEIGHTS  FOR  OXIDIZER  TANK  CALCULATIONS 
WPFST=  0. lil*nCASF**3 
WPX*WPFST*XMRT/(  I,  ♦ XHPT) 
vTnxswox/(o.9  5*>PHpnx) 

XKNPSH*27.0 

XNPSHn=(VTOXA*0. 2*XKNPSH/RHOOX**0,526) ♦♦1.3333 
PNPSHn*XMPSHnARHnnx/lA4. 

Pvnx*l7.? 

PTnX=PNPSH0  ♦ PVOX 
oox»wooTOF/PHnnx 
PTF=PTPX 
CFsWCOTFF/RHOF 

CPJ*  l.C5^PCHAMH^^r.e  ♦30.^IFTHR^^0.102  - 1.6) 

CPVP*A2.5/FTHR^^C.226 

0PVEN=100. 


RPrL2390 
PnCL?350 
R0CL2360 
PPCL2370 
RPCL23Bn 
RnCL2390 
PPCL2400 
PPCL2410 
PnCL2A20 
RPCL2A30 
RnCL2A90 
ROCl  2A50 
Rna246n 
Pna2A70 
P'^CL2AR0 
P0CL2490 
00012500 
P0CL2510 
onCL2520 
P 0012530 
00012540 
P0CL2550 
PO0L256O 
PPCL2570 
ROCL25flO 
ROrL2590 
PPOL2600 
POOL  26 10 
R0CL2620 
port  2630 
PnCL?640 
CPCL2650 
POOL  2660 
P0CL2670 
DnCL26P0 
POOL  2690 
PPCL2700 
PPCL2710 
ROCL2720 
PnCL2730 
RnCL2740 
PnOL2750 
°0CL2760 
PnOL2770 
R0CL27P0 
POOL2790 
PPOL2flOO 
ROOl  2fl  10 
ROCL2R20 
RO0L2R30 
R0CL2fl40 
RPCL2B50 
ROCL2960 
ROCL2870 
ROCL28flO 
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PPOX  = Pr>AMR  ♦ DPJ  ♦ PPVP  DPVFN  ♦ 100. 
pppp^ppnx 

DFLHnx=( PPHX-PTOX )* IA4./PHP0X 
PFl  HFP  = (PPFP-PTF)*l4^./PHnF 
PTMAMsPCHAMp- 100, 

DIT»  19.Ul*SORT(V.nOTGG»  /SOPT(PTMAN) 

XNSF=  1300. 

xrF=( XNSF*rELHFP**0.75»/J  2l,2*SQRT(QF» ) 

IF(XA'F.CT.AFA>  XNF=AFA 
UTUR  PT=1400. 

n2T  = ( 720.*UTURBT|/(3.U159*  XNF  ) 

TTURPH=  PTMAW*01T*(2.0  ♦ 017/(027-  017))/l,6E5 
ir( 77URBH,L7.0.02)  77URBH=0.02 
r7URP*  0.5*017  ♦ 77UPBH  ♦ 027 
RFnM7U=0.29 

W17=(  P6627.*  U7LPB7*  77URBH*RHnM7Ul /(  XNF*SQPT  ( P7M  AM  » 

W17  = W17  * SQ9  7 ( WDn7r.G  ) 

W27=  537AIO.*U7UPB7**2.AA7*RHOM7U/XNF**2.667 
W37=  16*020.*U7UBH7*UTIJPB7*7  7URBH*RHOM7U/XNF**2 
W47=  H25  12.*UTIJRPT*utuPB7*7  7URBH*PH0M7U/XNF**2 
W7UPB  = W17  ♦ V<27  ♦ W3T  ♦ WA7 
X17UPP=  017  ♦ 0.5*027  ♦ 3.*77URBH 
IF(  IPSM  .G7.0  1 WP  I7F (6,7PLMP) 

OIPOX=P2.42*Onx**O.B33/XNF**0. 333 
n7PPX=  ?20f  2.0*SQP  7(  ( PP0X-P70X)/RHnr]X) /XNF 
IF( nTPrx.G7.o.P5*o7Pr'x)  oiPnx=o. 85*n7PPx 
XI  ipnx=  nipnx/2.c 
XL2POX=  OTPOx/3.0 

r3PPX=  5 29.2  5*S(jP  7(0PX/(  XNF*0  7Pnx|  ) 

TPnxH=  PP^’X*03PPX*(  2.0  ♦ D3Pnx/()7P0X) /60000. 

TFPw<'=  n7Pnx  -o.5*niPnx 

TFO*'P=  CTPOX/?.  - (ICPBAA.  * Onx/(XNF  * 07Pnx**2n 
X15PPX=  SORT!  7FRf'A*7FPMA  ♦ 7FPMB*7ERMB) 

RFnMP=0. 1 

W IPPX =0.27C2*PHOM7U*n IPnX  *2.667 
7E»Mr,  = P7Pnx/9,  - 2l.*0PX/(XMF*07P0X**2) 

TFPMP*  P7PflX**2  07PPX*DIP0X  ♦ DIPnX**2 

W2PPX=  O.A292*PI  * RHPM7U  *(63.*  CEX/XNF  ♦ 

17  FRM(  *7FRMD  )/D7PnX**0. 333 

W3PPX=  2.*  P r**2*PHnNP*7PnXH*n3P0X*(0.5*D7PnX  ♦ 03PrX/3.) 
WAPPX=  C.5*P  l*PHnPP*7PnXH*n7Pr)X**2 

W5Pnx=P (*7PrxH*RFPMP*(PIPnX**2  ♦ XL5PnX*( 01  pnx  ♦ 07PPX)) 

W6PPX=  <t2,336*PP0X  * OOX  * RH0M7U  / XNF 

C6PPX  = 12.*(  ( ppnx*0nx  PPFP*0F)/(600.0*XNFn**0.333 

W7Prx=0.6*PI*RH0MP*0IPPX*0IP0X 

WPPPXs  0.56e5*PI*PH0MP*PIPnX*DIP0X 

CIPF=  R2. 42* (QF/XNF 1**0.333 

W9PPX  = 3.O*Pl*0IPF*PHpMP*P6PrX*06Pr)X/16.  ♦ 42.34*PPCX  * OOX 
l*RHPMP/XN  F 

WPPX»  WIPPX  ♦ W2PPX  ♦ ♦.3PnX  ♦ W4PCX  ♦ W5P0X  ♦ W6PCX  ♦ W7Pnx 
!♦  WBPOX  * W9Pnx 

C 

C***  OXiniZFR  PUMP  WFIGH7 

r. 

xi.pnx=  XI  iPPx  ♦ XL2PPX  ♦ 3.o*n6POx  ♦ 7PnxH 


prrL2B90  i 

pnCL2900  I 

RnGL2910 
PF<Cl  2970  J 

PF'r,L79  30  i 

PPCl  2940  I 

PnCl  2950 
PPCL 29 60  I 

PPr,L2970  I 

port  29  BO 
P9rL2990 
Rt  ri  3000 
pncL30io 
pna3020 
pnCL3030 
pnrL30A0 
PnCL3950 
P.nrLOOAO 
RF'CL3O70 
P 9 CL  3 0 B 0 
OPCL  3 090 
POCL  3100 
orri  3110 
PCCL  3 120 
PPCL  3100 

Pf  01.3140 
onr(  3153 

PPOI  31f,0 
O'irL3lT0  \ 

pori.  3i'io  I 

09003190 
PHOL  3200 
POOL  37  10 
CPFL  3220 
PPCL  3230 
PPrL3740 
PrOL325P 
PPOl 3260 
PnOL  3 7 70 
CPPL  3’BO 
"POL  3790 
>9013300 
PPO.l  ■'310 
POOL  3 320 
PPO.L  3 3 30 
POOL  3 34f0 
POOL  3350 
RPOl 3360 
PPO.L  3 3 70 
PPO|  33B0 
PP0l33»'0 
PPCL  3400 
POOL  3410 
PnrL3420 
PnOL3430 
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1F(  IPSM  .GT.O  ) WP  ITE(6tnXPl)MP)  POCL  34A0 

C RnCL3450 

C***  r»IDIZFR  PUMP  LFNGTH  RnCL3460 

r RnCL3470 

rTPF=  22062.*S0R  T(  (PPFP  - PTMAN) /RHOFI /XNF  RnCL3A80 

XL  lPF  = 0.5*niPF  RnCL3<»90 

XL2PF=nTPF/3.  «nrL3500 

n3PF=  529.25*SQRHOF/(  XNF^OTPF))  RnCL35lO 

TPF=  PPFP*n3PF*( 2.0  ♦ D3PF/nTPF) /6.E4  RnCL3520 

TFRME=  CTPF  - DIPF/2.  PnCL3530 

TEPMF=  DTPF/3.  - 108864. *QF /(  XNF*nTPF«'OTPF»  RnCL3540 

XL5PF  = S0PT(TERME**2  ♦ TFRMF**2)  RCGl  3S50 

W1PF=C.2702*RH0M7U*D IPF**2.667  RnCL3560 

TFRMGx  PTPF/9.  - 21.*0F/( XNF*OTPF ) «nCL3570 

TFRMH=PTPF**2  ♦ DTPF*OIPF  ♦ 0IPF442  POr,L35PO 

W2PF=0.4292*PI*  RH0MTIJ*(0. 103*DTPF4«2  ♦ TERMG*TERMH)  RrCL3590 

l/riPF4*0.333  RnrL3600 

W3PF=2.0*P I**2*R F0MP*TPF*n3PF*(0.5*nTPF  ♦ D3PF/3.>  PPrL3610 

W4PF=0.5*P I*RHOMP*nTPF*nTPF  PnCL3620 

W?PF=PI*TPF*RK)MP*((01PF  ♦ OTPFI*  XL5PF  ♦ 0IDF**2l  R0CL363n 

W6PF=42.336*PPFP40F*RH0MTU/XNF  RnCL3640 

W7PF=0.e*Pl*RHnMP*ni  PF**2  RnCL3f>*»0 

WnPF=0.56R5»PI*RHrMP*0IPF**2  onCL3660 

C6PF=06Pnx  PnCL3670 

W9PF  = 3.*PI*CIPF*RHnMP*D6PF*D6PF  ♦ 42.34*PPFP*QF*RHCPP/XNF  00^3680 

WPF=  WIPF  ♦ W2PF  ♦ W3PF  ♦ W4PF  ♦ H5PF  W6  PF  4-  W7PF  ♦ W8PF  ♦ W9PF  !»nrL369r> 


c 

PPCL  3 700 

c*** 

FUFL  PUMP  WEIGHT 

RPCl  3710 

r. 

RnrL372o 

XLPF=  XllPF  ♦ XL2PF  ♦ 3.4ri6P0X  ♦ TPF 

PnCL  3730 

XL  TP=  1.  !♦(  XLTURP  + XLPOX  ♦ XLPF) 

PPCL 3740 

r 

PPCL 3740 

c*** 

TURPPPUMP  length  - in. 

PnrL3760 

c 

PPrL3770 

['nTF=  1.31A*wnnTGG**C.378? 

pncL37ao 

TCTE=0.020 

PnrL3790 

wrTF=o.on58*p i*nnTE*  xlthr 

pPCl  3300 

WGG=  5.55F-4*wnnTF**0.523*PCHAMB4*l.?7 

PPCLTRIO 

WSC  = 3.*Wr!nTGG 

POOL  3H20 

WTP=  WTURR  4 WPOX  4 WPF  4 WDTF  4 WGG  4 WSC 

FPCL3330 

c 

PPCL PR 40 

r.pp* 

TUP&n-PtjMp  WEIGHT 

PPr.L3R40 

IF( IPSM .GT.O)  WRITF(6,FULPMP) 

PnCL3860 

r 

RO  CL  3 8 70 

CLnM*0.370*WOnTnF**0.3907 

PnCL3R80 

TL0M»nLnM*PT0X/8.E4 

Rnr,L3  890 

IF(  TLOM  .LT.C.02)TLOMx0.02 

RPPL  3900 

WFIIFL  xWPFST-wnx 

PnCL3910 

vri  FT=l.05*WFUFL*l  728./RHr)F 

RnCL3920 

XLCFTxA .0*VnLFT/(PI*DCASF4*2» 

PnPL3'>30 

XLLOMxXLCFT 

pncL394n 

ALPMxPI  ♦OLOM 

RnCL39S0 

WLnM*0.283*TLnM*XLLO»«4ALOM 

pnr.L3960 

nLFM.C.4499*W0nTFF**0.375 

PnCL3970 

DLOI  *0. 370*wnnTnE*4C.3907 

RnCL3oP0 
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TL0L  = c»Tnx*DLnL/8.F4 
IF(  TLHL  .1  T.n2)  TLPL  = 0.0? 

XI  im  =2<t. 

ALOl  =PI  *0101 

WLrL=0.283*TLnL*XLLnL*ALnL 
ri FL  =0. A49S*WOnTFE**0.3  75 
TL FL=0L FL*PTF/BF « 
in  Tl  FI  .LT  .0.02)  TLrL*C.C2 
XI  FL=24. 

ALFI  =P1*PI  FI 

WLFl  =0. 283*71 FL* XL PL* ALFL 
PLnH=0. ?70*W on Thf* *0.3907 
TLOH=OLrH*PPnX/ PFA 
IF(  TLOH.LT  .0.02)TLnH  = C.  02 
XI  LC  H = 2<i. 
iiaH=P  I *01  OF 

WLnH  = C.283*TLOH*  XLLHH^ALOH 
0LFH=0. AA99*wnnTFF**0.375 
T| FH=nL  FM*PPFP/ 8F^ 
ir(TLFH.LT.0.02)  TLFH=C.C2 
XI  L FH=2^. 

#1  FH=P  I ♦PL  FF 

WLrH  = 0.28  3*TL  FH* XL LFH*ALFH 
01  nnG=o.370*wf:oTnG**o.307 
TLf'f.r.=Ti  ('H 
A(  nGr=p  r*ni  non 
XL L 000=  12. 

ncO.=n  .203*  Tl  OGO  ♦ A LOGO,  * XLLCGG 
Cl  FOO  = 0.AA99*  wnnTFG**C.  397 
T|  FGG  = TLnGO, 

Al  FGG  = P I*n|  TGG 
XI  FGO=  12. 

Wl PGG=0.2«3*TLFGG  ♦ XLFGG  ♦ ALFGG 

WL'<=10. 

wvFn=o.2fl2 

WVFF=0.230 

WVTn=0.4A*DLnM**l.8 

WVIF=0.36*nLFM**l.5 

WVTr)=l.^08  * (PCt-AMR/l00.)**0.655  * nLnH**i.A 

WVTF=1.152  * (PCHAMR/1C0.)**0.655  * DLFH**1.6 

POTFPM  = (prHAMB  / 100. )**0.655 

WVO=1.76  ♦ PCTERM  * DLnH**l.6 

WVP=l.AA  * PCTFKM  * DLFH**1.6 

WVGGOs  l.ACP  • PCTFRM  * rLnGG**l.6 

WVGGF=  1.1E2  * PCTFRM  * 0LFGG**1.6 

WLV  = WLGM  ♦ WLOL  * WLFL  * WLCH  ♦ WLFM  ♦ WLOGG  ♦ WLFGG  ♦ WLM 

1 ♦ WVFn  ♦ WVFF  ♦ WVIP  ♦ WVIF  HVTO  WVTF  * WVO  ♦ KVF  WVGGO 

2 ♦ WVCGF 

iniPSM.GT.O)  WR  ITEIfttVANOL) 

C****  COMPUTF  TANK  height (INPUT  WEIGHT  CPTICN) 

OTSA’K  = DOASE  * TFRAC 

C**#*METAI X 1,  aluminum,  SIGMTL*680C0  PSI,  RHnMTL=0.l  L8/IN3 
C****METAL=2,  titanium,  SIGMTL=160CC0  PSI,  RH0MTL=0.167  LP/IK3 
G ♦♦#*MFTAI  =3,  STFFL  , S IGMTL=220000  PSI,  RH0MTL=0.290  LP/IN3 
GO  TP  (AC,  5C,  60), METAL 


PO''L  3990 
WOOL  AOOO 
FOOL AOlO 
CPCI  AO20 
ROOLAOIO 
port  4 0 40 
FOOLAOAO 
RnCLAOGO 
RPCLAOTO 
port  4080 
RPOLAOOO 
RPCI  4 100 
ROOLAl  10 
BOCl 4120 
POCl  4130 
Pori  4140 
PnOL41 50 
Ror.L4160 
RnCL4  170 
pncL4i  po 
POfLAIOO 
P^ci  4200 
PPC.L4?10 
pr.rL4;>20 
R''ri.4230 
PPFL4?40 
^'■'CL4250 
PnrL4?60 
RPCL  42  70 
'■•'001  4?  PO 
“'101.4290 
“O0,L4  3'iO 
noi  4310 
P0''l  4320 
P'lCL  4 130 
ROOl 4340 
RP'OL4350 
RPOi 4060 
“001  437  ) 
4 '101  4 3 no 
ppri 4300 
pnri  4400 
B (10.144  10 
4fi '■14420 
pnci  4430 
40014440 
P''Cl  44^0 
W^CL  4460 
COOL  44  70 
PPOl  4 4 80 
RPCL4490 
PPOL4SOP 
PPCL4510 
“0014520 
POOL  4530 


!' 

I 

i 

a 

V 
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! 

! 

«0 

?;IGMTL  = 680CC, 

R0CL4540 

1 

i 

i 

1 

PHCMTL=0. 1 

P0CL4550 

i 

1 

C=lO.A7r6 

RnCL4S60 

t 

rr  TO  70 

PnCL4570 

t 

;o 

S!C-M  TL  = 160000. 

PPCL4580 

1' 

RHnMTL=0. 167 

POCLASOO 

}; 

F=15. P9F6 

R0CL4600 

GC  TP  7C 

RPCL4610 

!i 

60 

SIGmTL=2200CC. 

RnCL4620 

RHOMTL=0.29 

POCL4630 

1' 

F=28.«6E6 

PPCL4640 

1C 

TC  = 2.7?f*OTANK/F*<=0.A 

RPCL4650 

IF  ( IWTAMK  .IT.  0)  TC  = TCWi 

PnCL4660 

IF  ( IWTAMK  .GT.  C)  TC  = PTOX  ♦ 0.5  • DTANK  ♦ SAFAC  / SIGHTL 

RPrL4670 

IF( TC.LT.0.C3)  TC=0.C3 

RPCl 4680 

RFt-2=RFF*PFH 

RP CL  4690 

TFRMJ  = (REH  SOH  T(RFH2-1  . n /(REH-  S0RT(REH2  -l.)» 

RnCL4700 

TFRMK  =0.3925 /(RFH*  SOR T I RF H2- 1 . ) » 

PnCL4710 

SH=  PTAMK**2*I  0.7854  ♦ TER MK*AL OG I TERM J) ) 

RnCL4720 

WSH=SH*Tf  *RHnMTL 

PnCL4730 

i 

TERML=(  C.5*CTANK  -TC  -0.03)**2 

RPCL4740 

TFRMM=( 0.5*nTANK/RFH  - TC  -0.03»*PI *0. 667 

PnCL4750 

XLH=nTANK*0. 5/R  EH 

P0CL4760 

i 

VnLHr=TFPML*TERMM 

PPCL4770 

1 

RHnP=  (l.O  ♦ XMRTI/IXMRT/RHOnx  ♦ 1 . O/RHOF > / 1 728 . 

RPCL47P0 

•i 

r 4 

RTI  = 0.5  * DTANK  - TC  - 0.03 

RnCL4790 

! 

ATI  = PI  ♦ P T I**2 

RPCLABOO 

4 

XR  = XMRT  ♦ RHOF  / RHOnX 

PPCL48 10 

1 

i 

vniHr)2  = 2.  ♦ VOLHO 

RPCl  4R  20 

' 

RFOCIX  = PHZX  / 1728. 

9nCL4830 

1 

PhOF  = PH7F  / 1728. 

PPCL4840 

] 

IF  (TFPAf  .LT.l.)  GP  TO  4C00 

POCI.  4850 

; 

CMISS  = PTAMK 

PnCL4860 

i 

TMISS  = TC 

PPPLAOTO 

W«;kINP  = 0. 

PPC1.48B0 

1 

* 

rn  TP  4C10 

rpclaroo 

: 

4CC0 

CMi*;?  = rCASE 

PPCL49O0 

TMISS  = TSKINI 

RHCl  4OI0 

V^EKINP  = nCASF  * PI  * TSKINI  ♦ RHOMTL 

RPCL  4920 

AGIO 

IFI  IF  12  .rO  . 1)  JO  TP  50C0 

RT  CL  4930 

*_ 

wrOTG=  3.99F-6*  PTOX  *(  3500.0/(3  500.0  - PTOX))  * V<rCTE/PHPP 

RPCL 49 40 

DGL=  1.206  ♦ W0nTr,**C.4l4 

RPCL4950 

WREC=  1.5  * nGL**2 

RPCL4Q60 

WFV=  0.5 

RnCL4970 

W?V*  0.4  * PGL**  1. 5 

P.nCL4980 

WCV=  0.5 

PnCL4990 

WPV*  1.5  * CGL**1.6 

RPPL5000 

WGL»  l.C 

RPCL 50 10 

WPSMF=  MPEG  ♦ MFV  ♦ WSV  «•  2.0*WCV  ♦ 2.0*WRV  ♦ MGL 

RPCL5020 

PPFSSUP  I2ATI0N  SVSTFM  MISCELLANEOUS  EQUIPMENT  WEIGHT*** 

PnCL5030 

XLFS  = 0.5  * OMISS  / REH 

PPCL  5040 

AFS  = DMISS  * PI  * XLFS 

RnCL5050 

WFS  * AFS  * TMISS  * PHOMTL 

PPCL5060 

XI  AS  * XI  FS  ♦ OMISS  ♦ 5. 

PnCL5070 

AAS  = PI  * OMISS  * XLAS 

ROCL5O80 

HA  112 
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WAS  = AAS  * TMISS  * PHCMTL 

WSKINM  = pi  ♦ n»*ISS  ♦ TMISS  * XPL^IS  * PHOMTL 

vgSUM=  WPL  ♦WASURF-*-  WMISCL  WTC  ♦ WTP  ♦ WLV  ♦ WPSMF  ♦ WFS  ♦ WAS 
WSUM  = WSU^'  * WSKINM 
IF  ( ITAN'K  .EG.  21  Gn  TO  A020 

Frr,T=  3.9')F-6*PTnx  *(  3500. 0/(  3500. 0-PTOX))  * (l.O  ♦ l.lfi5E6 
I*  PHOMTL/  SIGMTL  ) 

Xir=(WVFH  - WSUM  - 3.0*WSH  -(2.0*VnLHD  - SH*TC  I* 

1 (0.«52*  PHOP  ♦ FGGT)  - ’.IAE-3*SH)/  (PI  * RTI**2* 

2 (0.952*  PHOP  ♦ FGGT)  +1. 57E-3*PI*(DTANK  - 2.0*TC) 

3 ♦ 1 .05*P I ♦TC*OTANK*PHnMTL  ) 

IF( XLC  .LE .0.0)  GO  TO  955 
Vf=  PTI**2  *P I * XLC 

VT=  VC  2.0*V(ILHn  -SH*Tr 

WSC=  1.05  ♦ PI  * TC  * OTANK  * RHOMTl  * XLC 

WP=  3.1AF-3*SH  ♦ 1. 57F- 3*(OTANK  -2. 0*TC) *P(*XLC 

WT4NK=  3.0*VFH  ♦ wsr  WR 

XI  T ANK  = Xl  r + 2.*  XL  H 

GP  TP  6000 

A02O  X|  ^^S  = 2.  * xlFS  ♦ PPT 
AMS  = PI  * PMISS  * XI  MS 
W‘‘S  = AMS  * TMISS  * RHPMTL 
WSOM  = WSUM  ♦ WMS 

foot  =3.°QF-6*PTr,)X*35  0C.  / (35  00.-  PTOX)*  ( I . * I . I I 8 F6*  PHpwTL /S  IGMTL  ) 
70  I = Cl 
7r2  = r2 
70  3 = : 3 

<■?  = .nr075*(  OTANK-2.*TC  ) ♦ l.05*PI*Tr*DTANK*PHnMTL  * WSKINP 
Cl  = ATI  * (.S52  * PHPPX  ♦ FGGT)  ♦ C2 

f2  = ATI  * (.952  * PHOF  ♦ FGGT)  ♦ C2 

C3  = WVFH- WSI;M-4.*  WSH-vnLHP2*  ( .952*(  PHPOX+PHnF)  *2.  *FGGT  ) -.003*Sh 
xi.ci  =(  c’  - ri/ATi  * vrLHn2  *(  xp-i.) ) /(ci*xr  ♦ C2) 

XLC'P  = ((XLCF*ATI  ♦ VPLHn2)*XR  - VGLHn2)  / ATI 

xLcnx  = XI  CP 

yC''  = ATI  * XI  cn 

VCF  = ATI  * XLCF 

VTP  = VCP  ♦ vnLH02 

VTF  = VCF  ♦ V3LHn2 

VT  = VTP  ♦ VTF 

WSCF  = 1.05  ♦ p 1 « TC  * DTANK  * RHDMTI 

WSCP  = WSPP  * XLCP 

WSCF  = WSCF  * XLCF 

WPF  = .00075*(0TANK  - 2.*TC)*pI 

WPO  = .0015  * SH  + WBF  • XLCn 

WPF  = .0015  ♦ SH  ♦ WRF  * XLCF 

WTP  = 2.  * WSH  ♦ WSCO  ♦ W3P 

WTF  = 2.  * WSH  WSPF  ♦ WRF 

WTANK  = with  ♦ WTF 

XLTP  = XI  cn  ♦ 2.  * Xl  H 

XLTF  = XLCF  ♦ 2.  * XLH 

XL  TANK  = XLTP  * XI  TF 

IF  ( IP5M  .CT.  0 ) WRITE  ( 5,  TANK3  ) 

Cl  = 7Cl 
C?  = 7C2 
C ■’  = 7 C ■> 


PPCL  50PO 
PPCL51 00 
PnCL5ll0 
PPCL5120 
RPCL5130 
POCLSIAO 
RnCL5150 
RPC,L5160 
PPCL5170 
FPCL  51 fiO 
PPCL5  190 
PnC.L  5200 
’’PCLS’IO 
PPCI  5220 
°PCL  5230 
sprL52A0 
'’PC.L5250 
PPCI.5260 
‘^PCL5270 
PPCL5220 
T'-'Cl  5290 
PPPL  5300 
PPCL53in 
PPrL5320 
PI'CL5330 
PPC.I  5 3 AO 
3 0 F.  5 3 5 0 
PPCL53eO 
'^PCL5  370 
oprcF  j 
PPCl  5 390 
PPCL  5A0P 
PtlC.L  "^AlO 
cnri 5A20 
fpCL5A'*0 
•^PCL  54A0 
PTL5/.  5 0 
P"CL  5 A 6 0 
t 1 CL  5 A 7 0 
cr)(-|  t, /,  PO 
■>  PCL5A90 
5 5 00 
P'irL55  10 

PPTL  55?0 
PPCl  5 5 00 
PPCl  5 5 AO 
pF'rL5S50 
PPCl  556jO 
PPCL5570 
PprL5SH0 
PPCL55P0 
PPC.I  5500 
PPCl  5510 
PPCL  5h20 
PPCL  56TO 
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CO  TO  6000 
CONT  INUF 

TANK  WFtCHT — LFNGTH  INPUT  OPTION*** 

XLTAPP  = XLVFH  - XLTHR  -OTURB  -11,0  - XOLPIS 

XLH=  OT4NK*0.‘j/RFH 

VOLHO  = 0.6667  * ATI  * ( XLH  - TC  - .03) 

VOLHP?  = ?.*vnLHn 
K0UNT=0 

WSK  INM  = P I*r!M  ISS*TM  ISS*xnL»'I  S*RHOMTL 
IF  I ITANK  .EQ.  1)  GO  TO  ERRS 

XLCnx=  M ( XL TAPP-A.*XLH)*ATI  + VCLHD2)*XR  - VOLHO?)  / I AT  I * ( 1 .♦X R ) ) 
XLCF  = XITAPP  - xicnx-  4.  * XLH 


50  10 


50  15 


P7F9 


8 8 89 
5020 


8890 

8891 


89 


FN  = 4. 

XIMS  = 2.  * XLH  D8T 
AMS  = PI  * OM I9S  * XLMS 
WMS  = AMS  * TMISS  * PHOMTL 

WSKIMM  = PI  * DMISS  * TMISS  * XOLMI S * RHOMTL 
XLC  = XLCnx*  XLCF 
VTfl  = VOLHO?  ♦ ATI  * XLCOX 
VTF  = VPI HD2  ♦ATI  * XLCF 
VT=VT0  ♦ VTF 
GO  TO  5020 

IF  ( ITANK  .EQ.  1)  GO  TO  6789 

XlCnx=  ( M XLTANK-«,  .*XLH)*ATI*VGLH0?)*XP  - VOLHO?)  / 
XLCF  = XL  tank  - XLCOX-  4.  * XLH 
GP  TP  5010 

XLr=  XL  TAPP  - ?.C*XLH 
FM  = 3. 

GO  TP  8889 

XLC=XLTANK-?.*XLH 

IFIXL C.LF.O.C)  GO  TO  998 

VT=  ?.0*VPLH0  ♦ RTI**?  * PI  * XLC  - SH*TC 

HGAS=  i.99E-6  * PTOX  * ( 3 500. C / ( 35 00 . 0 -PTnx))*VT 

vrT=  100. 0 ♦ WGAS 

CGT=  ( 6.0  * VGT/P I )**0.333 

IFIKPUMT.GT.O)  go  to  8890 

XLTANK=  XL  TAPP  - DOT 

GP  TP  8891 

XI  TANK=XI  TAPR-OGT 

IFIKOUKT.GT. 10)  GO  TP  998 

XITAPR  = XLC  ♦ 2.*XLH  ♦ OGT 

1F(  ITANK. FQ. 2)  XLTAPR=XLC  ♦ 4.*XLH  ♦ OGT 
IFI  IPSM  .GT  .0  ) WRITE(6,BUG) 

KPUNT=KCUNT  ♦ 1 

IFI  APS!  XLT  APR  - XL  TAP  P ) . G T . 0 . 5 )GP  TO  5015 

XLTANK=XL  TAPP-OGT 

rONTINUF 

WSF=  1.05  * RHPMTL  * TC  * SH 
WSC=  1.C5  * P 1 * TC  * OTANK  • RHOMTL  * XLC 
WP*  3.14F-3*SH  ♦ 1.57E-3*  (OTANK  -2,0*TC)  *PI  * 

WTANK  = HM  * WSH  ♦ WSC  ♦ W8 
XLFS=  XLH 

AFS  = PI  * CMISS  * XLFS 
WFS  = AFS  * TMISS  * RHOMTL 
XL  AS  = XL  FS  ♦ OM  ISS  ♦ 9, 


( ATI*(1.  + XR)  ) 


XLC 


RPCL5640 
RPCL5650 
PP  CL5660 
PO  CL5670 
RnCL5680 
PPCL5690 
PnCL5700 
OPCL  5710 
R0CL57?0 
RPCL  5730 
P'^CL5740 
RnCL5750 
RPCI.5760 
O0CL5770 
PPr.L5780 
PPCL5790 
opr.L5800 
P'^CLSPIO 
RPCL  5820 
RI1CL5830 
PPCL5840 
PPCL  5850 
POCL5R60 
RPC  L5870 
PPrL58e0 
RnCL5890 
FOCLSPOO 
R'^CL5910 
RPCt  5920 
P0CL5930 
RPCL  5940 
■^PCl.  5950 
RPCL  5960 
RPCI  5070 
OPCL  5930 
PnCL59O0 
RPCL6000 
PPCL 60  10 
RoCL6n20 
PPCL6080 
PPCL6040 
RPCI. 6050 
RnCL6060 
R^CL  6070 
'’PCL60R0 
RPCL 6090 
PPCL6  100 
RPCL61 10 
RnCL6120 
RnrL6  I 30 
RPCL6140 
RPCL6  150 
RPrL6160 
RPrL61  70 
RPCL 61 RO 
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AAS  = PI  * TMISS  ♦ <LA  S 
WAS  = AAS  * TMISS  * PHPMTL 
ACCO  Cf’NTINlJP 

wr4<:=  3.99F-6  ♦ VT  ♦ PTOX  ♦ ( 3 5 CO.  0 / ( 35  00  , O-PTOX  ) ) 

VGT=  100. n ♦ WGAS 

CGT  = ( 6.r<'VGT/P  I )**0.  333 

WGT=  1.18PP6  ♦ PHOMTL  * WGAS/SIGMTL 

WDOTG=  3.0CF-6  * PTOX  *(3500.0/(3  500.0  - PTCXH  *wnrT  E/ PHTP 
rGL=  1.236  * won TG**C.^1A 
WRFG=1.'*  rCL**2 
Krv=n  .5 

W5:v  = 0.4  * DGL**  1.5 
WCV=0.5 

WPV=  1.5*  TGL**  1 .6 
WGL  = l.C 

WPSMF=  WPEG  ♦ WFV  * WSV  ♦ 2.0*WCV  * 2.0*WPV  *■  WGL 

UPS=WGAS  ♦ WGT  ♦ WP5MF 

IF  ((TANK  .FO.  2)  GO  TO  5C5C 

VP=  C.952  * VT 

WP=  VP  * PHOP 

wrx=  XMRT*  WP/(XWPT  ♦ 1.) 

Gr  TP  5C55 

5050  wrx=  .952  * VTn  * PHPnx 
WF  = .95?  ♦ VTF  * PMPF 
WP  ■=  W(.'X+  WF 

5055  WPkPP  I = WTr  ♦ WTP  + Wl  V WTANK  WPS  WAS  ♦ WFS  ♦ WVtSCL 
WPPPP  I = WPPQPI  WSKIK'M  •*.  WMS 
WPPPPS=WP'’nP  I ♦ WP 
WVFH=WPL  ♦ WASURF  -f  WPRPPS 
IF(  IT  HP  .GO.  1)  GP  TP  5060 
TPW=FHr/WVFH 
GP  TO  5065 
5060  TPW=rHI/WVFH 

TrwFPR=TrwOFS-Tnw 

ir( AHS( TPWFPP  ).l  F.o.  1)  GP  TP  5065 
5075  FHI=TnwCFS*WVEH 
Fl.n=FH  I /TP  AT  IP 

I F(  (P SM .GT  .0  ) WP  ITF ( 6, TPWPR ) 

KfMT=KrMT  ♦ 1 
IF(KrNT.GT.lCI  GP  TO  998 
CO  TP  12 
506  5 GP\'TTMPF 

ir(  IPSH  .GT  .0  I WP ITE(6fTnWPR) 
wppvwn  = wp/wvEH 

PMr=  WP/  WPRPPS 

XIMF=  WPPPPt/WPPPPS 

TPT Imh=WP*ENG!SP 

Tpupnh=tpt (mh/fh  I 

TPTIMl=WP*XISPLP 

TPlfRNL  = TnT  rVL/FLP 

ir(  IPS^' .GT  .0  ) WP  ITF  (6,TAN'KW2) 

IF(  IPSH  .GT  .0  ) WP  (TE  (6,TANKWl) 

IF(  IPSM.GT.C)  WR  ITF  (6,TANK3» 

c***  TFPUST  FHAMRFR  AND  TUPPPPUMP  CENTFR  OF  GRAVITY*** 

IF  ( ITANK  .FO.  ?)  GP  TP  5031 


T3  OL6in0 
PPGLAPOO 
RPCL6210 
PPGL6?20 
PPCL6230 
PPGI  62A0 
PnrL6250 
RPCl  6260 
PPGl 6270 
“0016280 
port  6’QO 

RPCL  6P0n 
ppri  6310 
RPOt.  6 320 
P^r.1.6330 
pnr(  6 390 
pnrL63Po 

pf'0G6360 
POCl  6370 
PPGI 63PO 
port 5 390 
Pf’GI  6900 
P0CL6910 
“PPLt9?0 
PnGL69^n 
PPGL  6990 
PnGL6951 
P''PL6-<960 
PPGI  69  70 
FPFL69P0 
Fpn  6990 
P'^GL  6,6  00 
PPGI  6510 
pnri  6S?o 
yPfl 6530 
'’0016690 
‘'PFL6<66'' 
'’F'rL656  7 
PPGL  6570 
PPri 65P0 
‘”^'■16503 
“'^016600 
“0016610 
'’''OL6620 
“POt 

'’3016650 
“301.6660 
PPGI.6670 
'’3rL66P0 
PPPL6640 
“PGt  6 700 
PPrL6710 
“301  6720 
PPGI 6730 


) 
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CPTX  = 0. 

GO  TP  503? 

1 CPTX  = PPT 

2 XlPS=nCT  *■  XL  TANK  ♦ DTURB  ♦ XLTHR  ♦ 11.  ♦ OBTX 
XI  PS  = XI  PS  ♦ XOLM  IS 

PTLO  = XLTHP  ♦ XLH  *■  DTURB  ♦ 9, 

IFI  XLTP.GT  .Df.ASF)  XLPS=nGT  ♦ XLTANK  ♦ XLTHR  ♦ XLTP  ♦ 11. 

I ♦ XOLMIS  -*•  DPTX 

XTnTAL  = XLP ay  1 ♦ XLPS 
RT=0.5*CTHRT 

XIN1  = DTHPT  * P8FLL  * ( SOP  T (F  P S I )- 1 . J / 53 . 6 
TFX 1T=DFT 
XIN?=XINT  - XLNl 

2PAPM2  = XLPS  -{ XLN2/3.0)*( ( 3.0140*RT  ♦ DE XI TJ / ( I .q07A*RT  ♦DEXIT) 
CFP1=  SOPTI FPSl )*DTHRT 

ZPARN1=  XLPS  - XLN2  -(XLNl/3. )♦( ( 3.81A8*RT  ♦ DEP  I ) / ( I .90 74 

1*RT  ♦ DFP  1 n 

ZPAPr?=  XLPS-  XLN2  - XLNl  - XLC2T4<  l.O  - 0.3333*  (3.374RT  ♦ OCT) 
I /(  l.685*BT  ♦ DCT)  I 

7PAPri=  XLPS  - XLN2  - XLNl  - XLC2T  - 0.5*XLC1T 
ZPAPJ=  OGT  ♦ XLTANK  DTURB  ♦ XLJT*0.5  ♦ 11. 

UMTY  = ZBAPCl  * WCIT 

ZPAPTC  = (Z0ARN2*WN2T  ♦ ZBARN1*WN1T  ♦ ZPARC2*WC2T  ♦ UMTY 
1 ♦ Z BAPJ*W INJ )/HTC 
ZPAPTP=  0.5*DTUPP  ♦ XLTANK  ♦ DGT  ♦ 7. 


PnCL4740 

PnCL6750 

RnCL67#iO 

PnCL6770 

RnrL6780 

PPCLATOO 

PnrLfeBOO 

PnCLSBlO 

RnCL60?O 
PnCL6B30 
PnCL6840 
PnCL605O 
RnCL60ftO 
»PnCL6870 
pncL<)0  0o 
RPGL  6R90 
PnrL6900 
prri  60 10 
PPCL6920 
pn  rL6q30 
pnCL6043 
PnCL6QS0 
Rr!CL696n 
pnri  6070 
‘JnCL69R0 


WF=  wp-  wnx 

IF  I ITANK  .FO.  2)  GO  TO  5C3C 

xLcnx=(  wnx/(o.o5*RHnnx)  - 2.*volhd)/(pi*rti**2) 

xLTnx=  xLcnx  ♦ xlh 
XITF=  XLTANK  - XLTOX 
GO  TO  5C35 

5020  XLTF  = XLGF  * 2.  * XLH 

XI  TOX  = XLCOX  ♦ 2.  * XLH 
5C25  ZPAPC)S=  0.5*XLTANK  tOGT  ♦ 2. 

ZPAPMH=  0.25*nTANK/RFH  - 0.25*TC  ♦ XL  TOX  ♦ DGT  ♦ 2. 

WTnS=WTANK-WSF 

ZPAPT=(WTnS*ZBAPnS  ♦ WSH*  ZBARMH) /MTANK 

ZRARPS=  0.5*nGT 

ZRAPOX=  0.5*XLTnx  + DGT  ♦ 2. 

ZPARF  = 0.5*XLTF  ♦ 0.?5*DTANK/REH  ♦ XLTOX  ♦ OGT  ♦ 2 . ■*•  PPTX 
wrxTNK=1.05*PI*0TANK*RHnMTL*XLr,nX*TC  ♦ 2. •WSH 
WFTANK=WTANK-WnxTNK 

IF  ( IPSM  .GT.  0 ) WRITE  ( 6,  TCTPCG  ) 

ZinM  = r)CT  ♦ 2.  ♦ XI  TOX  ♦ 0.5*XLTF 
7LnL=XLPS  - XLTHR  -4.0  - OTURB 
ZLFL=  ZLOL 

ZLnH=  XLPS  - 0, 5*(XLTHR-6.) 

ZLFH=X1  PS  -XLTHR  -4. 

Zl OGG  = ZLFH 

ZLFGG^ZLOGG 

7LM=ZL0GG 


7VFn=  XLPS  - 

XLTHP  - 

DTURB  -2. 

7VFF=ZVFn 

zvin=xLPS  - 

XLTHR  - 

XLTURB  -8. 

zviFxzvin 

PnrL6990 

POCL 

7000 

pnoL 

7010 

POCL 

7020 

por.i 

7030 

prn 

7040 

pnci 

7050 

RnCL 

7060 

POOL 

7070 

POCL 

7000 

POCL 

700  0 

pnr.L 

71(^0 

ROfL 

7110 

pori 

7120 

POGL 

7130 

PO  TL 

7100 

ROCL 

7150 

RHCL 

7160 

onfL 

7170 

ROCLT  100 

Ror.L 

7 mo 

POCL 

7200 

ROCL 

7210 

POCL 

7220 

POCL 

7230 

ROCL 

7240 

Rori 

7250 

POOL 

7260 

POGL 

7270 

POCI 

7200 
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7VT0=Xl  PS  - XLTHt> 

?VTr=  /VT'’ 

ZVO=XLPS  - XLTMw 
7VF=7 VO 

/VCGO  = y|  PS  - XLThp  -2. 

7VGr.r»  7vr,GP 

7PAfiMS  = PGT  ♦ 2.  ♦ XLT4NK  ♦ ,5  * XOLMIS 

»MOMr*7P4PTC*WTr  ♦ 7BABTP*WTP  ♦ ZBA«T*WTANK  ♦ ZPABFS*WPS 

1 ♦ 7LPO*V*LP»'  ♦ ZLCL^KLCL  ♦ ZLFL*WLFL  ♦ 7LCH*WLOH  ♦ 71FH*WLFH 

2 ♦ 7iorr*wiprr,  ♦ zifccpwlfcg  *■  7lm*wlp  ♦ zvFO*wvFr:  ♦ 

3 7VFFPWVFF  ♦ 7VI0***VIC  ZV1F*V<V1F  ♦ 7VTn*WVTn  ♦ ZVTPPWVTP 
A ♦ 7vn*wvn  ♦ 7VFPWVF  ♦ zvr.on^hVGGP  ♦ zvggfpwvgof 

5 ♦ Z PAF  V<;*WM  I SCI  ♦ ZRARMS  • USKfNM 

xMQVL v=x«nMF-(ZPAP Tr*mTr  ♦ zbartp*wtp  ♦ zbart*wtanx  ♦ zpapps*wpsi 

XTGL  V=y  Vf'''LV/WL  V 
xrrr  = x^*r‘<F/wPRnp  i 

xrGr=(XMOMF  ♦ 7PAPf)x*wn»  ♦ ZBAPF*WF ) /WPROPS 


PnCL  7?Q0 
pnCL  7 ?P0 
PnCL7310 
RnrL732n 
Rr-CL  7330 
Pnr.L  7 340 
RPCl  ■'3F0 
onCL7360 
R"^rL7370 
port  73P0 
pofc  73U0 

P^Cl  7400 

Pf’CL  74  10 
P0rL7420 
P^rL74X0 
PnrL7440 
port  74‘;o 


X XL  r s * XL  p S 

IF  ( IPSM  .FO.  0 ) GC  TP  SS9 

IFI  IPS*' .r.T  .0  ) WP  I TF  (6,VLC0) 

CALI  PAGF 
WPITF ( t,6l  ir» 

6in  FnRM/jT( //lOX,  JIHL  raUFO  RCCKFT  OFSrr.N  PARAMFTFP.S  I 
IF!  IS  17  .LF.  I ) r,n  TO  6CCI 

5RC0  FfRV 7T(  /9X , 14HTAKK  0 I A MF TF P = ,F S, 2 »4H  I N. ,4 X , 1 9HW F I GHT 
i,3x, isfvfhiclf  weights, f 10.3, 4h  lb.  > 

GO  TO  fC2? 
ftOCl  rONTTNUF 

5BC0  FORMATi  /OX,  I AHTANK  0 I AMF TFR *, F5. 2 ,4H  I N.  ,4X , I 9H L ENGTH 
I,  3X,  151  VFHIClE  I FA'GTH  = ,F  10.  3,4H  IN.  ) 

6C22  tri  ITHP  .NF  .0  I GO  TO  (S05C 

6CfO  form  aT(  /OX,  70F0FS  IGN  THRUST  TO  WEIGHT  R A TI  0=  , F6 . 2 , 5 X , 
1ATI0=, Ff.2| 


port  7460 
POCI  7470 
F-’FL  7460 
FrCL74O0 
P'^ri  7SO0 
HPCL  7510 
pnri  7520 
lAPUT  PPT  1 PNi'orL  7530 
POCI  7540 
Pl'Cl  7550 
POri  7560 
INPUT  PPT IPNPPCL 7570 
ourL7*;HO 
POCL  7 590 
15HTHRPTTIF  PPnr.i  7600 
onr.L  76  I 0 


GP  TO  6CC2 

6050  WPITFI  6,609C )F0FS, T 1W 

60S0  FPR^ATI /9X,  lAHDFS IGH  THR U S Ts , F I 0. 2 , 4H  L PF ,4 X , 2 3HTH PUS T T'  VriFHT 
lAT IP=,F6.7) 

6CC2  WP ITr(6 ,6100  I 

6100  FORMAT!  /?X,  5 IHCP^'PnNFf'T  DIA-IN.  LT-IM.  WT-Lfl.  CG  I PC- I N 

WOITF|6,62C0)nCT,XLC 1T,WC  IT,ZRARCI 
62C0  FpoMATI /3X, ICFThP  CYL  . ,F6 , 2 , 4 X ,F 6 . 2 , 3 X ,F 8. 2 , 5 X , F6 . 2 ) 

WPITFI  6,  6 300  me  T,  XLTHP  ,WTC,ZBARTC 
6200  FPR^ATI/  <.X,9HTH»L;STER  ,F  6. 2 ,4  X ,F  6.  2 , 3 X ,F  R.  2 , 5X  , F6 . 2 > 
WPITFI6,6400)OTURP,Xl TP , WTP  , ZB AR TP 
64C0  FPPMa  T(  /4X,ohtupRP-PP  ,F  6 .2 ,4  X ,F  6 . 2,  3X,  F 8.  2 , 5 X , F6 . 2 I 


OorL  76?C 
PHOL  76  00 
0^  ir(  7640 
'•pri  76^0 
poet  767  ^ 
(PPFI 
Pnci 76 PO 
prn  7690 
‘"’FL  7 700 
POCL7710 
port  7720 
R^’CI  7 73  0 


WPI TF( 6,6500 )WL  V, XCGLV 

65CO  FTRMATI /4X,9HPLUMP  ING  , 19X,F8. 2, 5X,F6. 2 ) 

WR ITC(6,66CC)nTANK, XL  T ANK , WTANK , ZRAR T 
66C0  FORN ATI /4X, FHTANKAGF  , F 6 . 2 , 4 X ,F 6. 2 , 3X , F 8. 2 , 5 X, F 6 . 2 ) 
WPITCI6,670C  lOGT, POT, WPS, ZB ARPS 
67r0  FORM  ATI /4X,ohPR FSS  SY  ,F 6. 2 , 4X ,F 6. 2 , 3 X , F 8. 2 , 5 X , F6 . 2 » 
WOITFI 6,68CC lOTANK, XL  TO  X , WDXTNK , ZB ARCX 
6RC0  FfRHATI  /4X,0Hf)X  TANK  ,F  6 . 2 , 4X  ,F  6.  2 , 3 X , F 8.  2 , 5 X , F6  . 2 » 
WP|TFI6,6'’0r)0TAA'K,XLTF,  WF  TANK  ,Z  BARF 
6900  FrRMATI /4X, FHFuFL  TA NK , F 6 . 2 ,4 X ,F 6. 2 , 3X , F 8. 2 , 5 X ,F6 . 2 I 


'’OCL7  7 40 
ROFLTTSO 
PorL7760 
ROCL7770 
POOL  7780 
POrL7790 
POr.L  7RO0 
'’Of.L78lO 
POCl 7H20 
POr.I  78  30 
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WP  ITF(6,700C)nTANK,  XL  TP  )i  , WOX  , ZBARCX 
I FPPM AT( /AX,9H0X IDIZFP  ,F 6. 2 1 AX ,F 6. 2 ,3 X , F 8. 2 t5 X «F6 . 2 ) 
WPITF(6,7lOC)nTANK,XLTF,WF,ZBARF 
I FORM AT( /AX, 9HFUEL  ,F6. 2 t AX  ,F 6. 2 ,3X ,F 8. 2 t 5X , F6 . 2 ) 

WPITF(6,720C)  nCASF, XPLM!S,WMI SCL.ZBARMS 
I FrPMATl /AX,cmm! SC  ,F6.2,F10.2#2FI1.2) 

WP  fTC(6,7300  )nCASF,XLPSf WPROPl fXCGE 
I FOPMAK /AX.ofFNGINE  tF  6.  2 1 AX  ,F  6.  2 t 3X  ,F8. 2 »5  X »F6 . 2 ) 

WR |TF(6,7AnO )DCA  SF , XTPTA L ,WVEH 
I FPPM  AT( /<,X,9FVFMir  LF  ,F  6. 2 t AX  ,F  6.  2 1 3X  , F 8.2  ) 

WPITF<6,760C) 

I  FPRM AT( //ACX,36HL lOUin  RCCKET  PERFORMANCE  PAPAMFTE FS  ) 

WP  ITF<  6,  7700 

I FORMAT( /3X,89HMAX  THP  MIN  THR  ISPMAX  ISPMIN  FCMAX  PCMfi 
I ITPTMAX  ITPTMIN  TRMAX  TBMIN  ) 

WP  ITFI  6,780OFHI  ,FLn,FNGl  SP,XI  SPLOt  PCMAMB,  PCHLOtTOT  IMH.TPT  I ml, 
ITPlJPNH,  TPUPNL 

I FrRMAT(?X,FP.?,2X,FS.2,3X,F6.2,3X,F6.2.2X,F7.2,lX,F7.2,lX,Fl0.2, 

I 2XF10.2,  2X,F6.?,  2X,Fe.2  ) 

CP  TO  999 
KFA  II  =l 
WP ITFI C, 7500  ) 

I FCKMATI //A0X,A2HCYLINnFR  LENGTH  EQUAL  TP  OR  LESS  THAN  ZERO  ) 

I CONTINUE 
WFX=WF 
WPX=WP 
WTPX=WTP 
M FTAl  X = MrTAL 
FMAX  = FH  I 

WT=WPXTNK  ♦ WFTANK 
WP  = WPX 

WSC  = 3.  ♦ WDPTGC- 

WSFCT  = WSKINP  ♦ XLTANK 

FHS=FHI 

PHPPX  = PH7X 

RHPF  = PHZF 

RFTIIPN 

FNP 


RPCLTBAO 
PPCL7850 
RPCL  7860 
RnCL7870 
RPrL7880 
RnCL7R90 
pnr,L790o 
onCL79lO 
ROCL  7920 
RCCL7930 
PPCL  7PA0 
RnCL7950 
RPCL7960 
RnCL7970 
PnCL7990 
POCl  7990 
POCLPOOO 
RnCLBO  10 
RPCL8020 
PPCLP030 
PPCLBOAO 
Pi^CI  8050 
RrCL8060 
RPCL  «070 
R^CLROflO 
OPCLSOPO 
OPFLAIPP 
R^CLHllO 
PnCI  8120 
PPCL 8 130 
P^CLS lAO 
RPCI  8150 
PPCLO 160 
P^n  8170 
RPCL8180 
p^r.L  0190 
POCLRPno 
R'iClS’IO 


SURPPUT  INF  EXRnn  (APF2,PL,MPtMPW:,LT,SGWT,KFAILI 

CPMPUTF  EXTERNAL  POPSTFRS  FOR  LIO/SPL/TJ WT 

PFAL  NnZWTX,MPX 
COMMON  /COMVLS/  CPMISl) 

EQUIVALENCE  ( COM ( 16  ) , WMC ) f 

1 (COM!  17),V8I  )• 

2 (CPM( 18) ,nTHRT  ) , 

3 (COM!  19),RN0Zn, 

A (CPM( 2CI,N0ZWTX  ), 

5 (rnM(2n,MPX  ), 

6 (CPMI 22),CASFMX), 

7 (CPM( 32  ),WM  ) 

COMMON  /PFSYFT/  FACTOR,  RFSlAtlA) 


OPTION 


EX  800010 
FX  800020 
fX  8000  30 
FX8OnOA0 
EX  800050 
EX  800060 
FX  8OO070 
EX  800080 
FX  800090 
FX800 100 
FX BOO  110 
FX  800  120 
FX 800130 
FX  8001  AO 
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CnMMTN  /PRINTR/  1P«;M,  IPnL6(6)  F'((n0l50 

FCinv  AL  F'^PF  ( IP5M,  IPRINP,  NDUT  » FXRn0160 

CrwMnw  /rnVPER/  RrOWP,BISPVtBTHVAC,BEXlT,SUSWP,SEXIT,BCANTA,  r*Bnni70 

I  WTIMIT,0RnPST,0R0PEBfKIZt7AAUI  .FXTRA(57)  FXRnOlRO 

rr^MON  /MATTYP/  IPO)  Fxnnooo 

rP“MPN/ ARR AY/  F.PCfPAP.CFfCFBf ISPfTB  FX flPOZOO 

CCMMON  /COBOL/  WAFO  (78)  FXROOZIO 

rpMMPN  /r.OPEPT/  IFIPST,JRJ,J  rxPPOZZD 

CPMWPN  /INSFPT/  WG,WA,WTB,WC,WTI  ,OFLA,PEtXl,XC,Xl  ,WRN,EP<;Ct  PXRP0230 

1 A6A 3,A5A3f Yl  ,RC f AT, XRN» Tl EC  ,RE  ,RECHK, FI ,CFVA,  TTH,rxB002A0 

1 THFr,irG,X3,Zl,XA  ,l.N,TAH,NOZViT,l  SPY  FXO00250 

PFAl  I';P  ,N  1,N  2,N3,  N<,,  N9,N10,NI  I ,N13  ♦ N?  I , N22  , N2  3FX  PPn2(SO 

1 ,^2^,  N30,N33,N3<»,N35,N36  ,N37  ,N38  ,NJ9,N^n,  cv  800270 

2 N77,N7fl,N79,N80,N8l,N82,N83,N84,Nfl5,Nll4,Nll5,NI17,  FXROOPRO 

3 N1  19,M  120,M21,LM  ,L  T,  LC  YL  , MPFH  ,MP4H  , MPCY  L , ^P,  YP A,  MF^i;  Tp  , rx  800290 


4 INSUL ,LINFP  tlBOSRfNROSS.ML.IGNI TR ,MFmstC , HF PST  A,  INSIH  A, 

5 INSRRG.NOZWT,  PE,  "R,  MOC , MMF , MPMF , I TOT , IPFWX.ISPV 

cpmmpn  /mozmp/  rzi(2e)  ,/Nr)z,xiNnz 
FOUI  VAL  ENCE 

KWAPPI  l),n  ),(WARO(  3),FJ  ),(WARD(  4), PA  ), 

2(WApr){  S),FI  ),(WAPn(  6),P8FLL  ),(WAPO(  7), PHI  ), 

3(WAPn(  8), GAM  ),(wARn(  g),RHQP  ) , ( WARD ( 1 1 ) ,CSTAR  ), 

4(WAF  0(  12),PCM  ),  ( WARD!  13)  ,FSYLn  ) , ( WA  RD  ( 14 ) ,F  SUL  T ), 

•SIWAPni  15),  TMIN  ) , (WARP  I 16)  , TGASEF)  , ( WAR0(17)  ,RFXX  ), 

6(WAPp(  18),PASFM  ), (WARO ( 19) ,nM  ) , (WARD (20 ) , FTAX  ), 

7(WAPr(  ?1),  n(  FS  ),  (WARD!  23)  ,Nl  ) , ( WARO  ( 24  ) ,N2  ), 

8(WAPn( 2F),N3  ) , (WARD( 26) ,N4  ) , ( WARO ( 2 7 ) ,N1 1 4 ), 

q(WARP(  ?F)  ,N9  ),(k^ARn(29)  ,N10  ) , ( W A RO  ( 3 0 ) , N 1 I ), 

X(WAEn( 3 1 ), N1 3 ), (WARn(32) , VRFH  ) , ( W AP 0 ( 3 3 ) , M34  ) 

fCIUI  VAL  E^'CF 

l(WAFn(34),N35  ) , ( WARD  ( 35)  ,N36  ) , ( WARD  ( 36  ) ,AJ3  7 ), 

2(WAPP(  3 7),‘J3C  ),  ( WARD  ( 38)  ,N39  ) , ( WARD  ( 39  ) , N40  ), 

3(WARD(4C),GmaX  ),  ( WARn(4l)  ,N22  ) , ( W ARO  (42  ) , N2  3 ), 

A(wAPr)(  A3  ),N24  ) , ( WARO  ( 44  ) ,N33  ) , ( WA  RO  (45 ) ,N1 1 5 ), 

5(WARP(46>,N117  ) , (WAR0(47) ,FMPAH  ) , (W ARO (48 ) , N30  ), 

f(WAPn(  4<;I,N21  ),  (WAP0(  50)  ,N77  ) , (ward  (51 ) ,N7B  ), 

7(WAPn( 52) ,N79  ) , ( WARO ( 53) ,NeO  ) , ( WARD (54 ) ,NR I ), 

P(WARr( 65)iN82  ) , (WARD( 56) ,N83  ) , ( WAP D ( 5 7 ) ,Ne4  ), 

9(KAPn(  5E)  ,N85  ) , ( WARD  ( 59)  ,Nl  21  ) , ( WAPO(  61  ) , FP  I ), 

X(WAPn(  62),PSL'fl  ),  (WARD(63),RHC  ) 


,(WARD(  4) ,PA 
, (WAPD(  7), PH  I 
, (WAPDdl  ) ,CSTAR 
, (WARD (14) ,FSULT 
,(WAR0(17) ,RFXX 
, (WARD(20) ,FTAX 
, (WAPD(24) ,N2 
, (WARO(27) ,N114 
, (WARD(30) ,N1 I 
, (WAP0(33) ,M34 

, ( WAP0(36)  ,N37 
, ( WAR0(39) ,N40 
, (WARD(42 ) ,N23 
, (WARD(45) ,N115 
, (WAR0(4a) ,N30 
, (WARD (51 ) ,N7B 
,(WARD(54),N8I 
, ( WAPD(57) ,Ne4 
, (WAP0(6l ) ,FP I 


X(WAPn(  62),PSL'fl  ),  (WARD(63),RHC  ) 
namelist  /rtAD^UN/  A5A3,A6A3,  MOC,  MF , MPE YL , “P AH , mpph , ( s PV , 
lNf'ZWT,F  IMOC.F  IMP,DFLVR,  SDVI  , LC  YL  , AT  , LOOPl  .IPOP? 

namelist  /bugbog/  factor, a, b,  ward 

FORMAT  ( //lOXlTHPPPBLEM  STOP  NO.  I2,15H  HAS  PCCUPPEP.  ) 

4FAT  = WARD!  10 ) 

TTH=  WAPPt 22>*.C1745329 

PI  ^ 3.141593 
TIFC  = 0. 

IFX  = I 
J = -1 
IFIRST  = I 

PFTA  = PFXX  ♦ .01745329 
ML  = PL /r  ACTOR 
FXTWT  = 0. 


FXR00300 
FX  800310 
FX  PO0320 
FX  8P0  330 
rx  BOO  340 
PX  000350 
FX  ni’T360 
rx  8.10  3 70 
rx  PO03HO 
rx  800300 
pv  PI10401 
EX  8004  10 
F X n no  <1  20 
EX  8n0430 
rx  P004/,0 
EX  onn^fSO 

FX  800^60 
rx  8004  70 
rx  nnn/,80 
EX  800490 
FX  8O0S0O 
rx  P00510 
rx  '^103  2 0 
rx 800 5 30 
rx  n'^nsAO 
rx  8nn  S 50 
rx  I1'^ns63 
FX  POOS  70 
rx  nonspo 
rx  POOSQO 
px  Rnosoo 
FX  8r»O610 
FX8'^0620 
EX  8006  30 

FX  8OOh/,0 

rx  80  0650 

PX  800660 
EX  800670 
rx  P00680 
rXP 00600 
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TP  = 5. 

FX  POOTOO 

IF{  iriPST.LT.il  cr  TP  66C 

FXP00710 

PSUP  = l.O 

EV  BOO 720 

IF  lIPPIMP  .LE.  1 ) CP  TP  660 

FXPn0730 

IFl  IFX.OT.OIWRI TF(6,3Cll 

FX  POO  760 

1C1 

FORMAT!  17H  EXTERNAL  BOOSTER ) 

EX Bnn750 

WPITF(6,652I  APF2,MLtA6Z3tA5Z3  fPA 

FXBn0760 

652 

FORMAT! //35H  VALUES  OF  BOOST  CALL  LIST 

/ 3X, 

FX  000770 

1 61H  OELTA  V PAYLOAD 

A6A3 

A5A3 

FX  B007fl0 

IP  AMR 

FX  Bn0790 

2 t 3X,  2F l0.3,3Fl0.5tFl0.2/) 

EXBOOBOO 

IF!J)  653t65A,653 

EXBOOB  10 

653 

WRITE  !6,655) 

FX  POOR 20 

655 

FORMAT!  10X23H  THRUST  TO  WEIGHT  INPUT  /) 

EX  P0O830 

CO  TO  660 

FX  P00860 

65A 

WP  ITT  ! 6,657  I 

FX  Bn0B50 

657 

FO^MA  T!  lOX  12H  THRUST  INPUT  /) 

EX  P3  0860 

660 

IN  0=0 

FX  PO0870 

PC  = WARP! 2) 

EX  800880 

CFLVP  = APF2 

FX  Rn0890 

PAP  = PA 

EX  POO^OO 

1 FI  PAP  .IF.  0 I PAP  = .0001 

FX  pn0910 

6 C C 1 

PI  = 3.  U1553 

FX  800920 

ISP  = rSTAR*l.5A22.l7<i 

fy  PO0930 

WRATL  =nFLVR/ISP  /32.17A 

FX 800960 

WRAT=  2.7ie2e**WRATL 

8X800950 

MP=!WRAT*Ml-ML I/I l.2-.2*WRATI 

EX  P00<'60 

IF  ! J 1 2200,2202,2200 

rx  000970 

i 22C2 

F = FI 

FX  800980 

CO  TO  2201 

FX  800990 

2200 

F = ! 1.2  * MP+ml l*Pl 

FX  801000 

. 22f!l 

TP  = ^1p*ISP/F 

FX8010  10 

^ 30 

IF  ( oaM  -1.01  iC,  30,  35 

FX  PO 1020 

INO  = 2 

EX “01030 

IF  ! IPPINP  .GT.  0 1 WRITE  I 6,00021  GAM 

FX  801060 

0002 

F0PMATIA2H  GAMMA  IFSS  THAN  1 NOT  PERMITTED. 

GAMMA  = ,E16 

.61 

FX  801050 

GO  TO  22 

FX  801060 

r 

test  to  OFTFPMINF  if  F is  input  CP  TO 

BE 

FOUNT  RY 

ITcpAT  ICN 

rXR01070 

35 

IF  !J|  100, 55, IOC 

FX8010P0 

55 

F = r 1 

rx  801000 

k' 

GO  TO  103 

FX  “01  mo 

ICO 

FIMO  = FI 

rx  po  1 1 m 

1C3 

inOP2  = 1 

FX  “O1120 

KKK  =0 

FX“01130 

ICG  = 0 

FX801 160 

FI  AM  PC*  .5*1  1.  *00  5!  PHI  1 1 

FX  prill  50 

TKFXIT  * .25 

FX 801 160 

Cl  =nM-2.*  TKFXIT 

FX  “01170 

EPSC  * N23 

FX  HO  11 80 

AMAX  =! n /2. I**2*P I 

FX8ni 190 

PP=  PC*FSYLD 

FX8O1200 

MCASF=  IF  IX! CASFM+.ll 

EXPO  12  10 

CALL  MATLSIMCASE  ,TCASFF  ,R  HO  ,F  TLi,  FT  Y , INOI 

FX8ni220 

I F!  INC  .NE  . 0 1 GO  TO  135 

FX  “01230 

TCYLU  =FSULT*PC  *0  /!FTU*2.I 

EX “01260 
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TfYlV  =FSVLr*Pr,  *r  /|FTY*2.) 

TCYLT  =AM/VYl  ( TCYLUt  TCYLY) 

TC  * AMAY 1 ( TCYLT, TWIN  ) 

AsPI*(  n/?.  - TC  - Nil?  ) **2 
TAHU  =FSULT*PC  ♦A' 2 3*0 /F  TU/4. 

TAHY  *FSYLr*PC  2J*D/FTY/4. 

TAHT  =AM AX H TAHL, TAHY J 
TAH  =Amax1( TAHT, THIN  I 
IF  (M2.F0.  Ni3)  GC  TO  136 
TFHU  =FSULT*PC  *N2  *n/FTU/4. 

TFHY  =FSYLP*0C  ♦A  2 ♦O/FTY/A. 

TFHT  =AMAXI( TFHL,TrHY) 

TPH  =AMAX1(  TFHT,TMIN  ) 

cr  Tfi  IA2 

136  TFH  = TAH 
1A2  I'lOPl  = I 
1A27  CONTINl'F 

PFPC  = PA/PC 

EPS=(  (r.AM  + l.)/2.  »**n./(GAM-l.))*»PFPC  I**(l./GAMI  ♦ 

I «;OKT  ( ((  AH+l.)/(rAH-l.I*(  1.  - (PEPC  )♦♦{  (GAH-l.l/GAH)  ) » 

FPI  = l./FPS 

CFV  = FIA'^no  ♦ SOPTI  2.*GAM**2/(GAM-U)*(2./ (GAM^l.  » )♦♦(  IGAM+l.  ) / 
l(CAM-l.))  ♦ I l.-PrPC**((GAM-l.»/GAMI  ))  ♦PEPC*FPI 
JK  = 0 
R3  = C/2.0 

IF  I FP I .L  T.  2.5 ) GO  TO  30fi 

CF  xlCFV  -PA/PC*FP  I )*FJ 

EPOLD  = FPI 

1SP=  CSTAP*CF/32. 1 7A 

AT  = F/Pf/CF 

AFX  IT  = FP  I + aT 

RF  = SORT  I AEXIT/P I) 

RT  = SOFT  (AT/Pn*(l.  - 0.6*(1./C0S(PH1  ) -1.)) 

EXLT  =(RF-RT»/TAN(PHI I 
CFLP  = FXLT*  TAN(BFTA) 

REF  = (RE*nELR  )*CnS(BETA) 

AFFF  =RFr**2*PI 

IFIAEFF  .GT.  AMAX*1.001)  GO  TO  3C2 
312  NPOSS  = A77  * PP  * n*N23*AT 
sthr?;l=  N7n  * pp  * at**i.5 

xrONF  * A179  • pp  ♦ AT**l  .5*  1FPI-2.5I/  SINIPHI) 

INSPRG=  NPO  ♦ (FPIY-AT)  ♦♦.S 
THININ=  N8l  * AT  **.9 
<;UM  = PC*»NB3*Te**N8A 

XINSUL  = N82*AT*1FPI-2.5»/SINIPHI  |•FSYLn**NR3•SUM 
I ♦(  r5TAR/32.174»**N85 

AOZWT  = NROSS  ♦ STHR<:l  XCONF  ♦ INSRRG  THININ  ♦ X1N5UL 
/NFRNG  * 0. 

PTH*  50RT ( AT/P  1) 

CN  * SORT!  AT*N2A/PT ) 

IF(  CN  .GF  . R3|  ON  = . e*R3 
FY  » ON  - SOR  TI AT/P  1 ) 

FYS  *:  FY**2 

IF  (FYS  .GT.  AT)  FYS  = AT  - l.O 


FX  001290 
‘=X  001260 
EXnoi270 
FX "01 200 
FX  001281 
FX  801290 
FX  801300 
Fxnnnio 
FXOO1320 
rx  on  I 330 
FXOOl  340 
FX 001350 
8X801360 
FX  801  3 70 
FX801 380 
FX  80  1 390 
FX  801400 
FX  001410 
FX  80142  0 
FX«o1430 
rxmi4/,o 
EX  0-114,50 
FX  00  I AGO 
FX801470 
FX  orii  4,80 
FYP0i4,qr) 
FX  00 1500 

FX  o'^is  10 

FX HO  1523 
FX  8015  30 
FX  PPl 540 
FX  oni 550 
FXPOISGO 
FX0O1570 
FX  801 5P0 
EX  Pni5F0 
FX  801500 
FX  0 01610 
FX  801520 
FX  001530 
FX  on  1^4,0 

FX  8ni 650 
FX  801660 
FX  PHI  5 70 
FX  801 6R0 
FX  80  I6F1O 
FX 801 700 
rx80i7io 
EX8O1720 
FX  801730 
FX  Pni 740 
FX  801  750 
FX801 760 
FX  801770 
FX  801780 


% 


i 
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T 


XI  * SOPT(AT-FYS) 

EX POITOO 

Z1  * SORT((R3**2  -nN**2) /N23**2) 

EXB0L800 

X2  * FXl  T*Cn  S(RFTA  ) ♦ (RE  *■  TKEXI  T»  ♦$!  N(  BETA! 

FXBOlfllO 

XPN  = XI  ♦ 7l+X2*PBElL 

EXROIBZO 

or  TP 

FXB01830 

3C8 

IMP  = «! 

EXBPIBAO 

CP  TP  307 

FXB01850 

3C^ 

TNP  » 10 

EX  001860 

3C7 

IF  ( IPRINP  .GT,  0 ) WRITF(6t  305)  AMAX, AE XI T , AT , EP  I 

FX  PO1870 

2CS 

FORMAT!  2PH  ERROR  CALCULATING  EXIT  AREA  /2X,4E20.6) 

FXB018B0 

GP  TO  22 

FXBniBOO 

302 

RMAX  =DI/2. 

EXB01‘)00 

AA  = RmaX/  C0S(BFTA> 

FXRO1910 

XX  = (RMAX-RT/COS( BFTA) » /TANIPHI  ♦ BETAI 

FX  POIQ20 

YY  = XX^T AN ( BFTA  ) 

EX  Bni930 

CLNX  = XX  ♦ RMAX*TAN(BETA I 

FX  flOlQAO 

CFLR  = CLNX*YY/XX 

EXP01950 

RF  = AA-  DFLR-TKEXIT 

FXB01960 

AFXIT=  RF*RF*PI 

FXBni970 

3C3 

JK  = JK  ♦ I 

FXB01980 

IF  (JK  .GT.20)  GO  TP  3CA 

FX  POIOOO 

FPI  = AEXIT/AT 

FX  popono 

IF  (FPI  .L  T.  2.5 ) GO  TO  300 

FX  P02010 

IF  ( APF( EPOLO/EP 1 -1.0), LT.  .001)  GO  TO  311 

FXB02020 

FFPl  D = FPI 

FXBr>20  30 

CALI  NPZFX(GAM,FPI ,PHI,PEPC,CFVt INO) 

EXRO20A0 

PF  = PFPC^PC 

FX  P02050 

IF(  INO.MF .0 ) GO  TP  R023 

FX  Pn2060 

GP  TP  303 

FX  RO2070 

311 

RT  = SORT  (AT/PI)*(1.  - O.A* ( 1 . /C C S( PH  I ) -1.)) 

FXPP20PO 

XX  = (PMAX-RT/CnS( BETA) ) /TAN(PHI  ♦ BETA) 

EXBO2090 

YY  = XX*TAN( BETA ) 

FXPn^im 

CINX  = XX  ♦ RMAX*TAN( BFTA) 

Fx>^02l  10 

rFLP  = riNX*YY/XX 

FXBO2120 

ISP=  CSTAP*CF/32.17A 

FX 002130 

FXLT  = CLNX 

FX  BO21A0 

GP  TO  312 

FXP02150 

1A3 

CPNTIMLIF 

rxpn^ifco 

1 A4 

AGX  = PI*( .5*n-TC-N117)**2 

rxPO2170 

AFAT  = WAPD(  10) 

FX  no?  IPO 

APAT  = ( 1 .-ETAX  )*AGX/AT 

FX  P''2190 

IF  ( APAT. GT. AFAT ) AFAT  = APAT 

FX  PO??O0 

C^ASS 

PF  PPOPEILANT  FWn  HEAD 

FX  302210 

MPFH  = FHOP  *(  2.0«;*(  D*.5-TFH-Nl  lA)  ♦♦Z  * (.  5*n/N2-TFH 

-NllA)  - 0X302220 

1 , 5*AFAT*AT*P/N2»  - RHOP^VRFH 

FX302230 

CPAS<; 

CF  PPOPEllANT  AFT  HFAD 

FXRO22A0 

MPAHl=PHOP*( 2.09*(n* .5-TAH-N115) **2 ♦ ( . 5*D/N23-TAH- M 15 ) ) 

EX  302250 

MPAM  = (MPAHl-RHPP*AFAT*AT*(.5*f)/N23-TAH-N115))*FMPAH 

FXPn2260 

A = P !•( r/2.-TC-Nl 17)**2 

FXB02270 

CPASS 

CF  PPOPELLANT  CYLINDER 

FX302280 

MPCYL  *MP-NPFH-MPAH 

EXBO2290 

IF(MPCYL)  2001,2002,2002 

EXRO2300 

20CI 

MPCYL  *0. 

EXB02310 

KKK*KKK41 

FX 302320 

2CC2 

LrYL*M  PC  YL/(RHPP*(A-AFAT*AT)  ) 

EX  802330 

HA  122 


i 

i 


( 

I 


[ i 

i 


TP  = MP*I  SP/F 

r FPPwAon  HFAn  wfights 

IF  iMZ-  I, » lec,  I i5,iac 

ns  MFMSTP  = TFH  * ( PI*n*D/2.-N3*AT» 

INSUL  = NA*NIU*1. 5708*10-2. ♦TFH)**2 
rn  TO  185 

IfO  SAYl  = SOOT  I 1.- l./(N2**2  ) ) 

SAY  = ALOG  ( II.*  SAYD/ll.-SAYH  ) 

MFMSTP  = Nl*RHn*TFH*(  P**2  * (.7854  ♦ . 3025/ ( N2**2  *SAY1)  ♦ 

1 SAY)  - N3  *AT  ) 

INSUL  =N'4*N  114*1  I 0-2  .*  TFH  ) **2*  I . 7854*.  3925*  SAY/S  AYl  / A2**2  ) -N  3 *AT  ) 
IPS  IPnSS  =4.5*N9*TF)-  *RHn  * AT 

IGMTR  = NIIO  *(irYL  *n/N2)*.Cl766*(AFAT*AT)**.5  * Ml 
FnHPVjT=  MFMSTR  ♦ INSUL  ♦ IBOSS*  IGNITR  ♦ N13 
r rYLINDFR  WFIGHTS 

YFMSTF  = PI  ♦RHP*  Tr*n  *LCVL 

LINFR  = Nl  17*N4*PI*(0-2.*TC  )*LCYL 
TF  IH  = M117 
TflA  = N117 

CYLWT  = MEMSTC+L  17  FR  ♦■N21 
C AFT  HEAD  WEIGHTS 

TAHI  A = N 1 15 
TAHIM  = 2.*TAMI A-TC (M 
PM  = SCOT!  i,  273?3*epsc*AT) 

IF  (N23-  1.  ) 190,  187,  19C 

1E7  MFMSTA  = 4.*N22*TAH*PHP  *1  P I *0*0/2 .-E PSC*  AT) 

INSULA  = N4*TAHI A*P I* I (0-2.*TAH)**2/2.-nN**2/4. ) 
rn  TP  105 

ISO  SAY1=  SORT!  1.-1./(N23**2  ) ) 

SAY  = AlPG  I (1.*  SAYl)  /(  1. -SAYl  ) ) 

NF«STA  = N22*TAH*RH0  *(0**2  *1.7854  ♦ . 3025 / ( N2 3**2  * SAYl)* 

1 say  )-FPSC*AT) 

INSUI  A = N4*TAHI  A*  ( I r-2  .*TAH  )**2*  I.  7854*.3  925*SAY/ S «Y1/N23**2) 

1 -P  I*0N**2/4.  ) 

1S5  PPSS  = 4.*  N3C  * TAH  * RHO  *0 
511  AFTHOW  = MEMSTA  ♦ BOSS  ♦ INSULA  * N33 
C 7MSSIIF  WEIGHTS 

r P)  C FPRSt'T  = N24  * 2.*N35*Tr.*RHO  *0  ♦N36  *0**2  *(  GWAX*«L/N37*  ( 

FPRSKT  = N34  * N35*TC*RHn  *n*PI  *N36  *0**2  *(  r“AX*Ml/N37*  ( 
1 .215*(LrvL*r)/N2)/0*l.))**.5  *nLFS*PI  *0*TC*RH0 

C PLO  AFTSKT  = N38  * 2 .*N3P*Tr *OHn*0** 2*N40*n**2 * ( ( ML* MP /2 . ) / M37 
AFTSKT  = N38  * P I*N39* TC*RHn*0  *N40*0**2* ( I ^L *WP /2. ) / N37 
I * (.215*(LCYL  *0/N23)/0  * 1.)  ) **  .5 

r TOTAL  INFRT  WEIGHT 

Mf  = FPHPWT  * CYLWT  * AFTHOW  * FORSKT  *AFTSKT  ♦ NP/WT  * FXTWT 
MPMF=MP*MF 

r PLPNPIIY  WEIGHT 

MP  = wp  ♦ ml 

C LAUNCH  WEIGHT 

MPC  = MB  * MP 
WPATL  » DELVR/ISP/32.174 
WRAT=  2.71828**WRATL 
MP  = I WPAT-1.)*IMR) 

C LAUNCH  THRUST-TO-WE IGHT  RATIO 

FlMpr  = F/Mpc 


FX  P02340 
FXBn2350 
FXBP2360 
FX  002370 
FX  *02380 
rx  RP23O0 
FXnP2400 
FX  PP2410 
FXPn2420 
FX  002433 
FX  PP2440 
FXBO2450 
EXPP2460 
cx  502473 
FXBP2480 
FXfln2450 
FX  (302500 
FY  502510 
FX  802520 
FY  5P2530 
FXR02540 
FX  502550 
FX  502563 
FY  5n?573 
FX  002580 
FYnP25P0 
FX  502603 
FY5026 10 
FXP02620 
FY  802630 
FY  PO2640 
FX  802650 
FY  502663 
Fy  502670 
fy5''?6P0 
Fv  552600 
CY  302  700 
FY  a'->2  7 1 o 

FY  202  ■'2  1 

FY502  7 33 
FX  *02  740 
FX  502750 
f V 80  2 7 60 
FY 502770 
FX  502780 
FY  502  7FI0 
FXPP2500 
FY802a  10 
FX5025  20 
FX  5025  30 
rx  n')2540 
FX  50  25  50 
FX  B02860 
FX502B70 
rxsnppno 


1 


1 
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IF(J  12011,2011,255 
255  F = FIMO  ♦MnC 

LOnPl  = Lnnp  1 ♦ 1 

IF(ABS(  FIMOC-FIMCI  )-.01)  2011,2011,2003 
2003  IF  (KKK-AI  2015,2006,2006 
2015  IF( LnrPl.GT,25)WR ITE(6,BADRUN» 

IF(LnnPl-35  ) l<i27,lA27,25e 

2006  IF(  IPR  INP .NF  .0)  WP I TE ( 6, 2007)  SO  VI , MPFH ,MPAH  ,I SP , «B 

2007  FnRPAT(46F  NFGATIVE  CYLINDER  LE NG TH , DELI  VERED  DELTA  V » ,F10.3, 

1 17H  PROP  IN  FWO  HEAD, F 10.5, ITH  PROP  IN  AFT  HE AO.F  10.5 ,/ , 

2 5H  ISP=,  F10.5,  17HSURN  OUT  WEIGHT  =,F10.5) 

IMP  = 7 

CO  TP  2? 

258  IF  I IPRINP  .GT.  0 ) WR I TE ( 6, 201 2 ) FIMOC 
iMr)=5 
GP  TP  22 

2012  F0HHAT<45H  UNABLF  TO  FIND  THRUST  TO  HEIGHT  VALUE , FIMOC* , F 10  .5  1 
2011  SPVI=  ISP*3?.174*ALnG(MnC/MB) 

LroP2=LrpP2*  1 

IF  (ABSISPVI  -PFIVRI-  .001*DELVR1  2004  ,2004 ,2 1 16 

2116  IF  (KKK-41  2005,2006,2006 

2005  IF( ( I nCP2+LPnP 1 1 .GT.qo  .ANP.I  IPRI NP.NE.Ol 1 WR I TE (6  ,BAnRUN 1 
IF  ( LnnP2»L00P  1- 1001  142,  142,2008 

20  10  FGRMAT(50H  UNABLE  TO  CONVERGE  AFTER  100  I TERATI ONS  ,CELT  A V =, 

1 FIO.3) 

2CC8  IF  ( IPRINP  .GT.  C 1 WR  I TE  ( 6, 20101  SDVI 
INP  = 4 
CO  TO  22 
2CC4  COMTINUF 

SAY  = RHOP  * PI  *(0/2.  -TC  -N1171  ♦ ( LCYL  ♦D*.5/N2  +0* .5/ N23 1 ♦? . 
PP  = F/ISP/SAY 

r,  MOTOR  mass  fraction 

= mP/(MP  «■  ME) 

RAW  = (n/2.-TFHl  **2  *(D  •.5/N2  -TFH) 

SAWl  = ( n/2.-  TAH1**2  • (D*.5/N23  -TAHl 

C VOlUMETRIC  LOADING  EFFICIENCY 

VOLLO  = (MP/RHOPl  /(PI  ♦LCYL*(0/2.-TCl**2  ♦2.09*(SAW  ♦SAWll  1 

PhO=PHl*57. 2957795 
|T0T=  F*TB 

TMPWT  = ITOT  / MOC 
MPA  = MP 

LT  = LCYL  ♦ 0*  .5/N2*DLF  S+XRN 

712  TMOTOR  = MP  ♦ ME 

1F( lEX  .NF . 11  GO  TO  713 

CFVA  * CFV*  FJ 

ISPV  * CSTAP*CFVA/32.  174 

713  QSUB  = PSUB*100. 


CPFll  = 

100.*PHEl  1 

FWHL  T 

= 

n/N2*. 

5 

CASFHT 

s 

memstr*mfmsta*memstc 

WTITPT 

z 

INSUL 

♦ IF  SUL A*L INFR 

W80SS 

s 

IPOSS 

♦ BOSS 

WCON 

= 

N 12  ♦ 

N2U  N33 

FOACWT 

X 

FOHDWT 

♦ FOR SKT 

TOM  IS 

2 

FOR  SKT 

♦ AFTSKT 

FX  Bn?8R0 
FX  RP2900 
EX  802910 
FXB02920 
FX  Pn2930 
FXB02940 
F*  P02950 
FY  802960 
FX  802970 
EX  802980 
EXB02990 
EXRO3000 
EXB030  10 
EX  803020 
FX  RO3030 
FX  803040 
EX803050 
FX  803060 
FXB03070 
FX 803080 
FX  PP3090 
FX  PO3100 
FX  R031 10 
FX  803120 
FX8O3130 
FXR03140 
FX  R03 150 
FX  803160 
FX  RPO I 70 
FXR0  3180 
fxROR IPO 
FXR03200 
FX 8032  10 
FX  PO3220 
FX  803230 
FX  803240 
FX  803250 
FXR0326n 
FxnO3270 
FX  R03280 
FX  803290 
FX  R03300 
FX  8033 10 
FX  8O3320 
FXRn3330 
FX  80  3 340 
EX  803350 
FX “03360 
FX  H03370 
FXR03380 
FXR03390 
FX 803400 
8X803410 
FX  803420 
FX  803430 
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1 


AFTADW  = AFTHOW  AFTSKT 
FWT  = rnaov^j^Mp  FH 
CWT  = CYLWT  ♦•1PCYL 
AVIT  = AFTAOW  ♦ •iPAH 
TFIKf  = .3 
TG  = TIFC*2. 

CF  = FPACWT  ♦ CYLWT  ♦ AFTAOW 
IF  ( IPPINP  .LE.  C I GO 
CALL  PACE 
WR ITF(6,701) 

WP  ITF(6,70?)MP,F  ,fF  ,ME 
IMI.ITOT.TR  ,*inr,isp 
WP|TF(6, 703)0, PPtWMF.LCYl  ,PC 
I PFTA,nLFS,LT 
WPITEI6,7fH)  13 


) GO  TO  275 


.ME.FIMOC,  TMOTOP ,S0VI ,CFVA, 

,R3  ,MB,I SPV.AFAT 

I ,PC  , VOLLO,FWHLT,PAP  , If»PWT  ,YRN,PF, 


Fx  Pn34A0 
FXBf'BASO 
EYBOiA^iO 
FY  ^03^70 
FX  303A80 
rx  303^90 
FX  303500 
EX303510 
FX0n352O 
FX303530 
EX  3035<,0 
FX  003550 
FX  B035ft0 
FX303570 
FX3n3580 


WP ITF(6,  70  5)  mEMSTR,mEM5TC,MEM5TA ,C A SE WT , I NSUL , L I NF R , I NSUL A, WT I TOT  EX  00 3500 
2,  IBOSS, POSS,W30SSf IGN I TR,  EX 303600 

3 IGNITR  .FOPSKT, AFTSKT, TOMI  S,N13  ,N2l  ,A'33,WCrN,  FXPn36lO 

A FnAr>WT,rYLWT,AFTAnw  ,CH  ,MPFH,  •-PC  Y L , M P AH  , MP  .NOZ  WT  , F WT  ,CWT  , A WT  , FX  003  62  0 

5 T^CTOR  FX3r3630 

WF1TF(6,706  ) Nl  I A, TO  I A,TAHI A ,TC1 H, TAHI H, TFH,TC,T AH  FX3nx6A0 

WPITF(6,71A  ) FTL,FTV  FXBn3650 

71A  FP«mAT(6X,22FULTIHATE  CASF  STRENGTH  ,F8 .0  ,2 X2 IH YI F LC  CASE  ST PFNrTFFY 30 3660 
I ,Fa.O)  *'X303670 

WP  ITF(6,707  IT^IN  0X  003680 

iri  FORMAT! 6X,  AOHTHF  minIWUW  ALLOWABLE  CASE  THICKNESS  W AS , FR . 5/ ) FX 30 3600 

750  WRITE  1 6,  755  ) EX  303703 

WR  ITF  ( L , 751  )N3  1SS,  STHR  SL  , XCONF  , I NSR3G  , TH I M N , X I NSUL  ,NrZWT  ,xR\i  rxpr3  7 10 

755  FORM  ATI // AX, 6HNOZ7LF ) 0X  303720 

WRITF(fc,752)  03FLL ,PHO, EPI ,FRSC, AT  0X003730 

757  FORMAT! 2X,  52H  3FLL  HALF  ANG  EPI  ENT  RATIO  THROAT  ARFAFxeo37A0 

1/2X,8F1C.5//)  FXP'^3  750 

751  FORM  AT! 2X,  77F  NPZ7LE  THRCAT  EXIT  INSERT  THROAT  FXFX0n376O 

IIT  CONF  Tf'TAL  TOTAL  /6X,7AHS0SS  STRUCTORE  STRUCTURC  R FT  A IM00X  Rn3  r 70 
2R  ASSEMBLY  INSULATN  WEIGHT  LENGTH/2  X ,8F 10. 5 / ) 0XBP37RO 

7Cl  FORMAT!  AX,22H800STER  SIZING  OETAIIS  , 0X0037"! 

I 5X, 7HWE IGHTS,  20X  rxPO30OO 

2, IIHPFRFORmamce, l^X* INTERNAL  BALLISTICS')  RX°O33l0 

70?  FORMAT!  tx,  12HPR0PFLI.ANT  ,F  1 0. 2 , 5 X • TH  R US  T • , F 1 0.  2 ,5  X' C F*  , ox  , F 9 . 30x  0O3B2  0 

1/  FXM03B33 

16X,  12MIN0PTS  ,F10.2,5X* THRUST/WT* ,010.2/  FXPr33AO 

26X,12HTPTAl  motor  ,F ln.2, 5X'0FLTA  VI  • ,F 10. 3 , 5X • CF  VACUUM  • , 0 0 . 3/ fx np 33 50 

36X,  12FPAYL0AD  ,FIC.2,5X'I  TOTAL  • ,F 10. 2 , 5 X • BU RN  TIME  • , FO . 3/ Fx Pn 3P60 

A6X, 12HL AUNCH  wT  ,F I 0. 2 , 5X  • I SP  DFL  • ,F 10 . 3 ,5 X* BU PN  RATE  • , F o . ?/ Fx 003 « 7 p 

56X,12MPUPN  PLT  WT  , F 1 0. 2 , 5 X • I SP  VAC  • , F I 0.3 ,5 X • PORT/T HR" AT « , F R . 3 ) px  3033 0 0 

7C3  FORMAT!  5X  , ICFO  IMFNSIONS  , ITX,9HPRESSURFS  , 15  X , 13HM  I SC  FL  L ANFOUS  / FX0n3R<;O 


16X, 12H0IAMETER 
26y,12HLT  CYL 


,F 10. 3,5X*DESI GN  • ,F 1 0. 2 ,5 X' MM F • , FR  .A/ 0x 30 3R00 

,F10.3,5X'CHAMBER  • ,F10.2,5X'VCL  LCA 0 I NG • , F9  . A/ 0X 0039 i q 


36X,12HLT  FWn  HEAD  , F I 0, 3, 5X • A MB  I E NT  • ,F 10. 2 ,5X • ( I TCT)/WT  • , F9 . 2/ FX R03920 


A6«, 12HL T NOZZLE  ,F 1 0. 3 , 5X 'E X I T • ,F10.2 ,5X ,12HNC7  CANT  ANG  , FX0O3R3O 

I Fa. 2 /6X,10HSKIRT  FXTN  , 0XPO39Ar) 

5 F12.3/6X, ewTOTAL  LT,F1A.3)  0XHn3R5n 

7CA  FORMAT!  1AX,2PF3REAKD0WN  OF  CHAMBER  DESIGN  ,15X,  9HM ATFR I AL , 3 AA/  FXBO’ROO 
I27X,  AZHFOPWARO  CYLINOER  AFT  TOTAL  /5  X , 7HWE I GHT  S ) FXB03970 

7C5  FORMAT!  tXlAH  STRUCTURE  ,AF12.3/  0X303980 


• ,F10.2 ,5X  ,12HNC7  CANT  ANG  , FX0O3R3O 


/6X,10HSKIRT  FXTN 


rx  P039Ar) 
0X  H03R5n 
0X  303960 
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16y,14H  TN';ULATION 
26X,14»-  IGNITFR 
3tX,14H  SKIRTS 
AtX,  UH  CONSTANTS 
56X, lAHPROPFLLANT 
65X,15HTrTAL  WFIGHT 


t AF12.3/6X,IAH  BOSS 
iF12.3,2AX,Fl2.3  / 

. F12.3,12X,2F12.3/ 
»AFl2.3/6X,lAHTnTAL  CHAMBER 
. AF12.3/6X,l AHNOZZLE  WEIGHT 
, AF12.3) 


fAFl2.3  / 
t36X,Fl2.3/ 


7C6  FORMAT!  BX , I CHTH I C KNF SS  /6X, IQHI NSULATI ON  / 


16X,4M  AVG,  10X,3F  12.5 


275  SGWT  =(  WRN4  1GNITR/2 

WMC=CASEWT*K0nSS»TnMIS 

WM=TM0T0R 

KrZWTX=NOZWT 

MPX=MP 

CASFMX=CASEM 
VP  I = WTITOT/N A 
CTHRT=2.  * SQRT!  AT/PI  ) 
PN'OZ  I=R  T/CnS!  BETA) 

MP=  MP*FACT0R 
yp«F=  ►•PMF*FACT0R 
EFXIT  = FPl  * AT  / 
PTHVAC  = F * ISPV  / I SP 
PTHVAC  = BTHVAC  * FACTOR 
PFX IT  = BEX  IT  ♦ FACTOR 
PISPV  = ISPV 
nrnwP  = MP 

CRnPFB  = MOC  * factor 


/ex, AH  MAX,22X,2F12, 
♦MP)*FACTCR 


5/5X,AHCASF,10X,3F12.5) 


lAA. 


,F12.3» 12X,2F12.3/EXP03990 

Fx  BOAnno 
EXBOAOIO 
FXBOA020 
FXB0AO3O 
FXBOAOAO 
FX  P0A053 
FX  POA060 
EX  pn/^070 
ft ROAOPO 
EXPHAORO 
FXBnAino 
EX  BOA  1 10 
EX  POAIZO 
FX  POAIOO 
FX  BOAIAO 
EXfl0Al50 
FXROAIAO 
EXBOAITO 
FX  POAIBO 
FX  POAIOO 
FX  POAZOO 
EXBOA210 
FX  BnA220 
FXBnA?30 
FXRn<,2A0 


CPOPFP  = MF  ♦ FACTOR 

FX  PnA?50 

PFTIJPN 

FX  004260 

22 

IF  ( IPR  IMP  .LF.  0 

) RETURN 

FX  BOA? 70 

WPITF  ( 6,  12)  INO 

FX  ROAZflO 

WRITF(6,e52) 

APE2,ML,A6Z3,A5Z3  ,PA 

FXBhaZpO 

WRITFI A.PAOPUN) 

FX  P^A  300 

RETURN 

FxboAT  10 

135 

IF  ( IPR  INP  .LF . C ) 

RETURN 

FXPnA320 

WRITE  (6,36)  MCASE 

EX  POA’30 

36 

FORMAT! 26H  ERROR  IN 

SUBROUTINE  MATLS  ,15) 

EX  BOA3AO 

RETURN 

FX  BOA350 

9023 

IF  ( I PR  1 VP  .LF,  C ) 

RETURN 

EXPOA  360 

WPITF  (6,902A)  GAM, 

EPI,  PHI 

EXPOA370 

902A 

FORMAT!  I6H  frroR  IN 

NOZFX  ,3F20.6) 

FXPOA3R0 

RETURN 

FX  “0A390 

FNO 

FX  POAAOO 

SUBROUTINE  PROPXX(IFLY) 

ppxxnn  in 

COMMON  /TOVPFH/  ROOWP , B I SPV , B TH VAC , RE  XI T , SUSWP , S EX  I T , BC ANT  A , PPXX0n20 

1 WTINIT, rRnPST,0R0PEB,KlZ,ZA5,ZA6, ZAC, Zn3, EXTRA  (57)  PPXXnOBO 

COMMON  /FAILUR/  KFAIL  PPXXOOAO 

COMMON  /PRINTR/  IPR  INP  ,KTIMFS, I5( 5)  PPXX0050 

COMMON  /CMOPT/  IA(A|,KRYMOI ,12(2)  PPXX0060 

COMMON/  SlIRVn/  INOI  10) , IBUST,BASEWT  PPXX0070 

COMMON  /ADDON/  SPPWF ,CON S,FF ( Ifl)  PPXXOOBO 

COMMON  /LOOPXX/  LOOPR J,CFNSAV,WTSAV,WSSAV,SLSAV  POXXOOOO 

COMMON  /FXTRJ/ISKIP  PPXXOlOO 


1 
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r>  o 


r 

i 


c 


r 

r 

c 

c 


c 

r 


CCMMTM/SFPOWR  / 5;p(48) 

FCUIV41  ENCP 

l(5:p(  n.WTSP  ),(SP(  2)tVnLSP  ) 
crMMrN/Cf-nFxx/  ini6) 

CrMMPN  /PJRLOX/  RJ<50) 

CPMwrN/ /'L  F PLK  / AMarHl.A,  ALTl,GAMRAO,  ACCN*  ACCT,  CPCt  Ct  SRFF, 

I ACWT,  ALFA.CFNREOf  HEG,  CLALFD 
CIMEN<;iCN  <;fClL(3),  SAOILO) 
riMFNSIOM  SAV4(l^),  AMSAVCIA) 

FCUIVAl  ENCE  « SCniUDf  CniNL  » 

Foil  IVAl  FNCE  ( AMSAV(IJ,  AMACHl  ) 
common  /INnATX/  HPi>(22)t  HP 
COMMON  /INOATA/  CClNLf  CLALF.WTINLT 
COOEXX  FXTFRNAL  INTFO.FP  ARRAY 
ECU  IV  Al  E^’CE 

Kill  D.KINn  ),(!!(  2)fINLFT  ),(I1(  D.ISIZF  ),(II(  ^I.NOOP  ), 
U IK  5),KSUS  I, (IK  6),KFM  ),(I1(7  ),IBSTIN), 

2(11(13), IFx  ) , ( I I ( 14) ,NPASS  ) , (I  I ( 15)  ,NOUT  ) , ( I I ( 16 ) , I X X A ) 
COMMON  /PJOAT/  r.FMPO,CFNFT,A5A3,A6A3,  ACA3,SFr,  .BnSThT.RPSTLT  , 

I POSTPP 

C IMEA  ';  lOM  RJSA(q) 

ECIIIVALEMCE  ( RJ5A(l),  CrNRQ  ) 

common  /TRAJX/  TRSA(IO) 

riMFNSIOA'  SAV1(5C),  SAV2(lO),  SAV3(9) 

COMMON  /FXTFRN/  AP  (20 
FCUIVAl  EA'CE 

KAPI  1),PLLT  ),IAR(2  ),PLFX  ),(AR(  31,03  ) , ( AR  ( 4), RANGE  ), 

2(AP(  5),WTTnT  ),(AR(6  ),XLTOT  ) , ( AR ( 7),VL  ),(AR(  8 ),VFOR  ), 

3(ARI  9),nFLVl  ),(AR(lO),PLMASS),(AR(ll)  ,AHSURF)  , ( AP  ( I 3 ) , PA  Yl.  0 ) 

FOU  IVAl  ENCE  ( AR  ( !<;)  ,COMl  T ) , ( AR  ( 2 0 ) ,CF  STOR  ) 

COMMON  /TRJOTA/  P0INT(1C,7) 

COMMON  /GOOPL/  WAPO(78) 

ICAI  F = I CALCULATF  ANGIE  OF  ATTACK 

ICAI.  E = 0 UEF  INPUT  angle  OF  ATTACK 

NEWPT  = 1 POINT  IS  NEW,  INI  TI ALI  ZF 

NFWPT  = 0 POINT  IS  NOT  NFW, BYPASS  I NT  I AL I Z AT  I ON 

COMMON  /IPROP/  INO, I MIN,NEWPT, I RJOUT 

COMMON  /SUSOATZ  TX(44) 

EOUI  VAL  FNCE 

I (TXi  22 ),  XFMP ), ( TX( 24) fWFMfl ) , 

R(TX{33),  SUSLT  ) , ( TX  ( 34  ) , SL'SWT  ) , ( T X I 35  ) ,F  TUS  ) , ( T X ( 36  ) , FT  YS  ), 
1(TX(37),  SMLT  ) ,( TX(38) .SMWT  ) , ( TX ( 39)  ,Fmi nt  ) , ( TX ( 40 ) , FOS APL  ) 
COMMON  /EXXR J/  FX(  1,1*1 

FOUIVAI  FNCE  ( FX(  27  ) ,WP  J)  , (EX{28)  , XRJ) 

CAT  A XSPP  , XOR  , XSOP  , ZR  J , XS  R J , XR  AM  , XB  COS  T/4H  S PPG  ,4HnR  OC. , 4 HOPPG, 

I 4HRJ ET,4HRJSS, 4NFXR J ,4HBSTR  / 

I I ( 1 1 ) = 0 NO  MO  I OP  CG  hack 
11(11)  » I HACK  MOI  ANO  CG  OATA 


IFLY  = 

1 

KFAIl  = 

0 

KTIMES 

= 0 

11(11) 

= 0 

CC  NC’T 

CHANCE  TT4 

11(10) 

= 0 

NCUT  = 

IPP IMP 

P^XXOl 10 
PPXXO  120 
PPXXO  130 
RPXX0140 
PPXX0150 
PPXX  01 60 
PPXXOl 70 
PPXXOl 80 
RPXX0190 
PPXX0200 
PPXX0210 
DPXX0270 
PPXX0230 
PPXXOZAO 
PPXX0250 
PPXX0260 
PPXX0270 
POXX0280 
PRXX  0290 
PPXX  0300 
PPXX0310 
PPXX0320 
PPXXO  3 30 
PPXX0340 
PPXX035O 
PPXX0360 
PPXX0370 
PPXX0380 
PPXXO  390 
PPXX0400 
PPXX04 1 0 
PPXX  0420 
PPXX0430 
PPXX0440 
PPXXO450 
PPXX0460 
PPXX0470 
pp  XX  04  8 0 
PPXX  0490 
PPXX0500 
PPXX0510 
PPXX0520 
PPXX0530 
PPXX0540 
PPXXO550 
PPXvn560 
PPXX0570 
PPXX0580 
PPXX0590 
PPXX0F,00 
PPXX0610 
PPXX  0620 
PPXX  0630 
PPXX0640 
PPXX0650 
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pp 

} .. . ..  . . . 


IF  ( IPRINP  .LT.  -1  ) NOUT  = 0 

PPXX0660 

NCFN  = r. 

PPXX0670 

IMC  = 0 

PPXX06P0 

C AN  T = W\  3 0 < 1 7 » 

XX  0600 

IPUST  = 0 

PPXX0700 

IF(KINr.tT.^C)  GO  TO  1C 

PPXX0710 

TFINPASS  .GT.  0)  GO  TO  12<? 

PPXX0720 

NFWPT  = 1 

PPXXn730 

PPXX0740 

IP^TIN  = 0 

PPXX0750 

IF(K  IND  .GE  . EO)  GO  TO  6 C 

PP  XX0760 

no  1=1, HOOP 

PPXXn770 

ivn( 1 ) = 0 

PPXX0780 

IMIN=  1 

PPXX0700 

ISK  IP  = 0 

PPXX0800 

IF(  IS17F  .GT.l  ) GO  TO  110 

PPXX0810 

ICO 

SUSL  T=(  XL  TOT  -PLLT  )/2. 

PPXX0R20 

WTTOT  = rLMASS*3.0 

PPXX0830 

1F(  LOOPRJ  .GT  ,0)  SUSLT  = SLSAV 

PPXX0840 

IF(  1 nOPRJ  .GT.Ol  WTTnT=V»TSAV 

PPXX0P5O 

AR(  10)  = GUSLT 

PPXX0860 

SI  TOLD  = SUSLT 

PPXX0fl70 

GO  TO  130 

PPXX0R80 

120 

1 F(  K IND  .GF  . 50  ) GO  TO  60 

PPXX  OROO 

I F ( K IN'O  .FO.  <i2  ) RETURN 

PPXX0900 

GF  TP  130 

PPXXOO  10 

132 

CALL  SruCER 

PPXX0020 

IF  ( KFAIL  .GT.  0 ) RETURN 

PPXX0030 

GO  TO  133 

PPXX  0040 

1 10 

SUSWT=(WTTnT  -PLMASS)/3. 

PPXV0050 

1F( LOOPRJ .GT.O)  SUSHT  = WSSAV 

PPXX0060 

AR(  10)  = PLLT 

PPXX0O70 

SWTDLO  = SUSWT 

PPXXOORO 

130 

WTSP  = WTTOT^SPPWF 

PPXXO^PO 

PLFX  = PIMASS  ♦ WTSP  ♦ ARSURF 

PPXXIOOO 

IFIKIND  .FO.  42)  GO  TO  132 

PPXX 1010 

IF(K  INO.FO. A4)  SUSL T=(XL TOT-PLLT)  • .7 

PPXX 1020 

IF(K  IN0.F0.44)  SUSWT*( WTTOT-PLFXl  ♦ .7 

PPXX 1030 

SUPPRESS  OUTPUT  IN  SUSMAS 

PPXX 1040 

NPUTN  = NOUT 

PPXX 1050 

NOUT  = 0 

PPXX  1060- 

GALL  SUSNAS 

PPXX 1 070 

NOUT  = NOUTN 

PPXX 1 ORO 

IF  I KFAfl  .r,T.  C ) RETURN 

PPXXIOOO 

1 33 

IF  ( INO  .NE.  0)  GO  TO  25 

PPXXllOO 

NPASS  = NPASS  ♦ 1 

PPXXlllO 

131 

GALl  PROPRJ 

PPXX 1 120 

IFIK  INn.NF.44)  GO  TO  137 

PPXXl 130 

PrSTL  T = 0. 

PPXX 1140 

ePSTWT=0. 

PPXX1150 

1 37 

FONT INUF 

PPXX 1 160 

r PML  T = RnSTL  T 

PPXXllTO 

NGFN  = NCFN  ♦ 1 

PPXX 1 IRQ 

CFNNFW  = CFNRO 

PPXXl loO 

IF  (NOUT.NE.O)  HRITF(6,0S3)  WTSP 

PPXX 1200 

’ll 


HA  128 


S<;3  FPRMAK  10X20HSFCnNnAR  Y PHWF  R PKG  t FlO.l  I 

IF  ( KFA  IL  .GT.  0 ) RETURN 
1F(  IMD.NF.O  ) GO  TO  25 
IF(MPASS  .GT.  50)  r,n  Tfl  35 
1F(  IFX  .NE  . 1 ) WRJ  = 0. 

I F(  ISI7F.F0.1)  WTTOT  = PL^ASS  ♦ ARSURF*-  SUSWT>  BOSTWT  ♦ RJ 
1 ♦ WTINLT 

IF(  IF  17 E.EQ. 1)  WTFP=WTTnT  • SPPUF 

ir  ( ISI/F.EO.l)  WTTOT  = WTTOT  WTSP 

PI  EX  = PL»^ASS  *■  WTSP  ARSURF 

IF(  IFX.FC.l  ) GO  TO  20CC 

e^SFWT  = WTTOT  -rONS 

GO  TO  pool 

2CCO  RASFWT  = WTTOT  -«PSTWT 
POCl  AMACFl  = RO  iM(  1, 2) 

0=  0.7  ♦AMACH1*AMACH1*RJ(34) 

, AfWT  = PASFWT  - FUSARL*P0INT(l,6) 

FDFF  = AP  ( 1?) 

A=  AO. 02*  SOR  TIP  J ( 33)  ) 

ACGN  = PO  |NT(  1 , 3 ) 

AGOT  = POINT! I, A) 

ALT  I = POINT!  I, 1 ) 

GAMPAO  =Pr!lN'T!  1 , 5)  /57.PS57R 
AP!l(.)  = amachi 
FP  = A!  T1 
NrrSPT  = I 

GALL  XAI  PHA  ! NOFSPT  ) 

I F ! K FA  II  .GT.  0 ) RETURN 

CFMRO  = CRNRFO 


PPXX  1210 
PPXX 1220 
PPXX 1230 
PPXX  l2An 
PPXX1250 
PPXX 1260 
PPXX 1270 
PPXX1280 
PPXXIPOO 
PPXX  I 300 
PPXX1310 
PPXXl 320 

PPX* I 330 
P’ XV 1 3A0 
PPXX 1 350 
PPXX 1360 
PPXX 1 370 
PPXX13«0 
PPXXl 300 
PPXX 1 AOO 
PPXX 1 A1 0 
PPXX 1 A20 
PPXX 1A30 
PPXX 1 AAO 
PPXX1A53 
PPXX 1 A60 
PPXX 1 A70 
PPXX 1 ART 
PPXXl APO 


RJ!25)=  AIFA*57.205P  PPXXISOO 

IF  I NOUT  .GT.  0 ) WRITF!6,91)  C FNREO ,P J ( 2 5 ) PPXXISIO 

SI  FGPMATIllH  XALPA  nATA,10X,  SHCFNREO  = fF10.5t3X,  8HALPHA  = , F n . 6 ) P px x 1 5?0 


IF!  IBUST.FO. 1 ) RETURN  ppxx1530 

IFINFWPT.EQ.  1)  GO  TO  133  PPXXISAO 


FPX=.003 


PPXX 1550 


CGF=CFmRO  - cfnft 

IFINOUT  .NE  .0  ) WRITF!  6,  1257)  DCF,  G.FNRO,  CFNET 
1257  FORMAT!  / 5X21HCFN  ITFRATIPN  MISS  IS  , FIO.A  , 

1 lOX I5HRF0UIR FT  CFN  IS  , 6X,  FIO.A  / AIX, 

2 5X  IGHAVA  IL  ARLF  CFN  lSt5X, FIO.A  ) 

IFI  APS!  GFNFT/CFNRQ  - 1.  ) .LF.  FPX  ) GO  TP  1133 
GGFNEW  = PGE 

1F!NG,FN.GT  .11  C F NF  0=C  F NOL  O-DCFGL  0*  ! CFNNF  W-C  F NOLO  ) / 

1 ! nCFNEW-OCFOLD) 

1132  FPomaT!  /SXlAFPPFOIGTirN  MO.  , 110  / 19X,5F10.A  / ) 

IF  ! NOUT  .NF.  0 ) CALL  PAGE 
CPNOLO  = CFNNEW 
CGFOLn  = OGFMFW 
GG  TO  1 33 
1123  G.PNTINUF 

IF  ! NOUT  .NF.  0 ) CALL  PAGE 

CALL  PJWT 
NOUTSV  = NOUT 

IF  ! IPRINP  .LT.  C I NOUT  = 1 
or  331  I7  = lfS 


PPXX  l5f,o 

PPXX 1 570 
PPXX 15H0 
PPXX 1500 
PPXX iftOO 
PPXX  IM  0 
PPXX 15?0 
PPXX  if,30 
PPXXl 6A0 
PPXX 1 550 
PPXX 1550 
PPXX 1 6 7C 
PPXX 1 580 
PPXX  1690 
PPXX 1700 
PPXX1710 
PPXXl 770 
PPXX 1 730 
PPXX I 7A0 
PPXX I 750 


! 

'1 

1 
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3?l  SAV3(  17  )=RJSA( I 7 ) 

RH  332  17=  1,  10 
322  SAV2(  17  ) = TRSA(I 71 
CO  333  17  = 1,  5C 
333  SAV  1(  IZ  )='’J(  17) 
nr  383  17  = 1,  1^ 

3E3  SAV4<  IZ  ) = AMSAVn  7) 

DO  796  IZ  = l,3 
7?6  SACIl  ( IZ)  = SCOIL  ( 17) 

CALI  SURVEY 
cn  797  17  = 1,3 
797  SCDIl  ( IZ  ) = SADILI  IZ  ) 
nr  387  IZ  = 1,  14 
3E7  AMSAVI  IZ ) = SAV4( I 7 ) 

CO  351  17  = 1,9 

351  RJSAI  17  )=SAV3I  17  ) 

CO  352  17=  I,  10 

352  TP9A(  17  )=5AV2(  17  ) 

DP'  353  IZ=1,5C 

353  RJ(  IZ  ) = SAV1(  IZ) 

A^aCHl  = POINT!  1,2) 

0 = 0.7  * AMAPHI  • AMACHl  * RJ(34) 

ACWT  = BASEWT  - FUSABL  * P0INT(l,6) 

SREF  = AP ( 12 ) 

A = 49. C2  ♦ SORT  ( PJ(33)  ) 

AfCM  = POINT!  1,  3) 

ACCT  = PniNT!l,4) 

At  T1=P0  INT  ! 1,  1) 

GAMRAR=PP  INT!  1,  5 ) / 57.29578 

API  16  ) = AMACHl 

FP  = ALTl 

SUSWP  = FUSAPL 

BFANTA  = CANT 

7A5  = A5A3 

ZA6  = A6A3 

ZAC  = ACA3 

7r3  = 03 

KIZ  = KINO 

IF  I KFAIl  .GT.  C ) RETURN 

IF!  INn  .NE.  0 .OR.IIPUST  .NF.  3 .ANO.  KSUS  .EO.  1))  RETURN 
IF  I NEWPT  .EO . 1 ) GO  TO  131 
KTIMFS  = 1 

C rUTPUT  FINAL  DATA 
2 15  FORMAT!  IHl  ) 

IF  IMOUT  .GT.  0 ) WRITE  !6,7006) 

70C6  FORMAT!  21H  SUMMARY  OUTPUT  OATA  ) 

ITYPF  =KlNn  -40 

IF  ! ITYPF  .GT.  4 ) GO  TO  2204 
GO  TO  ! 200,201, 202, 203), ITYPE 
22C4  IFINOUT.CT.O  ) WR 1 TF I 6 , 2205) 

2205  FORMAT!  IX, 2CHTANDEM  ROCKET  RAMJET  //  ) 

GC  TP  216 

2C0  IF  INOUT  .GT.  0 ) WRITE  !6,204) 

2C4  FORMAT! 24H  INTEGRAL  POCKET  RAMJET  //) 

GO  TO  216 


PPXX1760 
PPXX1770 
PPXX I 780 
PPXX  1790 
PPXX  1800 
PPXX IR  10 
PPXX 1820 
PPXXISTO 
PPXXl 840 
PPXX 1850 
PPXXl 860 
PPXX1870 
PPXX 1P80 
PPXX 1890 
PPXX 1900 
PPXX 1910 
PPXX 1920 
PPXX 1930 
PPXX 1940 
PPXX 1950 
PPXXl 960 
PPXX 19  70 
PPXK lOPO 
PPXX lOQO 
PPXX2000 
PPXX2010 
PPXX2020 
PPXX2030 
PPXX2040 
PPXX2050 
PPXX2060 
PPXX2070 
PPXX2OP0 
PP)(X?090 
PPXX2100 
PPXX  21 10 
PPXX2120 
PPXX21 30 
PPXX2140 
Ppxxpi50 
PPXX2160 
PPXX21 70 
PPXX21P0 
PPXX21'’0 
PPXX2200 
PPXX22  10 
PPXX2220 
PPXX2230 
PPXX  2240 
PPXX2250 
PPXX2260 
PPXX2270 
PPXX22R0 
PPXX2290 
PPXX2300 
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2Cl 

wp I rri 6,205  1 

PPXX23n 

205 

Fr'RMAT(14H  nuCTEH  RflCKFT  //  1 

PPXK2320 

?16 

TF(  ISI7E.F0.2)  XLTOT  = PILT  ♦SLSLT  ♦ ROSTLT 

PPXX2330 

IF  ( NPUT  .LF.  0 ) OP  TP  3493 

PPXX2340 

CP  TO  210 

PPXX2350 

2C2 

WRITF(6,206 ) 

PPXX2T60 

2C6 

FORMAT!  24H  EXTERNAL  BPOSTFD  RAMJET  //) 

PPVX2370 

CP  TP  217 

PPXX238n 

2C3 

IF  ( NPUT  .GT.  0 J WRITE  (6,207) 

PPXX2390 

2C7 

FORMAT!  17H  UNHOnSTFD  RAMJFT  //) 

PPXV2400 

217 

IF!  IS  I7F.F0.2  1 XLTOT  = PLLT  ♦SLSLT  ♦ XRJ 

PRXX2410 

?10 

CPNT  INU'' 

PPXX2420 

IF  ! NPUT  .LF.  0 ) 00  TO  8493 

PPXV2<,30 

K ICK=  1 

PPXX2440 

IF  ! KICK  .GT.  0 ) on  TO  8493 

PPXX2450 

225 

FPPMAT! 5X, 13HINLFT  WFIOHT  ,F 9. 2 , 13 X , 1 3HI NLF T DRAG 

,F10.5) 

PPXX2460 

211 

FORMAT! 22X,6HWE I0HT,4X,6HLFNGTH  / 

PPXX2470 

15X, IRHP AYLOAO  ,F9.1,2X,F9.3  / 

PPXX24fln 

■ 

25X,13FAFP0  SUPFACF S,F9.4,/ 

PPXX2490 

25X,13H2Nn  P PAKACr  ,F9.4,/ 

PPXX  2500 

45X,13MFt)FL  MGMT  R A V,  F 9.  4 , 2X  ,F  9 .4  / 

PPXX2510 

55V, 13HSUSTAINFR  , F 9. 1 , 2 X , F9. 3 ) 

RPXX2520 

2 12 

FORMAT!  5X,  nnCOMRUSTPR  , F9.  1 , 2 X ,F9. 3 ) 

PPXX2530 

2 13 

FORMAT! 5X, I’HRPOSTFR  ,F 9. 1 , 2 X , F9. 3 ,2 XI 3HPR CPE L L A NT  WT,F10.2) 

PPXX2540 

214 

FORMAT! 5X,  I’HTOTAl  ,F 9. 1, 2X, F9. 3 ) 

POXX2550 

8453 

CONT  INUF 

PPXX25<>0 

87  = CP  Ml  T 

RPXXZSTO 

IF(K  INn.F0.44)  rOMl  T = XRJ 

PPXX2580 

call  ia'LCTp 

PPXX  2590 

CPMl T=RZ 

PPXX260n 

CALI  rniNLT 

PPXX 26  10 

I I!  11  ) = 1 

PPXX2620 

1 F!  K INI' .FO  .4  2 ) on  TO  7CC1 

PPXX2630 

A AA  = X SP J 

PPXX26^  ) 

IF  ! NPUT  .F'F.  n ) CAIL  PAGF 

PPXX2650 

CALI  SIISMAS 

PPXX2660 

IF  ( NPUT  .NF.  0 ) WRITE!6,993)  WTSP 

PPXX  2670 

IF  ( KFAIl  .GT.  0 ) PFTURN 

PPXX2^Bn 

call  ojors 

PPXX  2690 

IFIIMC.NF.O)  00  TO  7000 

PPXX  2 700 

SFC  = PJ!  7)*RJ!  15)*ACA3/CFNET 

PPXX?  710 

7TC2 

AAA=7RJ 

PPXX  7720 

call  rjwt 

PPXX2T30 

IF!  Pin.NF .0  ) 00  Tr  7CCC 

pp  XX?  740 

IT!  IrX.FO  .1  ) G'T  TO  7C03 

PPXX2750 

7C(4 

AAA  = xn''PST 

PPXX  2 760 

I T ! K INP  .NT  . <,4  ) CALL  PAOE 

PPXX 2770 

IFCI'  iNp  .NF  .44  ) CALI  Pn0ST!nFLVI,PAYLn,A6A3, 

A5A3 ,0, 

PPSTPP, nrSTWT  , 

PPXX 2 780 

1 P'aSTLT  , IND.CONS) 

PPXX2790 

IF!  (ND.MC .0 ) OP  TP  7CCC 

PPXX28nO 

(FLY  r 0 

PPXX28n 

rFNPAV  = C.  FNRO 

PPXX?P?0 

WTSAV  = wTrOT 

PPXX2830 

SLSAV  = SUSLT 

PPXX2340 

WPSAV  = WTTPT  - PPSTWT  - PLMASS  - ARSUPF  - 

WTSP 

PPXX2RS0 

HA  131 

L. 

K ( NCUT  .FQ.  0 ) RFTtRN 
PP  INT  M ISS  IL  F SCFFMATIC 

call  PAGF 
WPITF(fr,B221  ) 

FOPMAK  III  5X,  25HMI  SSILF  SYNTHESIS  SUMMARY  //  J 
WRITF(  6,8100  WTTrr,  XLTOT 

I FOMMATI  ISXRHTOTAL  WT  = ,F7.1  ! l5X9HTr)TAL  LT*,F7.l  ) 

WP  ITF(6,R110)  1 PriNT(l,IC>,  IC*1,7  ) 

FrPMATl  /15X,  KHOFSIGN  PONT  =,F8.0,  IH  / ,FA  .2  , I H/ , FA.?  , IH/ , 
1 FA.2, 1H/,F6.2,IH/,FA.2,IH/,F5.0  //  ) 

NCFSPT  = I 

CALL  XALPHA  ( NnESPT  » 

V,P  ITF(  A", 8666) 

FCRMATl  ////  ) 

WP  1TF)6,8111)  ARSURF 

FrwMATC  71X13H  WT(W+T)=,  F6.l,AH  II 


WP  1TF)6,8111)  ARSURF 

. FrwMATC  71X13H  WT(W+T)=,  F6.l,AH  II 

1 FOX  , 8F / 61X15H ,13  XIH.  ,7XIH.  / 

2 6CX  IH.,  lAX  IH.,  12XIH.,0XIH.  ) 

WPITF(6,0ll2) 

> FPRMATl  39X,  ICH , A9H 

1 ) 

WR1TF(6,8113  ) 03 

1 FPPMATl  35XIH.,  13XIH.,  18X1H,,27X2H..  / 3AX1H  ,IAXIH.,  18X1H., 

I 26X3H.  .,  SX5H()3  =,  F 7.  I ) 

SIISWX  = WTTOT  - RPSTWT  - PLMASS  - ARSURF 
SPCX  = SRFF  ♦ lAA. 

W0ITE(6,P11A)  PLLT,SUSLT,BOSTLT, SRFX.PLMASS ,SUSWX , BCSTWT,  AC  A3 
, FORM  ATI ?3XlH.,2XAHLPL  = ,F6.l,3XlH,2X,6HLSUST=,F7.l,3X5H 

1 AX5K  Bnn  = ,F7.  I,  AX2H..2X1H.,  5X5HA3  =,F7.l  / 

2 33XIH  ,2XAHWPl =,F6.  1,3XIH.2X,6HWSUST=,F7.1,3X5H. 

3 4X5HW8(10  = ,F7.1,  AX2H,.2XlH.,  5X5HACA3  = ,F7.A  ) 

WPITF(6,8ll=)  FUSAPL, POSTPP , A6A3  ,A6A3 

) FORMAT) 3?X1H.,15X1M., 2X6HWFLEL=,F7. I,  3X5H AX5HWBPR= , F7. I , 

1 AX2F..,  ?X  IH.,  •=X‘5HASA3  = ,F  7.A  / 3AX1H  , 1 A X IH,  , I 8 X I H.  , 

2 26jX3H.  .,  5X5HA6A3  = ,F7.A  / 36  XlH.  , 12  XIH.  , 1 8 XIH.  , 27X2H..  ) 

WPITF(6,P11?) 

WPITF(6,P31l  I 

I FPRMAT)  60X1H.,  lAXlH.,  12XIH.,  8XIH.  / 61X15H , 

1 13XIH.,  7XIH.  / 90X8H ) 

ACX=  ACA3  * SRFF  * lAA. 

WP  ITF(6,8  1 16  ) ACX,WTINLT 

b FORMAT)  III  66X7FC.ARFA=  , F 7. 1 / 66X7HWT.INL=  , F7.1  III  ) 
PFTURN 
L AAA=XSPP 
CALL  SPUCFR 

)F  ) KFAIL  .GT.  C ) PFTUPN 
CAIL  PPCES 

T P)  INO.MF  .0  ) GO  TO  7CC0 
SFC  = PJ)  7)*RJ(  15)*ACA3/CFNET 
GP  TP  7002 
) AAA=XPAM 

IFIMPIIT  .A'F.O)  CALI  PAGF 
CALL  EXRAM 

IF  ) KFAIL  .GT.  C ) RETURN 
I F)  INO.NF  .0  ) GO  TO  7000 
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PPXX2R60 
PPXX2370 
PPXX28P0 
PPXX2890 
PPXX  2900 
PPXX29  10 
PPXX2920 
PPXX2930 
PPXX79A0 
P0XX29Sn 
PPXX2960 
PPXX2970 
PPXX29P0 
PPXX2990 
PPXX3000 
PPXX3010 
PPXX  3020 
PPXX3O30 
PPXX30A0 
.OPXX3050 
PPXX3060 
PPXX3070 
PPXX  3080 
PPXX  3090 
PPXX3inO 
PPXX3  1 10 
PPXX3120 
PPXX3130 
PPXX31  AO 
poxx3l‘iO 
PPXX3160 
PPXX  P I 70 

ppxx jino 

PPXX31P0 
PPXX3200 
PPXX  3210 
PPXX  3220 
PPXX  3230 
PPXX  3 2 AO 
PPXX32PO 
PPXX3260 
PPXX  3770 
PPXX  3280 
PPXX  32PO 
PPXX33no 
PPXX3310 
PPXX3320 
PPXX3330 
PPXX  33AO 
PPXX3380 
PPXX336n 
PPXX3370 
PPXX3380 
PPXX33P0 
PPXX3A00 


cr  TC’  7no<» 

IF( NOUT  .r  F.O » WP  ITFl6t7005) 

Fr«MAT(?lH  FRRPP  IM  SUPBOUTIME  fA4,27H  WHFN  TRYING 
PFTIIPN 

IF  ( NOUT  .LF,  n ) PFTURN 
I P I K IMP/  10  - 2 ) 20,30,40 
WPITF(6,21) 

FnRPAT(51H  NC  Sniin  POCKET  CAPABILITY  IN  ROUTINE  AT 

PFTIJPN 

WPITFIt,31) 

FORMATISIH  NO  LIQUID  PCKFT  CAPABILITY  IN  ROUTINE  AT 

PFTIIPN 

WP  ITF( 6, 41  I 

FORPATISIH  NO  COMBINED  C VL  CAPABILITY  IN  ROUTINE  AT 
PFTUFN 

IF  (MGUT  .GT.  0 ) WRITF  (6,611 

FPRMATI32M  TURBOJET  LOGIC  NOT  YET  INCLUDED  ) 

P FTUPN 

1 FINOUT.MF  .0  I WR  ITE(6, 2t) 

FORMAT!  i6H  ERROR  IN  PROPRJ) 

PFTURN 

IF(MOUT.MF.O)  WRITF|6,36I 

FORMAT! 70H  FXOFSSIVF  ITERATIONS  IN  EXTERNAL  LOOP  I 

PFTURN 

FND 


PPXX3410 
PPXX3420 
TO  OUTPUT  nATAIPPXX3430 
PPXX3440 
PPXX3450 
PPXX  3460 
nPVY3470 
THIS  time  ) PPXX34B0 

PPXX  34R0 
PPXX3S00 
THIS  TTMF  I PPXX3‘jlO 

PPXX3S20 
PPXX3‘;30 
THIS  TIME  I PPXX3540 

PPXX  3S50 
PPXX  3660 
PPVV3S70 
PPXXXSBO 
PPVX3590 
PPXX36m 
PPXX3610 
PPXX3620 
PPXV3630 
PPXX3640 
PPXX3650 


THIS  TTMF 


THIS  TIME 


SURF  OUT  I^'F  BOOST  ! APF2  , P L , A6  Z3  , A 5Z 3 , I PR  I NT  , MP  , MPMF  , L T,  INn,SnWT  I 

RFAL  NOZWTX,MPX 

COMMON  /rOMVLS/  C0M(51) 

FOUIVALFNCP  (COM  ( 16  ) ,WMC  ) , 

1 ! COMI  17) , Vfl  I », 

2 (COM!  15), DCOM), 

2 (C0M!2C),NCZWTX), 

4 !COM( 21  ),MPX), 

5 (COM! 22) ,CASFMX ) , 

6 (C1IM(  Q),P5X), 

7 (COM!  10),YIX) 

COMMON  ZTOVPFR/  ROD WP  , p I SP V ,B TH VAC , BF X I T , SUSWP,  SE X I T , PC  ANT  A , 

I WTINIT,DRnPST,np(lPFB,KIZ,ZA4(4)  ,EXTPA(57) 

COMMON  /MATTVP/  IP!3) 

COMMON/CODEXX/  III  16) 

FOUIVALFNCF 

2(  I I(  13)  , IFX  ) , (T I ( 15) , NOUT  ) 

COMMON/ APR  AY/  F,PC  ,PAP ,CF ,CFB,I SP,TB 
COMMON  /PESYET/  FACTOR,  BFS14(14) 

COMMON  /COflPL/  WARD  (78) 

COMMON  /CODEPT/  (FIRST, JRJ,J 

COMMON  /INSFRT/  wr,,WA,WTR,WC,WTI  ,0ELA,PE,X1,XG,XT  ,WRN,FPSC, 

I A6A3,A5A3,Yl,RC,  AT, XRN, TI EC ,RE ,RECHK, PI ,CFVA,  T 

I TFFO,  irG,X3,Zl,XA,LN,TAH,NrZWT,I  SPV 


) “OSTOOIO 
PnST0020 
SPSTOOXO 
R0ST0040 
ROSTOOSO 
RnSTOO60 
rpSToo  jo 
'’OSTOOPD 
POSTOODO 
POSTOIOO 
PDSTOl 10 
«OST0120 
ROSTOl 30 
BOSTO 140 
BOSTO  150 
“OSTOlfO 
ROSTOI 70 
POSTOl BO 
ROSTOIDO 
nosT0200 
PnST0210 
PnST0220 
TTH, POST0230 
POST0240 


ISP,N  l,N2,N  3,N4,  N‘7t  NIO  , Nl  1 ,N13  , N2  I,  N22,  K23«nST02S0 

,M24,  N30,N33,N34,N35,N36,N37,K3R,N3'>,N40,  BnST0260 

N77,N7e,N74,N80,N8I,N82,N83,N84,N85,Ml4,Nll5,Nl  17,  RnST0  270 
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w 


1 


l(WT(i  ),IBaSS 
2(WT(5  ),IN';UL 


)t(WARO(  3) 
),(WARD(  6) 
),(MARn(  9) 
)t (WARn( 13) 
).  (WARD)  161 


),(WARD(26) 
), (WARD) 29) 
), (WARD) 32) 


),  (WAPn(35) 
),  ( KAPnC  38) 
)» (WARD(Al) 
), ( MAROl A4) 
) , (WAR0{47) 
)»  <WAPD(  50 
) , (WARD) 53) 
) , (WARD) 56) 
), 1 WARO( 59) 
), (MARD(63) 


FJ  ) , (WARD)  <f)  ,PA 
P0ELL  )f(WARn»  7)fPHI 
RHOP  ) • (WARndl ) tCSTAR 
FSYLD  ) , (WARD(1<»)  ,FSULT 
TCASEF) , ( WAR0(17) ,8FTA 


DM 

N1 

N6 

NIO 

VRFH 


) t 1WAR0(20) f ETAK 
) I (WAR0(24) ,N2 
) ,(HARD<27) ,N114 
) . (WAR0(30) tNll 
) . (WARD(33) tN34 


N36 

N39 

N22 

N33 


5 N1 19,N  120tM21  ,LN,L  T,  LC  VL  tMPFH  ,MPAH  ,MPCYL  * MP»  MP  A,  MFM5TP  , 

. INSUL  tLlNEP  flBOSS .NBOSStMLt IGNl TR ,MFHSTC t ME MST A , I NSUL A, 

) INSPRG.NP  7WT  , ME  t MR,  MCX:,  MMF  , M PMF  , I TOT  t rMPWT,I<;PV 

COMMON  /NNZMP/  CZ  l(28),ZN0Z,XIN0Z 
n )MFNS ION  WT( 20) , Z( 20) tZWfZO) ,X1 I (20) 

FCUIVALFNrF 

),(WT(  2),  MEMSTR),(WT(  3),MPFH  ),(WT(  4),IGNITP), 
),(WT(  7),  MEMSTC)t(WT(  8), LINER  ) , (WT ( I 0 ) , MPCYL  )t 
3(WT(  11)  ,MPMSTA  ),d.T(12),  INSULA)  t(WT(13)  ,MPAH  ) # (WT  ( lA)  , RTSS  ). 
A( WT( 16) fFORSKT  ),(WT(17)f  AFTSKT).  (WT ( 19 ) , Z NFPNG ) 

ECUIVAL  FNCE 
KWAROI  1),D 
2(VAR0(  5), FI 

3(WAPP(  8), GAM 
A(WARD(  12), PCM 
5{WARD(  15),  TM  IN 
6(WAPni  ie),CASEM  ),(WAPn(19) 

7(WAPn(?l),nLFS  ),(WARn(23) 

8(WARn( 25), N3 
9(WAPni  ?F)  ,N9 
X(WAP  DC  3 1 ),N  13 
FOU  IVAL  FNCE 
KWAPPC  3A),N35 
2(WAPn(37),N3R 
3(WAPn( AC),GMAX 
A(WAPn( A3  ), N2A 
5(WAPn(A6),N117 
6(WAcp(<,q),N21 
7(WARn(  52),N79 
e(WAPn(  55),NP2 
9(WAPD(  56)  ,N85 
X(WApn( 62 ), PSUR 
MAMFLIST  /BAORIIN/  A5A3,A6A3 
INOZ  W T , F IMO  r, , F IMP  , del  VP  , SO  VI 
12  rnpMAT  ( //lOXl THPROPLEM  STCP  NO. 

AFAT  = WAROI  10  ) 

TTMr  WARD!  22  )*.017A532«; 

IF(  irx.lT.l)  FACT(JA  = 1. 

PR  =n/2. 

IF  I IPX  .r,T.  C ) TIEC  * 0.0 
IPKINP  = NnUT 
Ml =PL /FACTOR 
EXTWT  = 0. 

TP  = 5. 

IFI  IF  [PST.LT.  1)  GO  TIP  66  C 
PSim  = 1.0 
I FIR  ST  = 0 

P«:TA=  beta*  .0  17A5329 
IF  I I PR  IMP  .LF.  0 ) GO  TO  660 
in  IEX.CT,0)WRITF(6,301) 

201  FORMAT! 17H  EXTERNAL  BOOSTER) 

WPITF(6,652)  APE2,ML,A6Z3,A5Z3 ,PA 

652  FORMAT!// 35H  VALUES  OF  BOOST  CALL  LIST  / 3X , 

1 61H  DELTA  V PAYLOAD  A6A3  A5A3 

IP  AMP 


) , ! WARD(36)  ,N37 
) , !WARD!39) ,NAO 
) , (WARD!A2) ,N23 
) , (WARD !A5) ,N11 5 
FMPAH  ) , (WARD!Afl ) ,N30 
N77  ) , ( WARD(51 ) ,N78 

) , !WARD!5A)  ,N81 
, (WARD!57) ,NflA 
, !WARD!61) ,EPI 

) 

HOC,  ME, MPCYL, MPAH, MPFH, ISPV, 

LCYL ,AT,L00P1  ,L0nP2 

I2,15H  HAS  OCCURRED.  ) 


N80 

N83 

N121 

RHO 


RnST02P0 
RnST0290 
ROST0300 
«nST0310 
'»nsT0320 
PnST0330 
"nST0  3A0 
PnST0350 
RnST0360 
BnST0370 
BnST0380 
RnST0390 
ROSTOAOO 
POSTOAIO 
3nST0A20 
BnST0A30 
nnsTOAAO 
ROSTOASO 
PnST0A60 
POSTOATO 
onSTOABO 
PnST0A90 
HOSTOSOO 
ROST  0 510 
nnST0520 
BOST0530 
RnST05A0 
POST0650 
PnST0R60 
ROST  05 70 
ROSTOSBO 
ROSTOSDO 
BnST0600 
RO^TOAIO 
ROSTO620 
RnST0630 
30ST06A9 
00570650 
no5T0660 
ROST0670 
ROST06P0 
POSTn690 
POST0700 
RT  ST0710 
POST0720 
ROST0730 
POST07A0 
ROST0750 
BOST0760 
ROST0770 
ROSTOTBO 
ROST0790 
BOSTOROO 
ROST0810 
POSTOBPO 


L 
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2 / 2Fl0.3,3FlC.5,Fl0.2/»  Hn<;T0830 

!F(J)  653,f)54,653  P^STOBAD 

) WRITE  (6,655)  BOSTOBBO 

i FPPMAT(  10T22H  THRUST  TP  WFIPHT  INPUT  /)  POST0B60 

rp  Tf.l  660  PPSTOBTO 

» WP  ITE  ( 6,  657  1 PnsTOBBO 

J FrRMAT(  10X131-  thrust  INPUT  /)  PPSTOBOO 

) INC=n  nnSTOROO 

PC  = WAPn(2)  pnSTORlO 

CFLVP  = APE?  pnsT0920 

PAP  = PA  POSTOOTO 

iriPAP  ,LF.  0)  PAP  = ,COCl  pnSTOP^fO 

I PI=3. 141593  pnSTOOSO 

A5A3  = A573  BnST096n 

A6A3  = A673  PnST0970 

ISP  = CSTAR*  1 .5/ 32.  174  Pn<;T09B0 

WPATL  =OFLVR/ISP  /32.  174  pnSTOOgO 

WPAT=  2. 71 e28P*WPATl  pnSTlOOO 

MP  = ( WP  at#ml-ml  )/(  i.2-.2*wRATi  pnsTiniri 

IF  (J|  ?70C, ?202, 2200  PnSTin2T 

» F = FI  Pr««;Tn3a 

on  Tn  2201  ''nSTn40 

) F = ( 1.2  * MP*ML)*F1  pnSTlOSO 

[ TP  = Mp*isp/F  pnsTi06n 

IF(/6A3  .IE.  A5A3)  A6A3  A5A3  ♦ .001  PnSTlOTO 

IF  ( 0AM  -1.0)  30,  30,  35  POSTIORO 

) IMP  = 2 PnSTlOPO 

IF  ( IPPIMP  .GT.  0 ) WRITE  ( 6,9002)  0AM  pnsTltOO 

> rrPMAT(42H  gamma  lfSS  THAM  I NOT  PERMITTED.  GAMMA  = ,F16.6)  P^STlllO 

on  TO  22  pnsTii2n 

TEST  TCI  DFTFPMINE  IF  F IS  INPUT  OP  TO  BF  FCUAE  BY  IT'^RATICN  POSTllBO 
i IF  ( j ) 100,95,100  “^ST  1 140 

i r = FI  PnsTllBO 

GO  TO  103  pnST1160 

> FIMP  = FI  °^ST1170 

) innP2  = 1 POSTiiHo 

KKK=0  PnSTllOO 

irr  = 0 '’nsTi2oo 

FI AMno=  .5* ( 1 .♦cnsiPHi  ) ) PnSTlPlO 

TKFXIT  = .25  Pr'ST1220 

n =nM-2.*TK EXI T PnSTlZ’O 

FPSC  = *■‘23  Pf^ST  1240 

AMAX  =(01/2. )**2*PI  RnST1250 

pp=  PC^FSYIO  Bn<;T1260 

MrASF=  IF  ixir ASFM+. 1)  PnSTi27n 

CALL  MATLS(MCASF,Tr,ASEF,RHn,FTU,FTY,IND)  (3OST12P0 

IF(  IF'C  .NE.  0 ) GO  TP  135  ppST1?O0 

TFYLU  =rSUl T*PC  *0  /(FTU*2.)  °PST13no 

PFiST  1 310 

TCYIY  =FSYLO*oC  *0  /(FTY*2.)  pnSTl3?0 

TCYLT  = AMAX  1 ( TC YLU, TC YLY)  PnST1330 

TC  = AMAXKTOYLT.TMIN  ) PPST13A0 

A=P1*(  C/2.  - TC  - N117  ) **2  PPST1341 

TAHII  =FSIJLT*PC  *N23*n/FTU/4.  PnsT1350 

TAHY  =FSYLPMPC  ♦N23*n/FTY/4.  PfiSTHEO 


35 


I 


TAHT  =AKAXl(TAHUtTAHY)  ^nSTlBYO 

TAH  =AMAX  1( TAHTf TMIN  » RPSTIBSO 

IF  (N2.EQ.  N23)  GO  TO  13t  BOSTllOO 

TFHU  =FSULT*PC  *N  2 *D/FTU/4.  fJ0STl400 

TFHY  =FSYLD*Pr.  ON  2 ♦D/FTY/4,  BOSTl^lO 

TFHT  =AMAX1  ( TFHLt  TFHY)  Pn<;T1420 

TFh  =AFiAX1(TFHT,  TMIN  ) P0STU30 

cr  TP  1A2  POSTl^t^O 

136  TFH  = TAH  PnSTl450 

IA2  innpi  = I pnsTi<»6n 

l<i27  1F(  lEX.FO.OIGO  TO  1A3  PO<;TU70 

PFPC  = PA/Pr  nnSTlABO 

FPS=(  (GAM*1.  )/2.  I**(  1. /(GAM-l,  n*(PEPC  »**(l./GAM)  ♦ BPSTUOO 

I SORT  ( (r,AM*l.)/(r,AM-l.»*(l.  - (PEPC  )•*(  (GAM-1.  »/GAM)  ) 1 bOSTISOO 

FPI  = l./FPS  Pi^STlSlO 

CFV  = ri AMPP  ♦ S0PT(2.*GAM**2/(GAM-1.) *(2./(GAM^l. »)♦*( (GAH+l.  )/  anSTl520 

l(GAM-l.)»  * ( l.-prPC**((GAM-l. I/GAMI  JJ  «-PEPC*EPI  PnSTl530 

JK  = C POSTISAO 

P2  = n/2.0  POST1550 

IF  (FP!  .LT.  2.5)  GO  TO  308  pnSTl560 

r.F  =(Crv  -PA/PC*EPI  )*FJ  PnSTl570 

FPni  n = FP I PPSTlSaO 

ISP=  rSTARYr.F/32. 17A  POSTISOO 

AT  = F/Pr/CF  POST  1 600 

AEXIT=EPI*AT  PnSTl610 

PF  = SORT  (AEXIT/PI)  P^ST1620 

RT  = SORT  {AT/PI/*(1.  - C.4*( 1. /COS( PHI ) -1.))  PnST1630 

EXLT  =(RF-RT  )/TAN(PHI  ) '»nSTl6^0 

CFLP  = EXLT*  TAM(PFTA)  “nSTl650 

REF  = (PE+OELP )*CnS(BETA)  PnsTl660 

AFFF  =PFF**2*PI  PnSTl670 

IFIAFFF  .GT.  AMAX*l.OOl)  GO  TO  302  '’nsTl6R0 

312  NROSS  = N77  ♦ PP  * n*N23*AT  POSTIROO 

STHPSL=  N78  ♦ PP  * AT**1.5  OOSTI/OO 

XroNF  = r'79  * PP  * AT**l.5*(FP|-2.5l/  SIN(PHI)  ROSTITIO 

INSRRG=  N80  * (FPI*AT)  **.5  PnSTl72n 

THINFN=  M81  * AT  **.9  RnSTl730 

SUM  = PC**NR3*T8**NP4  “nSTlT^fO 

XIMSUL  = Ne2*AT*(FP!-2.5)/SIN(PHn*FSYLD**N83*SUM  noSTl750 

I *(CSTAP/ 32. 17A)**NP5  PnSTl760 

NOZWT  = NROSS  ♦ STHPSL  XCONE  ♦ INSPPG  ♦ THININ  ♦ XINSUL  PnST1770 

ZNFPNG  = 0 . POSTl 780 

PTH=  SOPT(AT/Pn  8OST1790 

ON  = SORT( AT*N2A/P  1)  POSTIROO 

IF(  ON  .GP.  R3)  ON  = .8*P3  R^STIRIO 

FY  * ON  - SORTIAT/PI)  ROSTIR20 

FYS  = rY**2  ROSTIRBO 

IF  (FYS  .GT.  AT)  FYS  * AT  - l.O  POSTIH40 

XI  = SORT(AT-EYS)  POSTISSO 

Zl  = SORT!  (R3**2  -nN**2)/N23**2)  POSTlSftO 

X2  = FXLT*COS(BETA ) ♦ (RF  ♦ TKE XI T ) *$1 N( BET A ) "OSTIRTO 

XRN  s XI  * 7l4-X2*PREll  ROSTIRBO 

CG  AND  MCI  pnSTlflOO 

hX  = RTF*(2.-  COS(PHI))  POSTIOOO 

POSS  ROSTiqiO 
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h=3.*TA^ 

CALL  7rvLLLt  H,NHnSS,DN,0.  , xn  I f 71  tZWn 

WTH=  STHPSL  ♦ IMSPPG  ♦ THININ 

tall  7rrMHH( X l,WTH,nM,HX ,0. tOf XI I^tZ2f ZW2) 

wFXT=xroNr+  xinsul 

X3  = X?^PPFL  L 

CAll  ZrOAiHHI  X3,WEXT,PF,HX,Xl,  1,XII3,Z3,ZW3) 

7MM!S=  M?l*Xl 

7(lRI=(7WU7W2+ZH3*7MMIS»/(NBr)SS<-VTH  + WEXT-«-Nl2l)  ♦ 71 
XiMn?  = xn  HXII2  + XII3  ♦(  Zl-Z(  181  )**2*NBOfiS  ♦(ZZ-Z  ( 181  I ♦♦2*WTH 
1 ♦( 7 3-7 ( 18  I I**2*WFXT+  ( X 1-Z ( 19) I **2*N12 I 
7W(  18  )=/(  IRIOMPZWT 
7(  19)  =0.0 
7W(  10»  = O.C 
X H ( !<;)  = O.C 
cr  TO 

3C8  IMP  = «; 

GP  TP  307 
3C<»  IMP  = 10 

3C7  IF  ( IPPINP  .GT.  0 ) WRITE(6,3C5)  AM AX, AE XI T , AT , EP T 
3C5  FPRMATI  2PH  FPPPR  GALrULATlNr,  F XI  T AREA  /2X,4E20.6) 

GP  TH  ?2 
3C2  PMAX  =PI/2. 

AA  = OMAX/  r.OSIBFTA) 

XX  ^ (RMAX-RT/CnS(  HF  TA  ) ) /TANIPHI  ♦ BFTA) 

YY  = XX*TAN( RFTA  ) 

C(  NX  = XV  ♦ PMAX*TAN1BFTA  ) 

PFLR  = riNX*YY/XX 
RE  = A7-  PELP-TKFXIT 

AFXIT=  PF*BE*PI 
3C3  JK  = JK  ♦ 1 

IF  ( JK  .GT  .30  ) GO  TP  30^ 

FPI  = AFX  IT/AT 

IF  (FPI  .IT.  2.5  ) GP  TO  308 

IF  ( AHS( EPPLD/FPl  -1.0). LT.  .001)  GO  TO  311 
FP^LP  = FPI 

FALI  N07FX(  GAM.FPI  ,PHI  ,PEPC,r,F  V,  IND) 

PF  = Drpr*pc 
I F(  INP.NF  .0  ) GO  TP  9023 
GP  TP  3C3 

311  PT  = SORT  (AT/PI  )♦(!.  - 0 .A*  ( 1 . /C  0S(  PP  I ) -1.)) 

XX  = (PMAx-PT/fnS(RFTA))  /TANIPHI  ♦ BFTA) 

YY  = XX*TAN(BETA) 

riNX  = XX  ♦ RMAX*TAN( BF TA ) 

FFLR  = r,lMX*YY/XX 
ISP=  r STAP*r,F/32.l  7A 
FXLT  = :lvIX 
GP  TP  312 
r ITFPATIPM  L(?PP 

l«3  CAU  PAMNPZin,  INO,  I PRI  NT,C  STAR) 

IFI  INP.NF.O)  GO  TO  9013 

7NFRF  G = p Hn*P  I*n*  I .05*XRN  ♦ ,1) 

N07WT  = N07WT  ♦ N121  ♦ ZNFRNP. 

IFI  I I(  1 1 ) .FQ.  0)  GO  TO  1A4 
r AGZZI F FAIRING  ITEM  19 


onST 1920 
POST  1930 
ROST  19  40 
PPSTIOSO 
PnST1960 
PPST1970 
POST  1980 
POST  1990 
PPST2000 
PnSTZOlO 
PnST2020 
pnST2O30 
HOST2040 
PPST2050 
POST  2060 
p9<;T2070 
POST20P0 
PnST20O0 
PnST2l00 
«nST2110 
“nST21 20 
PnST2130 
POST2  140 
PnST2  150 
P9ST2160 
PnST2l 70 
OOST21P0 
POST  7 190 
P9ST2700 
PPST2210 
°OST2??0 
P'^ST2230 
P9ST2240 
PnST2250 

p^ST2260 
Rf^ST  2'’70 
pnST2'’80 
PP'ST??''0 
“nST730n 
'>”57  2 3 10 
RnST2320 
PHR 72330 
HOST  2 340 
P9ST2350 
«”ST2360 
PnST2370 
RO  572300 
PPST2390 
R05T2400 
P”5T2410 
P”5T2420 
P”5T2A30 
BnST2440 
Pn5T2450 
PnST2460 
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i 

XAFT  = LrVL^  RB/N2 

CALI  ZCYU  H XRN,Zf'FRNG,RP  .XAFTtXl  I 119)  .Zd**)  ,ZW  (19  ) » 

ACX  = P !♦(  .5*r)-TC-N117l**2 
AFAT  = WARD(  10  » 

APAT  = ( 1 .-ETAX )*AGX/AT 
ir  ( APAT. GT, AFAT  I AFAT  = APAT 
Ct'ASS  PF  PPllPFlLANT  FWO  HEAD 

MPFH  = RHOP  *(  2.09«‘(  n*.5-TFH-Nl  lA)  **2  * (.5*D/N?-TFH  -NIU)  - 

I .5*AFAT*AT*0/N2»  - RHOPOVRFH 

CRASS  CF  ppopfllant  aft  HFAD 

MPAH1=PHDP*( 2.09*(n^ .5-TAH-Nl ISI •♦2* ( . 5*D/N23 -TAH-N 1 15 ) ) 

MPAH  = (HPAHl-RHnp*AFAT*AT*(.5*0/N23-TAH-Nll5) ••FMPAH 
A = P I*(n/2.-TC-Nl 17)**2 
CRASS  CF  PRHPFLLANT  CVLINDFP 
MPCYL  =MP-MPFH-MPAH 
ir(MpcYL»  2001, 2002f  2002 
2CCI  MPCYL  =0. 
t<KK=KKK*l 

20 C2  LCYL=MPCYL/( RHnP*( A-AFAT*AT) 1 
✓ TP  = MP*ISP/F 

C FCPWAPD  HEAD  WEIGHTS 

IF  (N2-  1.)  lRO,175,ieC 

175  MFMSTR  = Nl*RHn*  TFH  • I P 1 *0*0 /2. -N3* A T) 

INSUL  = N4*N  11A*1. 5708*10-2. *TFH»**2 
CO  TO  185 

180  SAYl  = SORT  I 1 1 . / 1 N2**2  ) I 

SAY  = Al  OG  I ( !.♦  SAYl) /(I. -SAYl)  ) 

MpMFTP  = Nl*RHn*TFH*(  0**2  * (.7854  ♦ .3925/(N2**2  *SAYl)  • 

1 SAY)  - N3  *AT  ) 

=^J^*^Jll4*(  ( C-2.*TFH)**2*(  . 7 £54*.  392  5*  S A Y/S  AYl /^2**  2 )-N  3*AT  I 
185  IPOSS  =4.5*N9*TFH  *PHO  * AT 

TGMTR  = NIO  *(LCYL  ♦n/N2  ) * . 0 1 766*  ( AF  A T*A  T ) **.  5 Ml 

pnHnwT=  mpmSTP  INSUL  ♦ IBOSS*  IGNITR  ♦ N13 
C CYl  INDEP  WEIGHTS 

mfmSTC  = PI  *FHn*  TC*0  *LCYL 
LINER  = N 1 17*M4*P  I*(n-2,*TC  »*LCYL 
TCIR  = N117 
TCIA  = N117 

CYLWT  = MCMSTC+L  IF'FR+N21 
C AFT  HFAO  WEIGHTS 

TAF  lA  = N 1 15 
TAHIM  * 2.*TAHI A-TC  IR 
CN  = SORT! 1.27323*FPSC*AT) 

IF  (N23-1.I  190,187,190 

187  MFMSTA  = 4. *N22*TAH*PHO  *(  Pl*0*0/2.-FPSC*  AT) 

INSULA  = N4*TAHIA*PI*( (0-2.*TAH)**2/2.-0N**2/4. ) 
rn  TO  195 

ICO  SAY1=  SORT!  1.- l./(N23**2  ) ) 

say  = ALOG  ( (!.♦  SAYl)/( l.-SAYl)  ) 

MFMSTA  = H22*TAH*RHn  *(0**2  *(.7054  ♦ . 3925 / ( N23**2  * SAYl)* 
1 say  )-FPSC*AT) 

IHSIII  A = N4*TAHI  A*(  I 0-2  .*  TAH  )**2*  ( . 7854*.  3 92  5*  S A Y/ S AYl/ N23**? ) 

1 -P  I*0N**2/4. ) 

1S5  80SS  = 4.*  N30  * TAH  * PHO  *0 

511  AFTHCW  = MFMSTA  ♦ «OSS  ♦ INSULA  * N33 


"nST2470 
PnST2480 
BnST?490 
8nST?500 
8nsT25lO 
PnST2520 
HnST2530 
PPST2540 
PnST2550 
BnST2560 
PnST2570 
“nST?580 
POST  2590 
"nST2600 
P'TST?610 
BnST?670 
8nST2630 
BnST2640 
'’0ST2650 
80Sr2660 
POST2670 
wnST2680 
BnST2690 
nnST?700 
RnST2710 
mST?720 
PnST2730 
PnST2740 
P^ST?  750 
"nST2760 
«nST2770 
“^$72780 
30 ST  2 700 
onST?800 
po<;T201O 
HnST?8?0 
nOSTZBBO 
nnST?940 
«nST  2850 
POST2860 
PnST2870 
noST?380 
80572800 
«nST  ?O00 
PnST2910 
0nST292O 
8OST2930 
»nST2940 
BnST?950 
P0ST2960 
8OST2P70 
POST  2980 
H0ST20on 
POST3000 
BOST3010 


I 


c 

r,  m 


r CIO 


MissiLP  weights 

FnR«;KT  = M3A  ?.*N35*TC*RHO  *G  ♦N36  *0**2  *(  r.*'Ax*ML/N37  * ( 

c^kskt  = M3<,  ♦ M35*TC*RH0  *0*?!  ♦N36  ♦0**2  ♦(  Gf*  AX  *ML  / M37  * ( 
i .215*(LCVL  ♦n/N2)/l)+l.  ) )**.5  ♦OLE  S*P  1 *0*  TC*RHO 
AFTSKT  = N38  ♦ 2 .*N39*TC*RH0*'‘»**2*N^0*0**2*  ( ( HL^KP/2.  )/N37 

♦ P I*\'39*Tr*RH0*D  ♦N40*n**2*(  (HL  + MP/2.  I/N37 

215*(LCYI  ♦^n/N23)/n  * 1.)  ) ♦•  .5 

tgtai  infrt  weight 

♦ CYl  WT  AFTHOW  ♦ FORSKT  4-AFTSKT  ♦ NG^WT  ♦ CXTWT 


AFTSK  T = M38 
I ♦ ( 


MF  = FGHOWT 
mpmf  = mp<-mc 


C 

r 


PUPNflUT  weight 


MR  = MF  4 Ml 


thrust- TO-WEIGHT  RATIO 


2*5 


20C3 
20  15 

2CC5 

20G7 


2 58 


2C  12 
20  U 


21  15 
2005 

2C  10 

?rr8 

2CC5 


LAUNCH  WEIGHT 

MQC  = MB  4 MP 
WPATI  = nFLVR/ISP/32.l7A 
WPAT=  2. 71 e28**WRATL 
MP  = (WR AT- l.)*(MR( 

L AUNCH 

FIMMC  = F/MPC 
IF(  J )?ril,?Cll,2‘=5 
F = FiMo  *Mnr. 

ICOPl  = LnoPl  ♦ 1 

IF( ABS( riMnc-FlMOI-.Ol ) 20 1 1 1 20 1 1 , 200 3 
IF  (KKK-A)  2015, 2CC6, 2005 
IF(innPl.GT.25)WRITF (5, 8 ADR  UN) 

IC(L0nPl-35  ) IA27,  1527,258 
ir(  IPRINP.NE.O)  WR  (Tt (6,2007)  SO  VI , MPFH ,MPAH , T S P, M P 
FMPMAT{45H  NEGATIV  CYIINOER  LE  NOTH  , OF  L I VF  R EO  DELTA  V * ,F10.3, 

1 17H  PROP  IN  FWD  HFAD,F1C.5,17H  PROP  IN  AFT  HF AD , F 1 0 .5 , / , 

2 5H  ISP  = , F1C.5,  17HBUPN  GUT  WEIGHT  =,F10.5) 

INP  = 7 

ro  TO  22 

IF  ( IPP  IMP  .GT.  0 ) WRI  TF  ( 6, 2C12)  FIMOC 

INC=5 

r.r  TP  2 2 

FnRMAT(45H  UNABLE  TP  FIND  THRLST  TC  WEIGHT  VA LUF , F 1 MOC= , F I 0 .5  I 
SPVI=  ISP*22.175*ALnG(MOC/MR) 

I rOP2=l  PPP  2*  1 

IF  ( APS(  SPVI  -PFLVR  )-  .001*nFLVR)  2 005,2005,2116 

IF  (KKK-5)  2005,2005,2006 

IF(  ( I riflP2*LPnPl  ) .GT.QO  .ANO.(  IPR  INP.NE.O)  ) WR  I TE  ( 6 , H AOR'iN ) 

IF  ( I PrP2+LnnP  1-  100)  152, 152,2008 

FOPMATISOH  UNAHLF  TO  CONVERGE  AFTER  100  I TEPAT 1 G\S,OCLT A V =, 

1 F10.3) 

IF  ( IPPINP  .r,T.  0 )WRITF(5, 20101  SOVI 
IMP  = 5 
GO  TO  22 
rpNT INUr 
SAY  = PHPP  * PI 
RP  = F/ISP/SAY 

MOTPP 

MMF  = MP/ (MP  ♦ MF ) 

SAW  * (P/2.-TFH)  ♦•2  *10  *.5/N2  -TFH) 

SAWl  = I D/2.-  TAH)**2  * (05.5/N23  -TAH) 

volumetric  loading  efficiency 


*10/2.  -TC  -N117)  ♦ (LCYL  ♦P*.5/N2  ♦0*.5/N23 ) *2. 


MASS  FRACTION 


POST  3020 
POST3n30 
HPST3050 
RnST30  50 
pnST3060 
«nST  3070 
BPST3080 
nPST’OOO 
FPST3100 
H^STi  1 10 
BPST3120 
PPST3130 
BnST3150 
RnST3150 
8nsT3l60 
RPSTR  170 
PnST3180 
PPST3  I'^O 
^0573200 
PnsT  3210 
ROST  3220 
POST  3230 
'’^913250 
of^ST3?50 
"'^573250 
RnST3270 
>^057  3280 

RnST32or( 

“OST  3300 
R''tST3  3 10 
t^nsT3  320 
9x3330 
ROST  3 34  0 
BMST  3350 
RPST  3360 
H'^ST3370 
POST  3 300 
POSTTAon 
PPST ’400 
P'’ST3410 
POST  3423 
“'’ST  3430 
Br’ST3440 
PnST3450 
P'’ST356n 
pnsT34  70 
'•PST3580 
POST  3590 
P'’ST35nO 
“PST35  10 
P^ST3520 
(•nsT3530 
•iPST  3540 
PPSTIFSO 
ROST  3550 
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VOlin  = (MP/RHOP)  /(PI  ♦LCYL* (n/2.-TC»**2  ♦2.09*(SAW  ♦sawi) 

PHO=PHl*57.29577«35 
itot=  F*TB 

IWPWT  = ITOT  / MOC 
MPA  = MP 

IT  = LCYL  ♦ r*.5/N2*nLFS*XRN 
!F( 1 I(  11)  .FO.O)  GO  TO  710 
r IGNITfR  BOSS  ITFM  1 

R=  SPRT( AT/P  1/2.  ) 

F*  TFH*3. 

R in  =R-F 

xr=  H/2. 

CALL  /r.YI  HH(H,  I PC^^.P.Rin,  XD,XI  I ( I ) , Z(  I ) ,ZW(l)  ) 
c Fwn  Cl nsuRF  item  2 

RPOSS=P 
PINS=  PP-TFH 
IFl N2.F0.  l.O  ) GO  TP  711 

CAIL  ZFLPLL(  N2,RHG,RF  ,P ROSS t TFH » 0. 0 , I , X I I ( 2 ) , Z ( 2 ) t ZW ( 2 ) ) 

ZW(2)  = Z( 2)*  MEMSTR 
r FWr  INSULATION  ITFM  R 

FP=R INS/(PR/N2-TFH) 

' CALI  7FLPLL  (FF,NA,  » I NS , R BOS S t Nl 14, TFH , I , XI  I (5  I , Z ( 5 ) ,Z W ( 5 ) ) 

r Fwr  PROP  FLL  AMT  ITFM  3 

;i2  PHOLF  = SQP  T(  AF  AT*AT/P  1 ) 

CALI  ZELPSS(N2,PHnP,RR,PH0LE,0.,l,XII(3),Zl3) ,ZW(3)) 
i ZW( 3)  = Z( 3)*  MPFH 

I C KNITFR  ITFM  4 

7(4)  = PROSS 

; 7W(4)  = PRDSS*IGNITR 

J X 1 1 ( 4 I = 0 . 0 

i C MISCFl  l.ANFOUS  FWO  NTS  ITFM  t 

IWT(6)  = Nn 
X 1 1 ( n.  c 

7(6)=. 5 

3 7V.(6)=  7(6)*N13 

S C CYL  CAST  ITFM  7 

] XIF=PR/N2 

* CALI  7rYLLL ( LCYl ,MFMSTC ,RR ,XLF,XI I (7) ,Z (7) ,7W( 7) ) 

J r rv|  INSULATION  ITFM  8 

I Pf*RP-TC 

1 CAIL  7CYLIL (LCYL.L INFP.Pl , XLF.XI I (fl) ,7 (8)  ,7W(8) ) 

' r M ISCFLL  ANFOUS  CYL  NTS  ITFM  S 

WT( Q)  * N21 
7(9)  = LCYL/2.  ♦ XLF 
7W(n)»  7(Q)*WT(9) 

XII(O)  * O.C 

r CYL  PPOPFLLANT  ITEM  10 

PPC  * RR-TC-N114 

CALL  7r YLHH(  LCYL ,MPC Y L , P PC , RHOLE , XLF , XI  I I 1 0) , Z ( 1 0 ) , 7W ( 10  ) ) 

C AFT  CLOSUPF  ITEM  11 

XAFT=  XLFa-LCYL 
PArT=  rN/2. 

PINS  = pp  -TAM 
IF(N23.FO. l.C  ) GO  TO  513 

call  7FLPLL(N23,PHn,PP ,P AFT , TAH, X AF T ,0 , Xl I ( 1 1 ) , Z ( 1 1 ) , 7W ( 1 1 ) ) 


°nST3570 
PnST3580 
POST3590 
PnST3600 
nnsT36io 
POST  3620 
RnST3630 
PnST3640 
ROST3650 
onST3660 
ROST3670 
“nST3680 
HnST36<50 
BPST3  700 
PnST3710 
Pn<;T37?0 
POST  3730 
PnST3740 
ROST  3 750 
pnST3760 
«nST3770 
PnST378n 
RnST37oO 
Pn<;T  3R00 
PnST3810 
pnsT3fl?0 
"OST3830 
an<;T3«40 
pn<;T3P50 
pnST3R60 
POST  3R7C 
pnRT  3880 
HPSTAPOO 
MPST3900 
PORTOO 10 
R'^ST  3920 
POST  3930 
P-^ST  39<,0 
PPST3950 
P|'ST39(S0 
(>nST3P70 
PnST39P0 
P'^ST  3990 
unSTAOOO 
PPST40  10 
P'^ST4020 
PnST4030 
nnST4040 
PPST4050 
PnST4060 
P9ST4O70 
pn<;T40P0 
BrST40O0 
PPST4100 
P9ST41  10 
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I 


7W(  11  ) = MFMSTA*  ?(  ID 
C AFT  INSULATION  ITFM  12 

FF=  PIMS/(RP/N?3-  TAH) 

CALL  7FI  PI  L( FF,NA,RINSt» AFT, TAHI A.XAFT.Of XT  I <1 2 ) , Z ( 12  ) , 7W ( 1 2 ) I 
ZWI  12)  = INSULA*Z( 12) 

r,  AFT  propfllant  ttfn  13 

51A  CFLAP  =MPAH1-MPAH 

HPLAFT  = SCP  T|  PFLAP/P  I /OHnP/RR*N23) 

PAP  = PP-  TAH-TAHIA 

Fpo  = PAP/( RR/N23- TAH-TAHIA) 

CALL  ZFLPSSI EFP,RHnP,RAP,HOLAFT, XAFT.O  ,XI I (13),Z(13),ZW(13)) 
ZWI  13  ) = Zl  1 3)*MPA*' 

C AFT  pnSS  ITFM  1A 

H=3.*TAH 
HH=  PRZN23 

Y = HH*(  l.-SOPTll.-IPAFT/PR  )**2) ) 

ACL  = HF-Y 
xrNrZ=XAFT+ACL 

CALL  ZC YLLLI H,RPSS,FAFT,xnNOZ , XI D 1 A ) , Z ( 1^ I , ZW ( 14 ) ) 

C MISCFl  LANFOIJS  AFT  WTS  ITFM  15 

X I I ( 15)  =0.0 
7(15)  = XAFT+  ACL/?. 

ZWI  15)  = Z(  151*  N33 
WT|  15)  = N33 
r FOPFSK  IP  T ITFM  It 

FI  SK  T =M35 

IF(N35.LF.0.C)  FI SKT=  RP /N2 
H rriSKT*  niFS 
XSKT  = FLSKT-  OLFS 

CAI  I ZCYl  I L (H,FOPSKT,RP,  XSKT,  XII  1 16)  ,Z  (16)  ,ZW(  l<>)  ) 

C AFT  SK  IF  T ITEM  1 1 
Al  SK  T = K 39 

ir(N39.LE  .0.0)  Al?KT=  RR /N23 

CALL  ZCYU  LI ALSK  T, AFTSKT,RR ,XAFT ,XI  I (17) ,Z ( IT) , ZWI 17) ) 

C ACZZLF  ITFM  18 

WTI18)  = NPZWT  - ZNFRNG 
Z ( IF ) = ZNCZ  ♦ XAF  T 
ZWI  18  ) = WT(  iei*Z( IP) 

X I I(  18)=  XINOZ 
WTT  =C.C 
ZTT  =C.C 
P''  50  1 1=1,19 

WTT  = WTT  tWTI I ) 

5Cl  ZTT  =7TT>  ZWI  I ) 

ZTF  = ZTT  - ZWI?)  - ZWIIC)  - ZW(13) 

/pnnsT  s ZTT/WTT  ♦ OLFS 

WTF  = WTT  - WTO)  - WT(IO)  - WT(13) 

ZFMTY  = ZTF/WTF  ♦ OLFS 
XITOT  =0.0 

xvnv  =0.0 

XMT  * 0.0 

cr  502  1=  l,  19 

X I TOT  = XITOT  ♦ XII  (I  ) 

XMT  = XMT  ♦(ZEMTY-Z  (I  ) )**2*WT(1  ) 

502  XMPV  = XMPV  ♦(ZPnrST-Z(  I I )**2*WT( I ) 


*>nST4120 
B^ST^OO 
HOSTA  140 
PnST4150 
P0ST4160 
POSTAl 70 
HOST41P0 
BOSTAIQO 
BF'ST4200 
B'TST42in 
P0ST4220 
PnST4230 
pnST4?40 
RnST4?50 
RnST4260 
Bi"ST4270 
FnST42P0 
PnST4?oo 
HnsT4300 
B0ST4310 
nnST4320 
nn<;T4330 
P'^ST4  340 
hPSTABFO 
PnST4360 
RPST4370 
RnST43P0 
host  43'JO 
pnsT4400 
RPST44i0 
P0STA4?0 
pnsT4A30 

nnST4440 
nnSTAASO 
pnsT44tO 
P'^STAATO 
POST4480 
pnsT4490 
POST4500 
POST4510 
PF'STASZO 
BnST4530 
POSTASAO 
pnsTA550 
PORTASfiO 
BnSTA570 
host ASPO 
ROST4F90 
PnSTAAOO 
P0STA610 
PnSTA670 
PnST463n 
HI  STA640 

postaaso 

POST  4660 


>fHPST  = XITOT  *■  VMPV 


Pn<;T<f670 


XFF=(ZFMTY-Z  ( 3)  )**2*WT(3)«-(ZFMTY-Z(10J  ) ♦♦2*WT  ( 1 0 » ♦ ( ZF  ^'T  Y-Z  ( 13)  )*♦  flfiSTA6R0 
12*WT(  13  » PnST46<J0 

X)FF  = XTI(3)  ♦ xn(lO)  *■  XII(13)  POSTAZOO 

XIIMT  = X'^T-XFF  ♦ XITOT  -XIFF  P0ST4710 

Tin  IFINPUT  )712,275,  712  Pn’;TA720 

711  CAIL  ZSPPLL(RHO,RP,TFH,PBnSStO.O,l,XII (2) ,Z(2) ,ZW(2))  PnST4730 

CALL  ZSPPLLIN'A.R  rNS,M14,RB0SStTFH,l,xn  (5)  »Z(5)  fZW(5)  ) PnSTA740 

Cr  TO  512  POST4750 

513  call  ZSPPLLCRHO.RP ,TAH,RAFT»XAFT,0,XII (ll),Z(ll ) ,ZW(11) ) pnST4760 

CALL  ZSPRLLl N4,R INS, TAHl A,RAFT,XAFTtO,Xl I ( 1 2 ) , Z ( 12 ) , ZW ( 12 ) ) POST 4770 

GC  TO  514  pnST4780 

712  TA-OTOR  = MP  ♦ MF  PnST47nO 

IF!  IFX  .NE  . 1)  CC  TO  713  PnsT4300 

CFVA  = CFV*  FJ  PPST4aiO 

ISPV  = rSTAP*CFVA/32.  174  rnST4B20 

713  CSUB  = PSUP*100.  PPST4830 

CPFLL  = lOO.^PPFLL  pnST4R40 

FWHLT  = n/N2*.5  PnST4rt50 

CASFKT  = MFMSTR+PFMSTA+MEMSTC  PPST4R60 

WTITPT  = INSIJL  ♦INSULA+LINFR  "0574870 

WPOSS  = IBOSS  + PPSS  PPST4H80 

WfOM  = N13  ♦ N21+  M33  PnST4890 

FPAPWT  = FGHOWT  ♦ FORSKT  Pn5T4,P00 

TOMIS  = FQRSKT  ♦ AFTSKT  pnsT4yio 

flFTAPW  = AFTHCW  ♦ AFTSKT  pn5T49?0 

FKT  = FPAPWT+MPFH  "0574030 

rWT  = CYLWT  ♦MPPYl  pnST4O40 

AWT  = AFTADW  MPAH  "0574960 

TFIKC  = .3  PPST4Of0 

TC  = TIFC*2.  PP5T4970 

CF  = FPAPWT  ♦ CYIWT  + AFTAOW  "n5T49P0 

IF(IPR1MP  .FO.O)  go  TP  275  PPST4O90 

PRINT  PPPSTFR  DATA  nPST5000 

WPITF(6,701)  PPST5010 

WRITF(6,702)'AP,F  .CF  ,MF,F1M0C,  TMOTOR  ,SPVI  ,CFVA  , "0575020 

1ML,ITPT,TB  ,MnC,I5r  ,RR  , MB , I 5PV , AF AT  "P5T5030 

WPITF(6,703ID,PP,MMF,LCYL ,PC  , VOLLD ,F WH LT , P AP  , I MPWT , XP N, P F , PP5T5040 

1 FFTA,PLFS,LT  "1^505050 

IF  ( IPRINP  .LF.  C ) GP  TO  275  pnSTSOfiO 

IF(  I I(  11). GT.  0)  PP5T5070 

lWPITF(fc,726  ) ZPPOST ,ZFMT >, XI IBST, XI  I MT  "P5T50e0 

WRITF(6,7n4)  IP  PPST50O0 

W"  IT  FI  6, 705)  MFMSTR.MFMSTC  ,MF  M5T  A ,C  ASF  WT  , I N5UL  , L I NFP  , I NSIIL  A , WT  ITrT"PST5100 
2, IPOSS, POSS.WBOSS,  IGNITR  , "P5T5  1 10 

3 IGNITR, FORSKT, AFTSKT, TCMIS, M3, N21  ,N33,wrPN,  "0575120 

4 FOADWT  ,f  YLWT,  AFTAPW  ,rH  ,MPFH  , MPC  YL  , M PAH  , MP  , NO  ZWT  ,FWT  ,r,WT  , AWT  , Pf'5T5  I 30 

5 TMOTOP  "0575140 

WPlTr(  6,706  ) N114,Tr.lA,TAHI  A,TCl  K,TAHIM,TFH,TC,TAH  "05751  50 

WPITF(6,714  ) FTU,FTY  ROSTSIPO 

714  FORMAT! FX , 23FLL TIM  ATE  CASE  STRENGTH  ,F R . 0 , 2 X2 IH YI EL C CAST  STPFNGTHPOST 51 70 

1 ,FR.O)  PnsTSlRO 

WPITE(6,707)TMIM  ROSTSloo 

7C7  FpPMATlfcX,  4rHTHE  MINIMUM  ALLOWABLE  CA5F  THICKKFSS  W A5 , F9 . 5/ ) RPST52 00 

IF(IFX.ME.O)  GO  TP  75C  "0575210 


HA  142 


li 


pn«;T52?o 

POST5230 

PnST52A0 

R()ST5250 

PnST5?60 

PnSTS270 

RnST52P0 

nn5TS290 

«nST53O0 

nnsT5in 


WP  ITF(f,,70P  ) 

WPlTF(f,70O)wCt  xc.rr,  ,OPELLtWA,  XI  tOEL  AfOSUPf  WTR,  PHO.Wf, 

lEPI.WTI.XI,  X3,FPSC,7l,AT,THI  KC,Xl,WRN,XRN',TAH,  7NFPNG,M21, 

2 NnzwT 

WP  ITF  (6,720  Yl,THEn,PC 
GO  rr  275 

750  WRITF  (6,755) 

WP1TF( 6, 751 )NPn  sc, STHP  SL , XC CNF , I NSRRG , TH I N1 N,XI NSUL ,Nn7WT ,XRN 
755  FrPMaT( //AX, 6HNPZ2LF ) 

WP ITF (6, 752)  0RFLL,PHP,FP1 ,EPSC,AT 
7'2  rrRMAT(2X,  52H  RFIL  HALF  ANG  EPI  ENT  RATIO  THROAT  APFARnST5320 

l/?x,RFin.5// ) '’nST5T30 

751  FPRMAT( 2X,77F  NP/ZLF  THREAT  FXIT  INSFRT  THROAT  rXPPST53A0 

IIT  CPNF  TPTAl  TOTAL  /6X,7AHB05S  STRUCTURE  STPUCTURF  PET  A INFRPST  5 350 
2R  ASSFPPLY  INSULATN  WFir,HT  LF  NG  TH/2  X,  8F 1 0. 5 / ) HnST5360 

701  FPRmaT(  AX,22HRPCSTFR  SIZING  OFTAILS  , PnST5370 

1 5X , 7)'WF  IP.HTS,  20X  HPST5JB0 

2,  IIHPEPFPPMANCF,  13X' INTFRNAL  BALLISTICS')  POSTSTOO 

7C2  form AT( 6X,  IZFPPPPF) LANT  ,F 1 0. 2, 5 X • ThR UST  • ,F 1 0 . 2 ,5 X' C F • , OX , F 9. 3 posts AOO 
1/  pnsTSAin 

16X,  l2HI\rRTS  ,F10.2,5X'THRUST/WT',F10.2/  BPST5A20 

26X,12HTnTAL  MOTOR  , F I 0 . 2 , 5 X • DE LT A VI  • ,F 10. 3 ,5 X' CF  VACUUM  • , F9 . 3/ MOST  5 A 30 

36X,  12HPAYI OAO  ,F10.2,5X'1  TOTAL  ' ,F 1 0 . 2 , 5 X • BUR N TIME  • , F Q . 3/ BPST 5 AAO 

A6X, 12FL AUNCH  WT  ,F 10. 2 , 5X  • I SP  OEL  • ,F I 0. 3 ,5 X' BU RN  RATE  • , F9 . 3/ “PST 5A 50 

56y,12HPUFN  PUT  WT  , F 1 0. 2 , 5X ' I SP  VAC  • ,F 1 0 . 3 ,5 X' PORT/TH PC AT • , F 9 . 3 ) POST 5 A60 

7f3  FPDMfTI  5X,  lOHO IMf NSrONS  , I 7X,SHPRE SSUPF S , 1 5 X , 1 3HM I S CEL  LA NF PUS  / POST5A70 


16X, l2Hn (AMFTFP 
?6X,  12H(  TOY! 


,F  10. 3, SX'OESIGN 
,P  10. 3,5X'CHAMBER 


36X,12HIT  FWO  HFAO  , F 1 0. 3 , 5 X • A MR  I E NT 
A6X,1?HIT  NOZZLE  , R 1 C. 3 , 5X 'E X I T 


TOTAL  /5X  ,7HWF  I r,HT  S ) 


•,F10.2,5X'MMF  • ,F9. A/RPST5AP0 

• ,F  10.2,5X' VOL  LOAPINO' , FO  .A/RPST5aoo 

• ,F  10.2  ,5X' ( I TCTI/WT  • ,F9 .2/ Bn<;T5500 

• ,F10.2,5X  ,12MACZ  CANT  AAT,  , P'^STSsm 

1 FB.?  /6X,10HCKIRT  FXTN  , onST55?0 

5 F12  .3/6X, PHTOTAL  LT,F1A.3)  onsT55?n 

726  FORM  ATI  6X,  12FCG  LPAopo  , F I 0.  3 , 5 X , 9HCG  FMPTY  , F 10 . 3 ,5  X , ) I HMC  I i PAORPS’’ 55aO 
IFC  , F9.0, 5X,  1 IH,M0I  FMPTY  ,F9.0  ) RpSTSSSO 

7CA  FORMAT!  lAX  ,2eHPPFAK0CWN  OF  CHAMBFR  OESIGN  ,15X,  9H  P 4T  F R I AL  , 3 AA  / a'^ST5560 

127X , A2HF0RWARn  PYLINOEP  AFT 

7C5  FPPMATIFXIAH  STRUCTURF  ,AF12.J/ 

16X,1AH  insulation  ,AF12.3/6X,IAU  BOSS 

,F  12.3  ,2AX,F12.3  / 

, F 12.3, 12X,2F12.3/ 

,AF12.3/6X,1AHT0TAL  PHAMPFR  ,AF12.3  / 

, AF12.3/6X,1AHN07ZLF  WEIGHT  ,36X,F12.3/ 

, AF12.3) 

7C6  FORMAT!  5X , I CHTH 1 f KMF S S /6X, lOHI NSULATI ON  / 

ISX.AH  AVn,  10X,3F  12.5  /6X,AH  M A X , 2 2 X, 2F 1 2 . 5 /6 X , AHC A S F , 10 X , 3^ 1 2 . 5 ) 

7r8  FPOM  ATI  AX26HflRFA  KmwM  OF  NCZZLF  OESIGN  /22  X , 50HWF  1 GET  LENGTH 

IThiCKMESS  DFSIPN  CONDITIONS  /2AX,2AHLRS  INCHES  INCHES/  P0ST56PC 

25x,6HI7SFPT  ) noST56O0 

7C9  FOPMATI  ?x, I 5H  GP APHI TF  , 3F I 0. 3 ,3 X , 1 2HPE RC E NT  poLL  ,7X,FQ.3/  POST5  700 

?5X,  ICH  APLATIVE  MATI  ,3E10.  J,3X,19HPERCENT  SU8MFRCF0  FR.i/  3f’ST57in 


26X,IAF  IGNITER 
36X,  1 AH  SK  IR  TS 
A6X,1AH  constants 
56X, 1 AHPPOPELL ant 
65X,  15HT0TAL  WEIGHT 


MOST  5570 
"OST  5500 

, F12 .3  , 17X  ,2Pl  2.  .3/nnCiTSS'30 

Rn<;T  5^00 


H”ST  5610 
HOST  5620 
P'’ST5630 
POST56A0 
HOST5650 
POST  5660 
HrST5670 


A5X,  15H  throat  PANO 
55X,  1 5H  PI  AMP 
65X,  15HINSFRT  TOTAL 
T'V, 15H  FNTPANCF 
R5X, I 5H  APT  DOME 


,FIC.3,23X,  19HHALF  ANGLE 

,F10.3,  23X, lOHEXPANSION  PATIO 

,F10.3,F1C.3/ 

, 10X,F  10.3,13X,  19HENTRANCF  RATIO 
, 10X,F10.3,1 3X,  19HTHRnAT  AREA 


, FQ.3/POST5770 
,r'7.3/PPST5  730 
BOST  57AO 
,F9 .3/POST5T50 
,F9.3/PnST5760 


HA  IA3 


8‘;X,  ISH  Cl  AMP  ,lOXfFl0.3/ 

9FX,15l-  FXIT  CONE  , I OX  , F I C.  1 /5  X , 1 5HP  AM  JE  T NOZZLE  fFlO.’t 

X /6X,  lAHNOZZLE  FAIPING  fFlC.3t 
X /6X,  lAHMISCELl  A^  E^US  ,F10.3, 

1 /5X,l5HTOTAl  NOZ  ASSY  tFl0.3» 

720  rpPMAK EX, 32HPAMJFT  NOZZLE  ENTRANCE  GEOMETRY  / 5X, 

133FAFT  DOMF/FNTP A7CE  TANGFNT  RADIUS  ,F8.3,i3H  ENTRANCE  ARC  , 

2 PH  DEGREES  / EX , 26HNr Z ZL F RADIUS  OF  CURVATURE  ,FR.3,17H  NOZZ 
3T  0.20) 

275  SCWT=(HTI  ♦ IGNITP/2.  ♦ MP  ) * FACTOR 
IF  I II ( 1)  .NF.  Al  ) GO  TO  8118 
WMC=r.ASFWT*KBnSS  + TOM  IS 

HPX=MP 

NnzWTX=NnZWT 
VP  I = WTITOT/N  A 
YIX  = Y I 

a SX=S0R  T(  ASA  ?)  ♦ nZ2. 

8118  CONTINUF 

rroM=n 

CASFMX=CASEM 
f#p=  MP*FACTnR 
MPMF=  MPMF*FACTOP 
FFX  IT  = CP  1 ♦ at  / 

PTMVAC  = F ♦ ISPV  / ISP 
PTHVAC  = RTHVAC  * FACTOR 
PFXIT  = PFXIT  ♦ FACTOR 


RETURN 


P AMNOZ ) 


PFXIT  = PFXIT  ♦ FACTOR 
8ISPV  = ISPV 
ponwp  = MP 

SFX  IT  = RR  * RR  ♦ PI  ♦ A fcA3 
CROPST  = I WTI  ♦ IGNITR/2. 
GROPFE  = MOC  * FACTOR 
CPOPFR  = ME  ♦ pACTor 
RFTURN 

IF  ( IPR  INP  .LF.  C ) RETURN 
WPITF  (6,9003) 

FORMAT!  16H  FRROR  IN  PAMNOZ) 
WRITE  (6,  12  ) INO 

WRITF(6,652)  APFZ,ML 

WRITF(6,PAnRUN) 

CALI  POUMPiWG,! SPV,5) 

RFTURN 

IF  ( IPF  INP  .LF.  0 ) RFTURN 

WPITF  (6,36)  MCASE 
FORMAT!  26H  ERROR  IN  SUBROUTH 
RETURN 

IF  ( IPR  INP  .LE.  C ) RETURN 
WPITF  (6,902A)  GAM,  FPI,  PHI 


/ lAA. 
FACTOR 


APFZ,ML,A6Z3,A5Z3,PA 


RETURN 


SUBROUTINE  MATLS 


FORMAT!  16H  FRROR 

return 

FNO 


IN  NOZEX  ,3E20.6) 


SUBROUTINE  COINLT 

NUK.CM-CGSM  P .K. MCDONOUGH  FIV/EPCO 


HA  lAA 


10/18/73 


P0ST5770 
2Fl0.8PnST5780 
POST5790 
POST5800 
ROSTSeiO 
RnsT5820 
F7.2,  P0ST5830 
LE  FLAROST58A0 
POST5850 
PnSTERAO 
IT'  ST5870 
POST  5880 
80ST5890 
P0ST5900 
POSTERIO 
POST5920 
PO  ST5930 
80  ST5RA0 
PnST5950 
ROSTSONO 
“OST5970 
“nST5980 
0OST5R9O 
POST6000 
°OST6010 
PnST60?0 
ROST6O30 
POST60A0 
POST6050 
POST6060 
PnST6070 
ROST6080 
MOST6090 
POST6100 
PnST61  10 
po<;tM20 
PnsT6l 30 
P0ST6 I AO 
PnsFNl 80 
HnST6  160 
POSTNITO 
OOST6180 
POST6190 
ROST  6200 
pnST62lO 
POST622n 
ROST6230 
°oST62An 
PP’ST6250 
“OST6260 


rniLoolo 
cnii  0020 


SUePTUTINF  FOR  INLFT  DRAT, 

COMMON /{H!TP  I / CDSK  IN  .CDPO  I V ,CDC  GULt CDP  AF  T , COFOI  V.CCFFWO  , 

1 nOTP8(8)t  CDPFWn,  nUTDUM(20) 

COMMON  /RJOAT/  ACA3,  RJ044(^) 

COMMON/PPINTR/  IPSM,  IPIM(2)t  IMRt  IPUM(3I 
CnvMPN  /INLSTF/  AWFO 

COMMON  /IPROP/  INO, I MIN,NFWPT, IRJOUT 
COMMON  /INDATA/  CDINL,  CLALF, WEIGHT 
common  /INOES/  X1(12».  r)FLltOEL2fOEL3,XMDFS 

CCMMON/COOEXX/  ININ(16) 

FOIJ I VALENCE  I IN  1N(  2» , I TYPE)  , ( INI  N(  15)  .NOUT) 

COMMON/FXTFPN/  ARR(20) 

EOUIVAL  ENCE  ( ARP ( 3 ) ,03) » (ARR ( 16) tXMZERO) , I ARR ( 1 7 ) , XMR JT C ) 
COMMON  / SUSOAT/  TX(A4) 

EGUIVAIFMCE  ( TX(  33),  SUSLT) 

OATA  C /0.C17A5325/ 

FOUI VAL  ENCE  ( SPEF,A3), ( AMACH , XMZERO,R M) , ( DBL,HBL YER) , 

l(  XLBYC,  FA  IRFR  ),  ( AFFPP  J , AWOFG  ) 

common  / INO  ATX/  HPP  n J,  HC,W,HBL  YER,  angle  L , ANGLEU,  ANGCUB  ,ABLr)  I V , 
IHPLOI V, XCHECK,XFRNG,XNAC  ,XDIST  , A WE T , A WE TFF , OE L E XT , AO  I VWT , 
ZXLPYO, AFFPRJ, ACPROJ,  T S TAR T , TF RNG , HP 

COMMON  /ALTCC/ 

IKl, ALT! 2A), SOTEMPI 24 ) , PR FSS ( 24 ) , I 01 8 ) 

common  /INCCMM/XLOUMP ,XFFRNGf  XINLET, XTI PCL,STERM,TNCZL 
riMENSION  TAR3(  50),TAPX(?0),TAaY(44)  , TAB  Z (22  ) ,FR  CTN'3  ( 42 ) 
riMFNSION  TAP4(20) 

TATA  TABX/0.0,  0.0,  l.O,  0,48C,  2.0,  1.740,  3.0,  2.46,  4.0,  2. 
lE.O,  3.32,  e.C,  3.72,  8.0,  4.25,  IC.O,  5.00,  16.0,  5.60/ 

CATA  TAPY/0.0,  2.0,  O.IC,  1.60,  0.20,  1.24,  0.30,  1.03,  0.40, 
10.89,  0.50,  0.80,  C.60,  0.72,  0.70,  0.65,  0.80,  0.60,  0.90,  0. 

21.0,  0.50,  1.25,  0.41,  1.5,  0.35,  1.75,  0.30,  2.0,  0.25,  2.5, 
3C.17,  3.0,  0.12,  4.0,  C.Ce,  5.C,  0.05,  10.0,  0.02,  100.0, 

40. 01,  1000.0,  0.0/ 

CATA  TAR7/0.0,  0.135,  0.80,  0.135,  0.90,  0.144,  1.0,  0.195, 

11.2,  0.190,  1.6,  0.167,  2.0,  0.140,  3.0,  0.092,  4.0,  0.065, 

25.0,  0.048,  6.0,  0.037/ 

CATA  TAR3  / 0 . , 0 . , .0 5, . 0 1 6 , . 1 , . 02 9 , . 15 , . 05 , . 2 , . 0 7 1 , .25 , . 09 8 , . 3 

1 . 122,  .35,.  151  , .4,.  1 8, .45, .212, .5, .247, .55  , .283  , .6, .317, .65,. 

2 .7, . AO 6, . 7 5, .45, .8, . 50  3, . 8 5,.  554 ,. 9,. 6 06 ,.95  , .667 , 1.  ,. 7 3, 1 .05 
’ .794,  1 .1,  .864,  1.  15, .93  1 ,1.2, 1.005  / 


rniL0030 
COIL0040 
COIL0050 
CriL0060 
C0IL0070 
COILOOBO 
COIL0090 
CO  ILOlOO 
'■OILOllO 
COIL0120 
CniL0130 
CniL0140 
C01L0150 
rniL0i60 
CniLO 170 
CniLO  180 
cniLOlOO 
CniL0700 
CPIL0210 
rniL0220 
r.niL0230 
cniL0240 
on  IL025O 
rniL0260 
CPIL0270 
CPIL0280 
99,  COILOZOO 
CO  ILO  300 
0011.0310 
55,  CPIL0320 
rPIL0330 
'•PIL  0340 
COIL  0350 
rniLO  360 
OOILOATO 
roil  03P0 
, COIL03<'0 

36,  miLOAOO 
, COIL0410 
CniL0420 


CALf'JLATE 

THE  INLET 

DP  AG 

rn IL04^0 

cata 

FPrTN3/ 

0.0,  0.0, 

1.0, 

0.5, 

0.973, 

0 . 75,  Cf'  IL0440 

1 

0.945,  1.0,  0 

.915, 

1.5, 

0.834, 

2.5, CrrL0450 

2 

0.65,  3.0,  0 

. 5 74  , 

4.0, 

0.445, 

5.0, CP  tL0460 

3 

0.'»53, 

6.C,  .29,  80CO0. 

, 0.0, 

1.0  , 

rniL0470 

4 

0.5,  0.978, 

0.  75, 

0.96  , 

1.0, 

0.933, CDlL048n 

5 

1.5,  0.858, 

2.5, 

0.68  , 

3.0, 

0.61,CPTL0490 

6 

4.0,  0.491, 

5.0, 

0.4, 

6.0, 

0.347/0911.0500 

OAT  A 

TAe4/ 

0.0,  0.0,  10.0, 

0.20, 

20.0, 

0.37, 

CD ILO 5 10 

1 

30.0,  0.5,  40.0, 

0.67, 

50.0  , 

0.80, 

CPTL0520 

2 

3 

PYPX ( A,P) =( 7 

60. C,  0.  8 7,  70.  0, 

90.0,  1.00/ 

.♦A**  2 *P**2  -1.1/6. 

0.92, 

80.0 

, 0.98, 

CDIL0530 

rniL0540 

CPIL0550 

XMSQOl A ,p ) =(  36.*A**4  •R**2  - 5. * ( { A*8 ) **2  - 
1 ( ( 7.*( A*R)**2  -1  .)♦( ( A4P  )Y*2  ♦5.)) 

1 . ) *(7. 

*(A*R)**2 

♦5.  ) )/  rDIL0560 
CP  IL0570 

HA  145 


1 


NAMFL  1ST  /OQ/  cn tM tCDPFWn,CnFFWOtCDPDIVfCnFniVfCnPAFT,CnSKIN, 

I rncnWL fP EYNACtAMACH.HP 
A3  = APR(  12)* lAA. 

SRFF=A3 

AC.  =a:A3  * A3 

ACPFR^AC/XNINLT 

KPYXIN  = 0 

CrSKIN=0. 

CFr.nwL=o. 

XN  IK'l  T = ITYPF 

ccp  Fwn=o. 
crFFwn=o. 
rrpniv=o. 
crFniv=o. 

CrPAFT=0 . 

CALL  Tl  UUHP,ALT,Kl,PPFSS,Pn,!Nr)) 

IF(  IMC  .NF.  0 ) r.O  TO  38 
CALL  TLUIK  SOTEMP,  TO  ) 

ALK=HP/ 1000. 

RHOA IR=PP/( E3.3*Tn ) 

RFOSL  G=PHO AlR/32.2 

XMU=(  0. 3n2/lOnOOCO)*(  ( 392. -nos.)  /(  Tn*l90.  ) )*(T0/39?.  I**l.9 
V SPUN 0=49 .02*S0R  T (TO ) 

REYFTM  = VSnUND*RHnSLG/XMU 
REYFT  =REYFTM*XMZ  FRO 
REY=RFYFT*( XCHECK/12.1 

IF(  ININ(l).GT.49.ANn.XR'ZER0.!„E.l)  GO  TO  502 
CALCULATE  THF  COWL  PRESSURE  COEFFICIENT 

IF(  ( XMZFRO.GT.XMR JTO  ) .AND.  ( XMZERO.GE . XMOES)  ) GC  TP  174 
CFLEMn=CEL  l*nFL2*DEL  3 
CFLL  IP=CEL FXT-DELENO 
CPLIP  = 0.0 

IP  ( XMZFRO  .LT.  XMRJTP  ) GO  TO  50 

C SFOCKS  PUTS  IDE  INLET.  HAVE  POSSIBLY  4 SHOCKS.  TWIS  PFTURAEO  IN  OEG, 
CALL  THETA(DEL1.XM7EP0,TW,IND) 

IF(  IMQ.NF .0  JGO  TP  49 
TWR=TW*C 

PlPO  = PYPX<  XMZEROtSIN(TWR)) 

XHl=SORT( XMSOOI XMZFRO, S INI TWR) ) ) 

CALL  THFTA(DEL2f XM1,TW,IN0) 

IFl  INP.NF  .0  )G0  TP  51 
TWR=TW*r 

P2P  1=P  YPX  ( XMl  ,SI  M TWR)  ) 

P2P0=P2P  l*P  IPO 

XM2  = S0PT(  XMSOni  XMl,  SIN  I TWR  ))  ) 
call  THFTA(PEL3tXM2,TW,INn) 

IFIIMO.NE.O)  GO  TP  52 
TWP=TW*C 

P3P2»PVPX(  XM2f  SIMTWR  ) ) 

P3P0=P2P0*P3P2 

XM3  = S0PT(  XMSOOI  XM2*  SIN  I TWR  ))  ) 

OFCK  IF  HAVr  EXPANSION  OF  SHOCK  OFF  EXTERNAL  CCWL  LIP 
IF  IPELFXT.GT.OFLFND)  GO  TO  53 
CPL  IP  = IP3P0-I.)/I.7*XMZER0**2  ) 

GO  TO  50 


rniL05P0 
COIL  0590 
CDiLoeno 
COIL  0610 
COIL  0620 
CniL0630 
C0IL0640 
rOIL0650 
C0IL0660 
COIL  0670 
COIL  0680 
C0IL0690 
C0IL070n 
CriL0710 
r0IL0720 
CniL0730 
COILO740 
rPIL0750 
PPIL0760 
r.OIL0770 
CDIL07R0 
CPIL0790 
COILOBOO 
cniLORlO 
CniL0R20 
CPILORRO 
rniLOR40 
coiLORsn 
rniL0860 
roil.ORTO 
rpILORPO 
CP  IL0R9P 
CP  IL0900 
rniL09io 
roiL0920 
rniLomn 
CP IL0940 
COILOP50 
CP  IL0960 
CniLOPTO 
CniL09R0 
CPIL  0990 
CPIL  1000 
COIL  I 010 
CPIL  1020 
CO  IL  1030 
ecu  1040 
COIL  1050 
COIL  1060 
COIL  1070 
CO  IL  1080 
COIL  1090 
COIL  1100 
COIL  1 110 
COIL  1120 


HA  146 


I 


I 
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r.  Cn  TD  53  INDICATES  SHOCK  OFF  COWL  LIP  AT  XM  ZERO. LT  .X  WOES 
53  CALL  THFTAI ( DELE XT-DFIENO)  ,XW3,TW,I NO) 

IFC  INC.NF.O)  GO  TO  A8 
TWR=TW^C 

PAP3=PYPX ( XK3f  SI M TWR ) ) 

PAPn=P3PO*P AP3 

CPL  1P  = ( P4P  0-  1.  ) / I .7*  XMZERn**2) 

GO  TO  50 

AF  PAP3=PYPXIXM3tl.) 
p/iPO=P<>P3*P3P0 

CPL IP=( PAPO- l.)/(.7*XMZERO**2) 
cn  TO  50 

C GC  TO  17A  INDICATES  ALL  INLFT  SHOCKS  INSIDE  LIP 
IIA  CELL  IP  = rFl  FXT 

CALL  THFTAIDELL  IPtXHZERO.TW.IND) 

IF(  IND.NF.OIGO  to  AS 
TWH=TW*C 

CPLIP=  ( XMZERO*XMZFPn*( SIN(TWR)**2  )- 1. ) *5. / ( 3 .* XPZER0**2  I 
CO  TO  50 

C GC  TO  A9  INCICATFS  DFTACHFD  SHOCK.  USF  NCRMAL  SHOCK  PRESSURE  R IS  F 
AS  CPLIP=  5.*l XM7FRO**2  - 1 . ) / ( 3.* XNZER0**2  ) 

CC  TO  5C 

51  P3Pl  = PYPX(XMl,  1.  ) 

P3PO=P3Pl*PlPO 

CPL IP=IP3P0-l.)/( .7*XMZFR0**2  ) 

GO  TP  50 

52  P?P2=PYPX( XM2, 1.  ) 

P3PO=P3P2*P2PO 

CPLIP  = (P3P0-I.)/(.7*XMZERn**2  ) 

GO  TP  50 
5C2  CPLIP=0. 

5C  CPPARxOPI  IP/2. 

IND  = 0 

CALCUIATF  the  nVFRTFP  PRESSURE  AND  FRICTION  DRAG 
calculate  the  diverter  pressure  drag 

IEIXMZFRO.LT.XMRJTO)  go  to  3AS7 
THEniV=  10. AC 

IF(  ITYPF.FO.  1 ) GO  TO  A271 

Acn  = anglfl  ♦ anglfu 
htot=hproj ♦HC»2.*TSTAPT 
XLOI V=0.5*HTOT/SIN( THEDIV) 

TOC=HTOT/I 2.*XLniV) 

GO  TO  A272 

A271  XLDIV=0.5*l W+2.*TSTART) /SINI THFDI V) 

TOC  = IW  + ?.*TSTART  )/(2.*XLDIV) 

AOPl  = ANGOUR 

IFI  INIMI  U.GT.AR.ANO.XMZERO.LE.l)  GO  TO  A273 
A272  CONTINUE 

XMM  = C.882PRM 

XCOH  = (RM*RM-I.OI/IPP*RN*TOC)*A(2./3.) 

XCCHR  = IXMM*XMM-1.0) /IXNW*XNM*T0C)**(2./3.) 

P = XCOM 
0L*0. 

IF  I P.GT.-3.0I0L*0.1233*IP*3.0I 
IF  (P.GT.-l.25)0L  »0.2U0.828*(P>l.25l 


COIL  1130 
CDIL  LIAO 
COIL  1150 
CDIL  llftO 
CniL 1170 
rniLii80 
COIL1190 
COIL  1200 
miL  1210 
COIL  1220 
C01L1230 
rniLi2A0 
CDIL 1250 
CniL 1260 
CniL1270 
CniLl280 
CD IL 1290 
r0IL1300 
COIL  1310 
CDIL 1320 
COIL  1330 
COIL  13A0 
CD  IL 1350 
cn  IL  1360 
f niL137n 
COIL  1 3R0 
CDIL 1390 
CO IL lAOO 
CDILIAIO 
cn  TL  IA20 
COIL  1A30 
•■niLlAAO 
COIL  1 A50 
cn IL 1A60 
COIL  1A70 
CniL  1A90 
COIL  lAOO 
miL  1500 
mil.  1510 
CDIL  1920 
CD  IL  15:^0 
COIL 15A0 
cn  IL 1550 
CDILl 560 
CniL 1570 
COIL  1580 
cn  IL  1590 
CniLl600 
CD  IL1610 
cn  IL  16  20 
CDIL 16^0 
CniL 16A0 
CDIL 1650 
CDIL 1660 
CD  IL  1670 


i 


i 


i 


i 


I 

I 

i 

I 


1. 


) 

i'i 


i1 

i; 

.1 


I 


K 


U7 


I 


I 


IF  (P.GT.1.2‘)0L=2.2P 

IF  (P.GT.  1.9)01*2.2  8-2. C85*(P-1.9) 

IP  ( P.GT.2.25)0L=1.55-0.314*IP-2.25) 
IF(  P.GT.<i.25  ) 01  *.9  22-. 0907*  (P-4. 25) 
fCTC  * OL 
P = XCCM0 
CL  = 0. 

IF  (P.GT  .-3.0)0L  = 0.  1233*(P+3.C) 

IF  (P.GT.-1.25)0L*0.21*C.828*(P*1.25) 

IF  ( P.GT.l.25)0L=2.28 

IF  ( P.GT.  1.9  )QI.  *2. 2 8- 2. 085*  (P-1.9) 

IF  ( P.GT. 2. 25 )0L= 1.55- 0.314* (P-2. 25) 
IF(  P .GT.<i.25)  OL  =.  922-  .0907*  (P-4.  25) 
CCTCB=OI 
Rr=03/2. 

SPL  = Arni*(  (RD+DPL  )**2-Pn*RD)  *C 


GGIL 1680 
C0IL1690 
foil  1700 
C0IL1710 
COIL  1720 
CniLl730 
COIL1740 
COIL  1750 
rniL  1760 
CDIL1770 
COIL  1780 
rniLi7P0 
CniLlROO 
CPIL1810 

CniL  1820  s 

CniLl830  j 


sriv=AP,Lniv  cniLi84n 

SOPL  = SDIV-S0L  COIL  1850 

CCPD  = CDTrB*(Sn(V/SRFF)*(XMM/RM)**2*((TCC/(XPP*Ki<M)  )**(2./3.)  ) COIL  1860 


r.rpniv=rr)pn 

Ct^PC  = 0.0 
HRLD=FBLniV 

IF  (DPL  .LT.HRLO)  C nPC=  (CDPO /SO  I V ) *SRL*COTC*  ( SOBL/S  R EF  )* 
I ( (T0C/(RM*RM) )**(2./3.) )*2.0 

IF( DRL. LT.HRLO)  rDPDIV=COPC 
GG  TO  A274 

4273  crpr)iv=o. 

4274  CrNTINDE 

CALCULATF  TFF  B/L  OIVFPTFR  SKIN  FRICTION 
RFYL  CG=RFY 


COIL  1870 
COIL  1880 
COIL  1890 
CniLlROO 
COIL  1910 
r.niLi920 
CniLl930 
cn  IL  1940 
rniL 1050 
CPIL1960 
COIL  1970 
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/ 

J 

I 

i 

I: 
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CF 1 1=0.482/1  ALOGIO(RFYLDG) )**2.62 
CALL  PL  INE(  2,  10,FPCTM3(  1 ) t ALK  , XM  ZERO  ,CFCF  I I) 
CPFD IV=CF1 I*CFCF I I*ADIVWT/A3 
GG  TP  1111 
3697  CONTINUE 

1F(  IN  INI  1).GT.49)  GO  TO  912 
CALCULATE  FWD  FAIRING  PRESSURE  AND  FRICTION  DRAG 
C ♦•♦♦♦♦♦♦♦♦NACFLLE  FORWiARO  FAIRING  DRAG*********** 


COIL  1980 
PPIL 1990 

COIL  ?noo 
CPIL2010 
rPIL2020 
CniL2030 
COIL2040 
COIL  2050 


FA IRFR  = XL  PYC 

IF(  FA  IPFP  .LE  . 1.  ) FAIRER*!. 

TNF=ATAN(  l.O/IFA  IP FR  ♦ F A I RF R ) ) *57. 296 

IF(Rh.NE.l.O)  GO  TO  91 C 

CALL  LINFIIO,  TNF,  TAB4(1),  CDPFl) 

CrPFWD*CDPF  1 

CPPFwn  » CDPFND  • AWOFG  / SPEF 
GC  Tn  911 
910  CHL*PH/FA  IRFR 

call  LINE! 25,DMLfTAP3,CnHW2) 

CFPFWC*!  AWOFG  )*  ( COWW2/PM**2)  /SRFF 
IF  ( RH  .LT.  1.0  ) COPFWn  * 0.0 
9 11  CONTINUE 

calculate  the  FRICTION  PRAG  ON  THE  FMO  FAIRING 
RFYFWD*RFYFTM*XMZFRO*XOI ST/12. 
CFFwri»C.482/(ALOG10(REYFWO) )**2.62 
CALL  BL  INF  I 2, 10 t FRC TN3 ( 1 ) . ALK , XMZE ROtCFCF 1 1 ) 


COIL  20 60 
CPIL2070 
CPILZOPO 
rniL2090 
CniL2100 
cniL2il0 
CniL2120 
CniL2l30 
CPIL2140 

CPIL2150  '! 

CniL2160 

CPIL2170 

C0IL2180 

CniL2190 

CniL2200 

CDIL2210 

C0IL2220 


HA  148 


(rFFwr=CFFwPI*CFCF  I I*AWETFF/AJ 

r0IL2230 

CO  TO  1 1 1 1 

C0IL2790 

9 12 

crpFwn=c. 

CniL??50 

CnFFWD=0. 

CniL2260 

a FT 

FA  IR  INC 

CDTL2270 

1111 

rOMBTL  =0. 

CCIL2280 

IFI  ITYPF.FO.l)  Cn  TO  7899 

Cnil  2290 

STERM=  ( HRL01V*k<*2.*TSTART) 

CDIL2300 

PTnT=HC+MPROJ+2.*TSTAP  T 

CP  IL2310 

Cr  TO  7850 

CniL2320 

STFRH=  ( HBL0IV+HC«-HPRnj+2.*TSTART) 

CniL2330 

|-TnT=W*2.*TSTART 

FntL2390 

7850 

continue 

C0IL2350 

AEFF=  ETOT*STEPM 

CniL2a60 

nEEF  = 1.1203e*SORT(  AEFF  ) 

rniL2370 

PI n = XFPNG  / OFFF 

r.n  IL2380 

PWCP  = .865  ♦ . 032  ♦ F'uD 

CDIL2390 

FniL?900 

PETA  = S0RT(ABS(PF'**2-1.)  ) 

CniL2910 

IF(PM.GT.l.l)  GO  TO  851 

CniL2920 

THDBT  = ATAN<  0.5*OEFF/XFRNG) 

CDIL2930 

IF(RM  -1.0)  1000,750,850 

CniL2990 

851 

RLOB  = ( Rl 0 ♦ RLD  )/PETA 

CniL2950 

CALL  L INF(  lO,RLnB, TABX,C0A) 

CriL2960 

C0BTL=  0.25*C0A*(l.0/PL0)**2 

CniL?970 

eco 

rCMPTl  =CORTL*AFFF/SPFF 

CniL79PO 

pnVFR=PFT A/Rin 

ri1IL2990 

FALL  1 IME(  22,BOVFR,TARY,CnRT) 

foil  2500 

CDMBTX=C0BT/RLC**2 

Fn  IL2510 

IF  (rONBTX  .GT.  CONPTl 1 CONBTL  = CONBTX  * AEFF  / SREF 

FFII.  2520 

GO  TO  760 

F.n  IL2530 

750 

FONT  IMUF 

FniL7S90 

CnPTL=0.23  3/(THnPT*P  LD*RL0) 

mil  2550 

ro  TO  POO 

FO IL  2560 

CD 

O 

CONT  IF!UF 

F0IL7570 

fort  l=0,2  33/(THrBT*PLn*RLn) 

FO  1L75PO 

IFlPLD.l  F.2.)  GO  TO  900 

COIL  2500 

fail  L inf ( 10,RLnP,TABX,COA) 

F0tL?6n0 

rrppTL=o.25*cnA*(  i.o/rld)**2 

rniL2610 

CCMPTI  =CnPRTL*AFFF/SREF 

rniL2620 

GO  TO  1200 

rn  IL7630 

900 

FONT INUF 

Fn  n 2690 

PnvFR=BET A/RLD 

CO  IL2650 

CALL  L INE( 22,B0VFR,TAPY,CDBTI 

FFII  2660 

C0PPTL=C0PT/RLn**2 

FniL2670 

XFRAC=10.*(  1.1-RM) 

con  7680 

rCLCO=CnPBTL-CnBTl 

FniL2690 

CONPTL =F0BT1  ♦XFP AC^DELCO 

FPI L7700 

FnNPTL=CON8TL*AEFF/SPEF 

rniL2710 

GO  TO  760 

rn  1L27  20 

1000 

CONT  INUF 

miL2730 

IF  ( RM  .LE.  RMCR  ) GO  TO  9728 

mil  2790 

XFP  AC=(PVI-RHCR  )/(  1.0-RMCR) 

CniL2750 

C.0PAT  = 0.15*XFRAC  ♦ 1 .97*XFRAC.**2  -0.62*XFRAC**5 

FniL77bO 

rOBT  1=0.233/(THDPT*PLD*RL01 

FP  IL2770 

L 


Ha  1^9 


CCNHTl  =rnRT l*CnRAT*AEFF /SRFF 
GO  Tf)  1200 

760  FAll  L IMF(  I l,RM,TAB7frPR) 
rCRASF=CPB*AFFF/SRFr 
IF(  CrPASF.LT.CDNPTL  ) C0NBTL*Cr)8  ASE 
ro  Tn  120C 
<5728  Cr\TIMUF 

CHNRTL  = 0.0 
12C0  rriNTIMUF 

CrPAFT=CONBTL 

P FYNAC=REYFTM*XM7FPO*yNAC/l2. 

CF I INC=0.^e?/J ALOGlCfPEYNAC ) 1**2. 62 

CALL  Rl  IMF(  2t  10,  FPr,TM3(  n f ALK,XMZFRn,CFCFn  ) 

CFCOMPsCFI  INC*CFCF  I I 
CCFINL=rFCOMP*( AWFQ-AWFTFF) /A3 
rrsK  iN=rnF  inl 

CCCnWL  = CPRAR*ACPROJ/A  3 

cru'L  *rr)PFwc*f nFFwD*rnpoiv*coFni  v+cnpAFT+CDSKi  N*cccnwL 

CniNl  sCDINL  *XNINLT 

IF  ( mOUT  .GT.  I ) WPITF  ( 6,  QO  ) 

6 FPRMATC  13H  INLFT  ORAG  =,F10.5) 

RFTDRN 

28  IF  ( MOLT  .NF.  0 ) WRITF(6,39»  HP 

29  FnRMAT(<,6H  ERROR  TRYING  TC  F I NO  ALTITUPE  OATA  IN  CCINIFT 
PFTIJRN 

FNO 


rniL27flo 
FniL?7Q0 
COIL  2800 
CniL28lO 
rniL202O 
fo  IL28  30 
CD  11.28^0 
CriL2850 
rniL2860 
C0IL2870 
r.niL28R0 
ro  IL28‘)0 
ro  IL2900 
rniL2qio 
CniL2920 
rniL2930 
CniL29<iO 
rniL2980 
r<'IL2960 
CniL?<570 
rniL2q80 
rr  IL  2P'50 
r.niL3ono 
,E15.S)  COR  3010 
rr)iL3020 
rniL3030 


SlJRPnUTIMF  FXRAM 
COM^riN  /COMVLS/  COMIBll 
fouivalfncf  I r.0M(7),  wcomm), 

1 ( r.oMi  eitVCOMi), 

2 ( r.OHI  <51,8  61, 

3 ( rOM(lOI,Yl), 

8 ( COM ( 1 1 ),WNn7  ) 

common  /FAILUR/  KFAIl 
COMMOM/COOEXX/  11(16) 

COMMON  /MATTYP/  IB(3I 

common  /ERPPT/  POMBI^) ,MUM, 1 ARI ( 2) 

COMMON  /FXTFRN/  AR  (20) 
fouivalfncf  (AR(2),03) 

CPMMON  /FMPT/  HP,AM6CH,ALFl,FARn 

COMMON  /RJCAT/  CFNR0,CFNFT,A5A3,A6A3,ACA3,  SFC,RnSTV.T,Pn<;TLT, 

1 ROSTPP 

COMMfiN  /IPRPP/  INO,  IMIN,NFWPT,IR  JOUT 
COMMON/ INLFTX/ 

fKP,(<PTC(  IS  ),  ALPHVI  15)  ,AAMACH(  15,15)  ,AnACC(  IS  ,15  » ,PT3  FT  C ( 1 S,  15  ) , 
lAcnni 15,15) 

COMMON  /ALTnn/ 

IK  1, AL  T(  26)  , SOTFMP ( 26 ) ,PP F SS ( 26 ) , I 0 ( 8 ) 

common  /fxtrj/iskip 
COmmON/FXXP J/  FX(68) 

FC  TVAI  FNCF 

KFXI  1),PHI  ),(FX(  2), theta  ),(EX(  3),TFXIT  ),(FX(  6),TTHRrT), 


EXRMOOlO 
FXRM0020 
FX  RMOOBO 
FXRM0n60 
FvbmOOSO 
FXRM0P60 
FXRM0070 
FXRM0080 
FX  RMOOPO 

rxRMo  100 
rxRMO  1 10 
FXPMO  120 
FXRMoion 
FX  RM0160 
FXRMO  150 
FXRM0160 
FXRMO  170 
FXRMO IPO 
FXRM0l<50 
FXRM0200 
rxRM0210 
FXRM0220 
FXRM0230 
EXRM0260 
FXRM0250 
FXRM0260 


1 


HA  150 


2(FX<  5I,TPNT  ),(FX(  6 ) , RHPEX T ) , ( E X(  7 ) t RHOTHT)  , ( E X ( P),RHnENT 

3(FX(  9),  FXTFR » , (EX( 10) .RHOX  ) , (F X f 1 1 ) , TMI NC  ) t ( F X ( 12 ) ,T M I ND 

<i(FX(13),FL  ),  (EX(  14),FSL'LT  ) , ( E X(  1 5 ) ,F  S YLD  ) , ( E X ( 16  ) , T I K'S 

5( EX(  17),RHniN  ),(FXI  ia)fXSTAR  ) t ( E X ( 19 ) tC LE AR  ),(EX(20),Cl 

6(FX(2ll,r2  ),<FX(22),C3  ),(FX(23),C4  ),(EX(29),C5 

7(FX(29),r6  ) , (EX(26) tTINAFT) , (FX( 27) ,WRJ  I , ( E X ( 28  ) , X R J ), 

8(  FX(  29),  TFMPC  ) , ( E X ( 30  ) , M TLRA  M ) , (F  X ( 3H  , R3  ) , ( E X < 32  ) ,RCR  5 ), 

P(FX(33),nS  ) , ( EX( 39)  ,PHn  ) . ( F X ( 35 ) , TAH  ) , ( F X ( 36 ) , VnpMES  ) , 


8{FX(  37),TCYL  ),(FX(38),A3  ) , (E  X ( 3'» ) , SSAF  S ) 

CrMMFM  /FXCWT/  WT( 15) 

ri^'FNSiriN  7C  15)  .7W(  15)  fX)  I ( 15) 

rOUIVAl  ENCF  (WT(  l),FwnWTS),(WT(2),FWDWTI)  ,(WT(3)  .BCSPMP), 


FV  RM0270 
FXPM02P0 
FXRM0290 
EXRM030a 
FXRM0310 
FXP''n320 
FX  RM0330 
FXRM0390 
rxPM0350 
FXPM0360 
FXRMn370 
FXRMOBBT 


l(WT(9),WrYS),(WT(5).WCYLI).(WT(6),EXTI),(HT(7) ,SKTS) , (WT (9 ) , AFT RKGFx RMO 360 
2),  ( WT(  1 1 ),  AOWTS)  , ( WT(  12)  .AOWTI  ) , (WT(  13)  .WENT)  , ( WT(  19)  .WTHRPT  ) , FXR'^fl^.oO 
1(WT(  15) ,WEX IT)  FXRM0910 

ri  n)MP  prss  ^'ULT!PLlFR  FXRM0920 

C.2  SKIRT  V.T  MULTIPLIER  FXR'10930 

C3  attachment  ring  MULTIPLIER  FXPMn99n 

C9  MISC  FWn  WT  FXRM0950 

C5  MISC  r Yl  WT  FXRMn96n 

C6  MISC  Mf’7  WT  FXRM0970 

DATA  PI  /3. 19159/  FXRM09flO 

IF  IISKIP  .FO.  1)  GO  TP  10  FXPM0990 

ISKIP  = 1 FVRMnSOO 

CALL  THIIIHP, ALT, Kl, PRESS, PC, IND)  FXRM0510 

IF  (IMP  .NF.  0 ) GO  TP  38  '■XPM0570 

TO  = 500.  FXRM0530 

CALL  ISFNI TC,PO, AMACH,TT2,PTn)  FXRM0590 

IFIKFAIL  .GT.  0 ) RETURN  cxRMn550 

CALL  TLU2( ALE  1, ALPMV,K  8, AM ACH , AAM ACH ,KPTC , PT3PT C , PT P , I NP)  FXRMn5  60 

IFIINO.NF.O)  GO  TP  2019  FXRM0570 

prr  = PTP*PTP/199.  FXDM05PO 

ripUT  = 1 '=XRM0590 

P3  = r3/2.  FXRM06n0 

RrP5=  0.9  FyRM06lO 

A3  = n3**2/9.*PI  ‘^XRM05?0 

ADUMP  = A3/6.  F''6*106  30 

rs=  P3  -2.*EXTFR  FXRMO690 

FALL  MA Tt  SIMTLP Am.tEMPC ,PHn,F TU,FTY, INP)  rxPM0650 

IF(  lAT  .ME.  0 ) GP  TP  35  ryDM0660 

TfYLU  =FSUL T*PCC*nS/(FTU*2. ) rxRM0670 

TCYIY  =ESYLD*PCC*nS/(FTY*2. ) FXRM0680 

TCYLT  =Amax11 TCYLU,TCYLY)  EXRMOBOO 

TCYI  = AMAXl(TCYLT,TMINC  ) FXRMOTOO 

TAHU  =FSULT*PCC*EL*nS/ETU/9.  FXRmotio 

TAHY  =ESYLD*Prf*FL*nS/ETY/9.  FXR“07,->n 

TAHT  =AMAXl(  TAHU,  TAHY  ) FVRMOT-^O 

TAH  =AMAX1( TAHT, TMIND)  FX RMO 790 

IF(Fl  .LE.  l.)Gn  TP  U FXRM0750 

SFF  =(  l.-l./(  EL*EI  ) )**.5  FYRMn76n 

SSAES  =(P I*DS**2)/9.*( | PI *0 S**2) /I  8. *Fl ♦*2*SEE)  ) * A LCG I I 1. ♦SEE ) FXRMO770 

l/(l.-SEE))  FXRMn780 

1?  FWnwTS=  SSAF  S*TAH*RHC  r.9  EXRMoxqo 

EWnwTI=  SSAFS*T?NS*RHOI  N fxpmoPOO 

FCSOMP  = AnLMP*RHO*TC YL  *01  FXRM0810 
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VrOMFS=PI*(rS-2.*<  TINS  + TAH) )**3/(6.*EL» 

10  R6  = SCRTf A6A3)*P3 
RS  = SCRT( A5A3)*R3 
PC  = RCR5*R5 

X A = RC  ♦SIN  <PHI  ) 

XP  = (R6-RC  ♦(  l.-CnS  (PHI  ) I-R  5)*C0S(  PHD/SINIPHl  ) 

XI  = XA  + XR 

V7=  ( l.-r0S(THETA» I^RC 

YD=(R  3-P5  )♦.« 

IF(Yn-YZ)  30,31,31 
20  rnTH=-Yr/RC>i. 

IFirnTH.GT.l  ,0P  .rOTH  .LF.  0.)  GO  TO  3<» 

TANC=(SORT(  l,-C0TH^^2) ) /COTH 
THFT=  ATAN(TANCI 
TFFn=THET/.017A532S 
X3=Pr^S  IN(THET  ) 

Y1  = R5  ♦ YD 

TF(  >(3<IT  ^3 . 1)  WRITF(6,6)  THED 

6 FnflMAT(53H  IFF  RAMJET  NOZZLE  ENTRANCE  ARC  HAS  REFN  REVALUED  TC 
1F7.1,  8H  OFGRFFS  » 
rd  TP  32 

11  SSAFS  = P I ♦ DS^^2/2. 

GO  TP  12 

31  X3=PC^SIN(  THETA  I 

Y1  = R5  ♦ RC^I 1 .-CnS( THETA)  ) 

THET  = THFTA 
TFEO  ■=  THETA/. 017^533 
3?  Zl  = SORT! (R3**2-Y1^^2) /FL**2) 

XPN  = Z1+X3+XI 
r.  EXIT  SECTION 

CELN  = TAH  ♦ TFXIT 

BHON  = (PHO^TAH^PKIEXT^TEXITI/OELN 
YN=  PELN/2./C0S( PHI  I 
YMl  = R6  + YN 

YH?=  RS+PC^I  1.-C0S(PHI  ) )+YN 
PPRMl=(  YHl*YM2)/2. 

ARPNl=XP/CnS(PHI  J^OEIN 
WRXIT  = 2,*P  I*RBRN  I*APPN  (♦RHON 
C throat  SECTION 

XT=2.*XA 

RHOT  =(RHO*  TAH  ♦ 1 . ?♦  T TH  RO  T*RHO  TH  T ) / 1 T AH  -f  1 . 5*  TTHRfT  | 

CFLM  =TAH  ♦ TTHPOT  ♦l.S 
APRN2  = XT^  CELV 
PPPM^  = P5  ♦ nElM/2. 

WTWPPT  = 2.*  AflRN2*RHaT  ♦PI^RBRN2  +06 
r ENTPANCr  SECTION 

TFAH  =TAH  ♦ TENT 
YM3  = YZ-  TFAH/2, 

XE=X3-XA 

XA=SORT(  XF^^  2 ♦ I VM3- YM2  (♦♦2 ) 

APRN3  = X<,^TFAH 
BPPN3  x(YM34YM2  )/2. 

PEMT=(RHO^TAH4RHOENTPTFNT) /teah 
WENT=2.*PI*RFNTPAPRN3*R0RN3 
WPN  = HENT  4MTHRCT4  WEXTT 


EXRM0820 
FXRM0830 
FXRM0840 
EX  RMORSO 
EXRM0860 
EX  PM0870 
EXRM08R0 
EXRM0R90 
EX  RM0900 
EX  RM0910 
EX  RM0920 
pYOMOOOO 
FXRMnoAO 
f:XRMP9S0 
FXRM0960 
EXRH09Z0 
EXR''0980 
FXRM  0090 
EX  RM 1000 
FXRMIOIO 
FXRM 1020 
EXOM1030 
FXR*^!  OAO 
rx  OMl OSO 
EXPMlOtbO 
FXRM1070 
EXR'^  lORO 
EXPMIOOO 
FXO«l 1 OO 
rx  PM  1 i 1 0 
FX  RMI 120 
EX  DM  1 I 30 

cxo«  1 l<,0 

PXDM  1 I so 
FXRMl 160 

rxPMi 1 70 

fxRMiipo 

FX  RM 1 1 OO 
FXRM 1200 
FXRM  1 2 10 
EXRM1220 
FXRM1230 
rx  RMI 2A0 
EX  DM1250 
FXRMl 260 
rxRMl270 
FX  RM 12P0 
EXRM12O0 
EXRM1300 
EXRM1310 
FXRM  I 320 
FXRMl 330 
FXRM 13A0 
FXRMl 350 
FXRM1360 
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fPSr  =(Yl/R5)**2  FVRM1370 

VOE0=  ft5A3*A3*X STAR  FXRMI^OQ 

VfYL  = VPFO  - vnCVFS  FXRMi3qo 

xrvi  = VC  YL/ (PI  ♦ (r  S-?.*  ( TCYL  + TINS  » )**2.  ) *4.  FXPMl/;oo 

C I=nS-2  .«T  INS  FXRMl^jlO 

WCYS  =P  I*nS*XCYL*TCYL*RHC  +C  5 FXRM1420 

WCYl  I =P  I*ni*XCYL*T  1NS*RHC1N  FXRMl^^30 

AAFT  =(  SSAFS/2.-FPSC*A5A3*A3)  FX'’Ml<*40 

ArwTS=  AAFT*TAH*RHn  FXRM1450 

AriJTI=  AAPT*T  INAFT*RHniN  FXRMIA60 

ATTAO  = A.*P  I*OS*TMINC*RHO  *Ci  FvPMl<*70 

XSKT  = nS/FL/2.  FXRMl^^pO 

XSK1=  XSKT*  CLFAP  FXR'M^fqo 

SKTS  =P  I*nS*XSK  l*TMINC*RHn*C2  FXRHISOO 

AFTFNG  =P I*CS*XRN*TM IMC*RHO  FXRM1510 

XPJ  = XCYL+XSKT  ♦clear  ♦ XPN  EXRMlSpO 

FXTI  =PI«D3*XPJ  ♦EXTFR*RFOX  FXRMIS30 

WTIP)  = ATTAr.H/2.  FXPM1S40 

WT< 10 ) = WTI fl)  FXPmISSO 

WPJ=  0.0  rxR^^lS^O 

rn  los  1=  I,  15  FV  PM  1 STO 

10“=  WPJ=  WPJ+  WTI  n FVP'^lSpO 

IF(  I I ( I 1)  .FO.  0)  GH  TO  no  PyPMisqo 

ITEM  I FWD  POME  FxP'Uf'OO 

PS=  rS/2.  rxRMlMO 

RI=  PS-TIMS  ryOM  1^,2  0 

iriEL  .ir.i.)  GO  TO  100  pyoMi^iO 

CALI  7ri  PLLI  FL,RHr,RS,0.0,TAH,0.0,l  ,XI  I III  ,Z(l)  ,ZW(1)  ) ry'’Ml64n 

ITFM  2 Fwn  INSULATION  fyRMl6‘’'0 

F=PS/FL-TIMS  pypMlhfio 

FF=  RI/F  ryRMl>>70 

cal  I ZFLPLL  ( EF,PHniN,F  I , C.Ct  TINSf  TAH  ,l  , XI  I (2)  f 7 (2)  ,ZW(2  ) ) Fx  pm  1*>pO 

ITFM  3 rUMP  STIFFNFRS  ryoMlhOO 

Id  CALI  ZCYLLL  ( R S,  ROSOMP  ,R  SfXSKT  ,XI  I ( 3)  t 7(31  t7W(3  ) » ryp^iToo 

ITF“  a SIDEWALL  CASE  ryPMi7i-) 

CALL  7CYILI  ( XC  YL  t WC  Y S , R S , XSK  T , X 1 I ( A 1 , Z ( A 1 , ZW  ( A ))  ryu-<i720 

ITEM  5 SIDEWALL  INSUIATICN  pyP^iZiO 

CALL  7CYILL  ( XC  YL  , WC  YL I ,R  I ♦ X SK  T,  XI  I ( 5 ) f Z ( 5 1 , ZW  ( 5 I 1 FyPMl/AO 

ITFM  f,  fxFPNAL  IMSULATICM  FXPMIZSO 

XPJ  = XCYL+  XSK1+  XRN  EX  pm  1 7fr0 

CALL7CVLLL(XRJ,FXTI,P3,0.0fXII(6),Z(6),ZW(ft))  FyPM1770 

ITFM  7 SKIRT  WT  FWE)  FXPM17R0 

fall  7CYlLL(XSKl,SKTSt  R S , 0. 0 , XI  I ( 7 1 , Z ( 7 ) , ZW ( 7 ) I FXPmi7oo 

ITF'*  P ATTACH  WT  FWO  ryP'MHoO 

CALL  7C  YLLL  ( 2 ..WTI  PI  ,P  S,  C.C.XI  I ( R)  ,Z  (8)  , ZW(fl  ) ) FyPMjqn 

|TE«  O AFT  FA  IR  PIG  ryPMlP^o 

EIX=  XSKl  ♦ XCYL  fyR*UR30 

CALL  ZCYLLLI  XRN,  AFTFNG.RS.FLX.XI  I (9)  ,7  (9)  ,7W(9n  FyPMiq-vo 

ITEM  IC  AFT  ATTACH  WT  EXPMieso 

FI  X2=  FIX  ♦ 71  FypMlPFO 

CAM  ZCYLLLI  2.,WT(  101  ,RS,FLX2,XI  I (lOl.ZIlO)  ,ZW(10)  1 FXPM1R70 

ITEM  11  AFT  EIOMF  FyPMlRpO 

CALL  Zf  LPLL  ( PL  .PHC  ,R  S.FPSC  , TAH.FLX.O.  XI  I ( 1 1 ) ,Z(  1 1 I ,7W(  1 1 I ) FX  pm  189  0 

ITEM  12  AFT  INSULATION  EYRmINOO 

CALL  7El PLLI FF.RHriN.P I ,EPSC, TINAFT.FLX.O.XI 1 ( 12) , Z(12 I .7W( I 2)  I FXRMlo  lo 


(■. 

I 
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I 


f 


c 

c 
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ITFM  13  ENTPANCF  SECTICM 

CALI  /frMHH(XE,WFNT,YM3,YM2fFLX,0,Xl I(13>tZ(13)  ,ZW(13)) 
ITEM  U THPPAT  SECTIRN 
FI  3 = FLX  ♦XF 

CALL  ZCYLLLC  XT,  WTHRO  T ,YM?,F  L3,  XI  I ( 1 A)  , Z ( 1^)  tZWU  A)  ) 

ITEM  15  EXIT  SEC TIPN 
FL  •‘=FL  ?4XT 

call  ZCPMHH  XA.WFXTT  , YMl  ,YM2,FL3  ,l  ,XI  M 1 5 J , Z ( 1 5 ) , 7W  ( 15  ) ) 
ZWT=  0.0 
EP  106  r=l,  15 
IC6  ZWT=  ZWT  ♦ ZK< 1 ) 

7FXPAM  = ZWT/WRJ 
XfTPT  =C.O 
XMPV  =0.0 
EP  107  1=1,15 

X ITPT  = XITPT  ♦xn  ( I ) 

IC7  XVnv=  XMPV  ♦(ZEXRAM-Zd)  )**2*WT(I  » 

XTIEXR  = XMPV  XtTPT 
1 10  CPNT  TNPF 

►jrnf‘M=prSDMp  + SKTS«-FWDViTS*WC  YC-'t-AOWTS 

VCPMI=  (Fwown  ♦WCYLl+AOWTI)  / RHOIN  ♦ FXTI/RHPX 

WNOZ=WPN 

I P(  I I(  15  ) .FO.  0 ) RETURN 


FXRM  1920 
FXRM1O30 
FX  RM19A0 
f:XPM195n 
FXPM1960 

FXRM 1970 

FXRM1980 
FXRM  1990 
FXRM2000 
EXRM2010 
FX  PM2020 
FXPM2030 
FXRMZOAO 
FXRM2050 
FXPM?060 
FX  RM2070 
FX  RM20R0 
EX  PM2090 
FX  RM2 100 
PXRMJllO 
PX PM  2 120 

FXRM  2 I 39 

FXRM2140 


kiPrTF(6,99>  FXRM21S0 

99  FORMAT! IHl)  FXPM2160 

WRITE(6,12C»  WRJ,V,T  FXPM217a 

120  FPOMATt  IPX, OPH  ***  NPN  INTEGRAL  RAMJET  COMBUSTOR  ♦♦♦//13H  WFIPHTS, FXRM2  IPO 

1 LRS  / EXRM2190 

l?X,I3FTPTAt  RAMJET  , F 9 . 3 , 9X , 1 3HF RO  C L PS URE  ,F9 . 3 ,9 X , I 3 HFW n INSUl TFX dm2200 
IM  ,F9.A/  FXRM2210 

i2x,i3HruMP  STIFFNR  ,F 9. 3 ,9X  , 13HC YL  STRUCTUP  ,F9. 3 ,9X  , 1 3 FCY L INSUl T^v rm2220 
?A'  ,F9.A/  CXRM2230 

32X,13FFXT  INSULTN  , F 9. 3 , 9X , 13HF KD  SKIRT  ,F9. 3 , 9X , l3HFwn  AT  r>MNrx R^pp^O 

3T  ,F9.A/  Fv-H«2pt,o 

A2X,13FAFT  SKT/FPNC  ,09.3 ,9X,13HAFT  ATCHMNT  ,F9 . 3 , 9 X, 13 H AFT  Cl  0 SUR F vp m p 7 fto 
9E  ,F9.A/  EXRM2770 

57X,l-«HflFT  INSULTN  , F 9.  3 , 9X  , I 3HNCZ  ENTRANCE  , F9.  3 , 9X  , 1 3 HN^Z  THREAT  FX  pm22  “0 
5 ,F9.A/  rXRM22"0 

6?X,13HMrz  FXIT  CCNE,F9.3//)  FXRM7309 

WPITF(6,l2n  IB  FXRM2110 

121  rnpMATIJOH  STRUCTURAL  AND  CASE  MATFRI AL,2X  ,3AA/ ) fxrm?320 

IF  ( 1 I(  in  .GT.  0)  EXRM233P 

IWP  I TF(  6,  123  ) ZFXRAM.XIIEXR  EXRMZOAO 

123  FrRMAT(/2X,  5FC.C.  , F 9. 3 , 9X  , 5HMni  ,F9,1)  Fxpm?350 

WP ITF(6, 122)  XRJ,XRN, VPFO,XCYL, XSKl, TC  YL ,TAH,Tl NS ,FXTFR,  FXRM2360 

1 XF,TFAH,YM3,XT,YM2,XB,nFLN,YMl  fxr*<7370 

122  form  ATI  2X,  lEHOIMENSIONS,  INS  / FXRM2JP-) 

12X,13HT0TAL  length  ,F 9, 3 , 9X , 1 3HN0Z  LENGTH  ,F9. 3 ,ox , I 3HV CLUMF  CU  FXRM2390 
I I^  , FR.  1/  9X  RM2400 

22X,13HCYL  length  ,F 9. 3 , 9X , I 3HF WO  SKT  LT 
2FSS, F9. AZ 

22X, 13HCLPSURF  TKNS  , F9. A ,9 X , 13HI NSLN  THKNS 
3KNS,  F 9.  A/ 

A2X, 1 SHFNTRAMCF  LT  , F 9. 3 ,9X , 1 3HF NTR ANCF  TK 
AAC  ,F9.3/ 


,F9. 3 ,9X, 13HCYL  TH  I CK NFX RM 2 A 1 0 

EX  RM2A20 

,F9.A,9X,13HFXT  IN<;  THFXHM2430 

FXRM2AA0 

,F9.  A,9X,  13HENTRAN  CE  RFXRM2<,S0 

FX  PM2A60 
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1(  APR  ( 1<3  ),0nSTLT  I 
Cr«MnN  / SUSCAT/  TXtAA) 

FOUIVALFNCE  ( TX  ( 23  ) i SUSL  T» 

FOUIVALFNCE  UNINtl), KINDI 

riMFNSlON  X ( 50  t Y(  50)  ,Z(  501  , ARE  A (50)  ,WGHT(50)  ,RIX(50) 

NAMEI  1ST  /jnNSOM/  HRLDIVf AWFTAF,AWETFF,ADI VWTtAWET 
APAT  in{ X )=l25./( 216.*X)*( l.+.2*X*X)**3. 

NAMFI  1ST  /QQ/  PLLT,SUSLTfD3,X0LMP,  XLCB  ,HTH,XA  ,XC, XT  I PCL 

T = TSTAP  T 

TMP=0 

HP  = HFICHT 

CALL  TLUl(HP,ALT,Kl,PRESStPn,INO) 

IF(  IND  .NF . 0 ) GO  TO  38 
CALL  TLUIUSDTFMP.TO) 

TTFMP  = Tn*(  1 .♦.2*XMZERO»XHZERQ)-460. 

CALL  MATL  SINPUC  TfTTEMP ,RH0A  f F TU» FTY, I NO ) 

! F ( INC  .NE . 0 1 GO  TO  1A52 
CP  5 1 = 1,  3 

5 ICCK  I 1=  IR(  I ) 

CALL  MATLS(NFRNG, T TEMP, R HOF RG,FTU, FTY, IND) 

IF  ( IND  .NE  . 0)  GP  TO  US2 
CnNTR=l  ./XT 

C MfTFPIALS  ARF  CFSIGNATED  AS  FOLLOWS 
C A AISI  15C  PSI  STFFl  CODE  1 

C P AISI  20C  PSI  STEFI  code  2 

C C ’no  OR  MARACING  stfei  code  3 

C C 17-A  PH  STAINLFSS  CODE  <► 

C E 2niA-T6  ALUMINUM  CODE  5 

C G A73ie-0  MAGNESIUM  CODE  6 

C H 6AL-AV  TITANIUM  CODE  7 

CP  RFNF  Al  CODE  8 

C C wriPPY  COLUMBIUM  CODE  9 

r R CLASS  FABRIC  FPPXY  LAMINATF  CODE  lO 

C S filament  wound  GLASS  EPOXY  CODE  11 

A3  = APP( 12)  *IAA. 

Ar=ArA3«A3 

(FIK  ir.'C.NE.A  I.AND.KIND.NE.  A3.AN0.KI  Nn.NE.53)  XMR  jTC=n.0  1 
C ITYPF=1  IS  A SIMGLF  BELLY-LINE.  ITYPp  =2  IS  DUAL  AFT. 

C eOAACH  OEPENOING  on  itypf. 

XNINl  T = ITYPF 
ACPFP  =AC/XN INLT 

CALCULATF  cowl  lip  angles  at  the  INLFT  DESIGN  MACH  NUMBER 

S |NMAX=( 3 .♦AMT*AMT-5  +SQR T( 9.*AMT**A  ♦12.*AMT**2  +60.))/ 
l(  7.  ♦ AMT**2  ) 

WAV M AX  = AR  SIN ( SOP  T(  S INMAX ) ) 

A A=  A),  ♦amt  ♦♦Z 

HP=5.^l AMT^^2  ♦SINMAX-l.) 
rpTAN  = T AN  I WAVMAX )♦( AA /BB-1. ) 

TANnEL=  I./CPTAN 
CFLC.I  R = ATAN(  TANDEL  ) 

CELCL  C=CELCLR/C  -1. 
rFLFNC  = CFl  1+DFL2+PEL  3 
DEL IMT=nELFMD-OFLCLD 
CFL  EXT  = nFL  INT  +7. 

CALCULATF  THF  RATIO  OF  DUMP  AREA  TO  THROAT  AREA 


INLT0270 
TNLT02B0 
INL  T0290 
INL  T0300 
INL  TO  3 10 
1NLT0320 
INLT0330 
1NLT03<,0 
INLT0350 
INLT0360 
INLT0370 
INLT0380 
1NLT0390 
lNLT0-!,00 
INLTO^ID 
INLT0420 
INLT0A30 
INLTOAAO 
INLTn<V50 
INLT0A6D 
1NLT0470 
INLT04fl0 
1NLT0^90 
INLT0500 
INLT051D 
INLT0520 
INLT0530 
(NLTOSAO 
INLT0550 
INL  T05Fn 
1NLT0570 
INLT0580 
INLT0590 
1NLT0600 
I^'l  Tn610 
I NL  T0520 
I MLT  0530 
INL  YOfSAO 
INLT0650 
INLTn660 
INLT0570 
INI  T0580 
I NL  T 0690 
INLY0700 
TNLTOTin 
nLT07?n 
INL  TOT  30 
tNLT07AO 
INLT075n 
INLT076n 
INLT0770 
INL TO  780 
INI T07QO 
INLTOBOO 
INLTOBIO 
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I / ( 7.*fl “T**2  -1. M 


, 5 ) ) 


SCCl 


c 


7C00 


FOR  INLFT  WE  IGHT  ,nR /^r,  ,C.  G.  AND 


FAIRING  MATFRIAL  ,3A<»J 


!CC1 


A^'TY  = SO  I’T  ( ( A«  T*  * 2 *5 

APTHR  T = AR  M in ( AM  TV  I 

R/J  FNLY 
rr  jn  coQi 
rn'iT  INI  IF 
M|iF  T=  XT*Af. 

P THF  T = Fr'«  Tl  AThR  T/o  I ) 

TL  r I rF= (RPNcn-R  tmr  t ) /( t ani 3 

f('^'T  INtJF 

A PnnMp=  ar  AT  I n ( 0 . 3 ) 

AFUATH  =APnHMP/ARTHD t 
IP  { NlHJT  .PO.  0 ) GO  TO  3 00 
WP  ITP  IMl  FT  RATA 
WP I TF( F, 3000  ) 

format  ( 5X,6  1PSIJMMAR  Y OATA 

IT  nr  inertia, /» 

WP  1TF( 6,t)  ICCl,  IF 

FORM  ATI  lOX,  lAHOUr.T  '“'ATFRIAL  ,3A^,13H 
IFI  ITYPF.E0.nWPITF(6, 30011 
FORMAT!  lox,  ?3HSIMr-l  F FELLY-LINE  INLET,/) 

IFI  ITYPF.EO.  I )G0  Tn  17A7 
V’RITF  16,300?  ) 

FORM.-TI  inx,  I EHOUAt  AFT  INLETS,/) 

WRITE  I e,  300  3 ) ACA  3,  AF  , n3,l)EL  1 ,0EL2,0FL3  ,C  CNT  R , PE  L I NT  , OF  I.  p X T , 
IXMOEP  , XM/FW.P  , ANT  ,nELCLn  , XMP  JTP 
POPM  ATI  lOX,  ini-r.APTURF  AREA  R A T I n = , f 5. 3 , / , I 0 X , 1 9H  I N L p T FAOTIIRF 
1 = , F6.  ?,  IX,  ?5ESQ  . P.I  total  for  NI  SSI  LE)  , /,  iOX, 

217HA‘ISSILE  ClAMFTrR  = ,F5.2,2X,  3HI  N.  ,/,10X,27HCnMPHFSSinN  RAMP 
3S  ARF,FS.2,IH,,F5. 2, IH, ,FS.2,l X, l3HnEG  IRELATI VE ) , / , 

A inx,  790irLFT  overall  CONTRACTION  IS  ,F5.2,/,I0X, 

E'ilECriWl  INITIAL  INTERNAL  ANGLE  IS  ,E5.2,4H  nEG,/,lOX, 

631Hrr'WL  INITIAL  external  angle  IS  ,F5.2t^H  PEGt/.lOX, 

72FHINLET  nfSiGN  MACH  NUMBER  IS  , F 2 » / 1 1 0 X , ? 9HF  L I G E T maf.H 

BIJMBFP  IS  , FA.2,/,  lOX,  2BHINLET  THROAT  MACH  NUMBER  IS  ,F6.3,/,10X, 
950HMAXIMUM  FFFLECTION  ANGLE  AT  THROAT  MACH  NUMBER  IS  ,FS.?,1X, 
AAEOFF,., /,  lox,  31HRAMJFT  TAKEOVER  MACH  NUMBER  IS  ,F4.2t//) 
OALrUlATP  INI  FT  W I DT H , H F I GH T , E TC . FOR  6 ASPECT  RATIOS.  ASPECT  R A1  I 

r wioTE  iroNSTANT)  rivioFo  by  heighticompression  oiPECTirM. 

paLCULATp  THF  ARFAS  OF  THF  INLET  SURFACES  FIRST, 00  THE  SIOTplaTF 
?C0  HC=SORTI ACPFR/AR  ) 

W = ACP  FF  /HC 
X 1=X I THC 


2002 

17A7 


3CC7 


X?  = X2«'HC 
X 3 = x 3<'Hr 
XA=XB*HC 
xr=xr*Hr 

X T = x TOHC 
Y 1 = Y 1»  h: 
Y?=Y2*HC 
Y3=Y3*HC 
YA=YA*HC 
Yr=YC*EC 
TURNBACK  COWL 
XLTUPN=rFL 


AT  10  F,  F G 
INT/IO  . 


PFR  THROAT  HE  I GHT 


XI TUPN  = XL  TLRN^XT 


IMLT0B20 
INLTOB30 
I^LTOBBO 
INI  TORSO 
IMl TORSO 
I NL  TOR  70 
!*>',  tORPO 
INL  no90 
IX'L  T OQOO 
IM)  TOPin 
INLT0920 
INI  TOORO 
IN'L  TO  RAO 
INI  TORSO 
momEMNI  TORSO 
I '"LTOc,  70 
INITORPO 
INLTO990 
INLT I non 
I N'l  T 1 on 
INLT  1020 
INLT I 030 
P'LT  lOAO 
INL  T lOSO 
INLTiosn 
APraiNLTlOTO 
P'L  T lOBO 
A API  P I MT  1 999 
INL  T I 100 
INLT  I I 10 
INLT 1 120 
I nl  T 1 I 30 
NI^!l  TI  lAO 
INI  T 1 I SO 
I N'L  T 1 1 60 
INI  r 11  70 
INI  TUB-) 
INI  ’’ll  no 
r i ’’1  2 0 0 

» NL  T 1 210 
INLT 1 220 
INLT 1230 
INLT I ?A0 
IMl  T I ,7  SO 
INL  T I 260 
I NL  Tl  2 70 
P I T 1 2B0 
N . T I 2R0 
INLT 1 300 
INL  T I i 10 
INL  T 1 320 
IM|  Tl 990 
1 Nl  T l3An 
INL  T I 3S0 
INLT I 3S0 


IS 


i! 

'1 


i 


J 

I 


HA  1 S 7 


XTIPCL=xr 

C USF  t THMnflT  LFMGTH  of  2 THROAT  HEIGHTS 
FTH=XT 

FALrUL^TF  APPROX.  ThF  INCRFASF  IN  FXT.  LIP  H T.  TO  TURMRAFK  COWL. 
HPROJ=XL TURF ♦TAN ( I OF L I NT / 2 . » *C ) 

ACPPf>J=HPROJ*W 

r TFF  INCPFASF  IN  r.FNTEFBODY  HEIGHT  IS  EQUAL  TC  HPROJ.  AOn  A IFFG 
FniFF=YA  +HPR0J-2.*HTH*TAN( l.*C» 

C RfnUPF  TEE  CFMTFRRnnv  HEIGHT  TO  ZERO  AT  7.  DEG 
XL  ro=»-r  IFF/(  TAN  I 7.*C  n 

tF(K INr.GT.Aq.ANF .KIND. LT. 601  XLCB=XL0IFF 
CALCULATE  the  length  OF  THF  DUMP  AREA 
ATHRT=XT«W 
ArUMP  = AnUATH«ATHR  T 

nUMP  = AOUMP/(HC  ♦HPROJ  ) 

TE(K  INn.GT.Aq.AND.KIND.LT.eC)  XLDUMP=0. 

X INL  ft  = xlcr+2  .♦hth+x^  xc  ♦xti  pc  l+xlturn 

CFFCK  TEAT  INI  FT  LEADINC  EDGE  IS  AFT  OF  TANGENCY  POINT 
XTOTAl  =PLLT  + ROSTl  T + SUSLT 
C R/J  ONLY 

GO  TO  5002 
5CCH  rriNTiNUF 

IF(K  IMO.GT.^g.ANr.KINO.LT.eO)  XTnTAL  = X^'l  SSL 


INLT1370 
INL  Tl 380 
INLTl3qO 
INLTI<»00 
I Nl  T lAlO 
I MLT  I A20 
THRO  AT  INLT  14,30 
INLT14,aO 
INLTI/V50 
I NL  T 1 4^60 
INLT  14^70 

INLTMflO 

INLT 1A90 
INLT  1500 
INLTI 510 
INLT1520 
INLTI 530 
INLTI 550 
INLT 1550 
INI  T 1560 
INI, T 1570 
INLT 1580 
INLT  1500 


XL  CNG=XENn  + 2.*R  FNGO 
XPRTJ=XL  FNC+XINLF  T 
XTJEMK  rXTOT  AL-XPFTJ 

IF(K  IF'D.CT.  5 5.  ANP.Kf  NO.  L T.  60  » XCH£CK=  XT  JCHK 
50C2  CONTINUF 

xnUMP=PLL  T+SUSLT  + nO/A. 

XCHFCK  =xnu»4P-X  INI  FT 
IF  ( X CHFCK  .L  E . TANL  T IGO  TO  111 
r inlet  LFAOINF  edge  OX  NOW  ADD  AFT  FAIRING 


INI  T 1 6n0 
I NI  T 1 61  0 
INLT I 520 
INI  T1530 
INI.T1550 
INLTI 650 
I NL  T 1 660 
INLT 1670 
INLT 15P0 


G'^  TO  200 

111  IF  ( NPUT  .NE.  0 I WRITE  ( 6 , 10  ) 

IF  ( NOUT  .GT.  C ) WPITF  I 6,  OQ  ) 

INO  = 1 

CO  TP  113 

1C  FPPw  ATI  5X  , 5CE INLF  T STARTS  FORWARD  OF  TANGFNCY  POINT  EPPPOEO  n')T) 
?0C  XFRNG=XTOT  AL-XCLlE'R 

IF  ( K IF'O.GT  . AS.ANP.K  I NFI.L  T.6Ct  XFRNG=X1  ENG 
r xfRNF  IS  niSTANFE  FROE  END  OF  DUMP  PORT  TT  ENO  OF  MISSIIF 
FALCULATF  THF  RflUNOARY  lAYFR  I AND  DIVFRTER)  THICKNESSES 
PEOA  IRrPn/(  53.  3*  TP  I 
PHOSI  0 = fiK'AIP/i2.2 

xMu  = ( c. 3C2/icooocr )*< (3q2.^i98.)/iTn^iqfl.i)*( to/ 302 . ) i . 5 

VSPUNP  = 59. 02*  SQR  T( TD  J 
V EYFTMr VS0UN0*RHC  SLG/XMU 
BfrET=PEYFTH*KM/FPn 
R fY  = D FVFT* ( XCHFC  K/  12.  » 
t-BL  YrRsn.378*XCHFrK/<REY**0.  2) 

P FY  CES=  710  1000.  •XMDES*  XC  HECK /I  2. 

IFIhp.GT  .0.  I REYPFSsPE  YFTM*XMDFS*  XCHFC  K/ 12. 

EPLO  I V»  .7  5*.  3 78*  XCHECK  /(  RE  YDF  S**  .2) 

CAICULATF  TEF  hasS  PRPPF  R T I C S . F I R S T , I DC,  A TE  THE  P I FCES  . F I PST  , PUT  80  SPPl  T 
AOEAI  1 )=XT IPCL*HC/2. 


INLT 1690 
INLT 1700 
INLTI 710 
INI  T17''0 
TNI  T 1 730 
I^'l  T 1 750 
INI  T I 7 50 
INI  T 1 760 
INI Tl 770 
INLT I 780 
I Nl  T 1 790 
INL I I 800 
INLT 1810 
INLT 1820 
INLT 18  30 
INL  T 1 850 
INLT1850 
INL  T I 860 
1NLT1870 
INLT 1880 
INLT 1890 
INL  TIOOO 
INI  T 1910 


HA  158 


r 


X(  I ) = W+  1.  5*T 

IF(  1 TYPF.EO.I  ) X ( 1 )=(W4-T  ) /2. 

Y ( I I =-(  T+Hr/ 3.  ) 

I ( 1 ) = ?.«XT IPCL/3. 

AP  rft(  2 ) = XL  TUPN*HC 
x( 2 ) = x(  n 
v(2)=-( T+Hf /2.) 

7(2)=XT  IPCL  ♦XLT(JPN/2. 

APFA  ( 3)  = ( HPPOJ<-T  )^(  XL  TUP  N/2  . ) 

X( 3)  = X(  1) 

Y ( 3 )=-( T tHC ♦( HPPnj^T  ) /3. ) 

7(3  ) = 2.*XLTURN7  3.  + XTIPCL 

«p  FA(  ^,  ) = ( HC  4HPRn  J + T )*((X4-XC)+2.*XT) 

X(  ‘♦l=X(  II 

Y(4)=-(  T+(hC+PPRnj+T)/2.) 

7(  A»  = XT  fP^,L♦XLTUR^  + ( ( XA- XC  ) +2  . *X  T ) /2  . 

/\PFA(  5)=(  HC  ♦HPRnj+T)*(  XLCB+XinUMP  ) 

X ( s )=X(  1 1 
Y(  5 )=Y(  ) 

7 ( S ) = XT  IPTL  + XLTLR^'  + X4-X^  -*2  .♦  X T 4-0 . 5*  ( XL  C B«-  XL  DUMP  ) 
CALCIM  ATF  THF  INPOARn  STDFPLATE 
APT A(  7) =AP  EA(  1 ) 

X( 7)=T/2. 

ir(  I TYPF.PQ.l  ) X ( 7 I =-X(  I ) 
vr? )=Y(  1) 

7(7 ) = Z(  1) 

7RFA(  R)=ARFA(  2) 

X ( P)=X( 71 
Y( R )=Y(  2) 

7(H)=7( 21 
APEA(P)=ARFA(  3) 

X|'7)  = X(  71 

Y ( 9 » = Y(  3 ) 

Z ( 9)=Z( 3) 

AP  F A(  in)  = AR  FA( ^ I 
X ( 10 ) =X  ( 7) 

Y(  10I=Y(4) 

7 ( 10 1 = 7 ( 

APFA(  I J ) = APFA(5  I 
X(  11  I =X( 7) 

Y ( 1 1 I =Y  ( 5 ) 

Z ( 1 1 ) =Z  ( 5) 

PALCULATF  THF  BOTTHM  SUPFACF  ARFA  (COWL  SlOF) 

APFA(  13)  = W*S0RT(  X(  TUFN**24(HPRPJ4-T|**2) 

X ( 13  ) = T+W/2. 

I F(  (TYPF  .FO  .11  X(  13)  =0. 

Y(  13  ) =-( T4Hf ♦(MPRnj»T)/2.) 

Z ( 13  I =X  TIPCL  4-XL  TUPN/2. 

APFA(14i)  = (X^-XC42.*XT4-XLCR4XLnuMP)*W 
X(  1 «)=Xf  13) 

Y(  lA)=-(T4HC4HPRnj4-T/2.l 

7 ( K ) =XTIPCL  ♦XL  TUPNfO.  5*  ( X4-XC42.*XT4-  XL  XL  HUMP  I 
CALCOIATF  THF  TOP  INLET  SUPFACF 

APFA(  16)=(  X T [PCL  ♦XLTURN+ X-(i-XC4  2.  *XT+ XICR^XLOUMP  J 
X(  l6)=TfW/2. 


INL  T192n 
(NLT 1 930 
INLT 1940 
TNt  T 1950 
;nlti960 
INI T 1970 
INL  T1 9flO 
inly  1990 
(NLT2000 
1NLT2010 
INLT20  20 
rNLT2030 
INLT2040 
INLT2050 
INLT  2060 
I’‘'LT  20  70 
(Nl  TZORO 
INL T 2090 

INI  T2100 
INLT 21 10 
INLT2 120 
INLT  21 30 
INLT2140 
INLT2150 
INLT2160 
INLT2170 
TNLT21R0 
INI  T2I  90 
INI  T 2 200 
I N L T 2 3 I 0 
INI  T2220 
1NLY2730 
INL Y224n 
IM I T22SO 
INLT  27fiO 
INI  T 22  70 
IN|  T22R0 
UJI  t2->90 
INL  T2300 

iNM  t2  no 

INI  T 2 320 
INI  T 2330 
INI.  T 2340 
INL  T2  390 
TNL  T 2360 
INI  T23  70 
INLT  2 3R0 
INI  T 2 390 
INLT  2400 
INI  T2410 
INL  T 24  20 
INI T2430 
I N(  T2440 
|nl  t 24Sn 
I NLT  2460 


•'”1^ 


ir(  ITYPF.CQ. n X ( 16»  =C. 

Y(  16  )=-T/2. 

71  16)=A'JF/i(  16)/(  2.*^) 

r tFST  C^mplfTFS  THF  EXTF^MAL.  now  do  the  internal.  00  SPLITTER  FIOST. 
APE  A(  IP  )=X2*Y2/2  . 

X(  l8)=T+W/2. 

ir(  ITYPE.EO.l)  X(  IP»  = C. 

Y(  IP l=-(T+Y2/2. I 
7 « IP  > = 2.*X2/  2. 

APFA(  19)  = Y2*(  X3-X2) 

X(  lo)=X(  18) 

Y( 19> =-( T+Y2/2.  ) 

7(  19)=X2+( X3-X2) /2. 

APFAI 20  )=( X 2-X2  )*» Y3-Y2) /2. 

X(20)  = X(  1P| 

Y(20)=-(T+Y2*(Y?-Y2l/3.) 

7( 20)=X2+0.667*( X?-X2» 

AOEA(  21)=Y3*(  X<,-X3) 

X( 21 )=X( 18» 

Y( 21  )=-{T»Y3/2.  ) 

7 ( 2 l)  = X 2+t  X8-X3I /2. 

APFAJ  22  )=  ( Y4-Y3)  *(  X^^-X3)  /2. 

X( 22 / =X(  18  ) 

Yt?2)=-(T»Y3+(YA-Y3)/3.I 

7(22)=X3+tXA-X3»*2./3. 

r NEW  THF  SPLITTER  EXTENDS  FPO*^  THF  COWL  CLEAR  ACROSS  THE  INLET 
AP FA(  73  ) = ( XA-XC !♦< YC-YA) /2. 
x( 23I-X( IP) 

Y( 23 )=- ( T+YA42.* (YC-YA  )/3. ) 

7(23)  =XC*2.*l  Xit-XC  )7  3. 

APEA(  2A  ) = XLTUPN*FPPQJ/2. 
y (2A  )=X ( IR) 

Y( 2A ) =-( T+HC+HPRPJ  73. ) 

71  ?A)=XC3-2.*XLTIJRM/3. 

AR  F A(  25  ) = HC*(  XLTURN-(  X4-XC)  ) 

X(  25 ) =y( IP  ) 

Y(  25)  =-(  T+HC/2.  ) 

7 ( 25)  =y  ^-fO.  5*1  XL  TURN-(X<f-XC  ) ) 

APFA(  26  )=  ( HC  3HPR0J  )*(  ( X4- XC  ) ♦•2  .*  XT3- XLC  B ) 

X( ?6)=x(  18) 

Y(26)=-(THlHC*HPRrj)/2.) 

7 (26 ) =XTTPrL+XLTURNHO. 5* ( X A-XC+2 . *X T+ XL CB ) 
r NFXT  CO  THF  FLOOR  (COMPRESSION  SURFACE) 

APFAI  27)=W*S(3RT(  X2TX2«-Y2*  Y2) 

X( 27)=X( 18) 

Y(27)=-(T^Y2/2.) 

7( 27 )=X2/?. 

AREA!  2B  ) = W*SORT(  ( X3-X2)**2  ♦(Y3-Y2)**2  ) 

X(28  )=X(  18) 

Y(  2P)  =-(  T+Y23(Y3-Y2)/2.) 

7 (2P)=X2>(  X3-X2)/2. 

AREA!  2R)*W*S0RT(  I X<r-X3)**2  ♦(Y/)-Y3)**2  ) 

X( 29)=X( 18) 

Y( 29 )=- ( T»Y3+(Y4-Y  3) 72. ) 

7 ( 29  ) = X3+(  X<i-X3  ) 72. 


TNLT2<»70 
INL  T2AR0 
1NLT2^90 
INLT  2500 
I ML  T 2 5 1 0 
INLT2520 
INLT2530 
INLT25^0 
INLT2550 
INLT2560 
INLT2570 
INLT  2580 
INLT2590 
INLT2600 
INLT2610 
INI,  T 262  0 
INI  T263n 
INI  T26A0 
IMLT2650 
INIT2660 
INLT2670 
INI  T26R0 
IMLT269n 
INLT2T00 
INLT27n 
IMLT2720 
INI  T 27  30 
INLT27A0 
INI  T2750 
INI  T276n 
IMLT2770 
INLT 2 780 
IMLT  2790 
INL 72800 
INI  T2810 
INLT282n 
INI  T2830 
T^ILT  2880 
lA'l  T 2850 
INI  T2860 
INLT?fl7n 
INI  T?8nO 
I NLT2890 
INLTponO 
I AM  T 29  10 
INLT  29  20 
INLT29  30 
fNLT2O80 
INI  T2950 
INL  T29fc0 
IMLT2970 
INLT  2980 
INLT  2900 
INL  73000 
INL  T3010 


HA  160 


AP  E A(  30  ) = W*  SOR  T ( XI  TUR  N**?  +HPRCJ**2  ) 

XI 30)=X( IP) 

Yl  30>--IT+Y'i4HPP0J/2.  ) 

7 ( 30  ) = X ^♦XLTURN/?. 

APEAI  31)  = W*2.’»XT 
XI  3 1 )=X I 13  ) 

Y{ 31)=-IT4( Y34HPRrj+MniFF)/2.) 

7 I 3 I ) =X  ^4X1  TljRN4  XT 

ARFAI 32  )=W*SORT| HniFF**24XLCR**2 ) 

XI 32)=XI 181 

Y|  32  )=-  IT  4Hn  IFF  72.  ) 

71 32  )=X^4XLTURN42.*XT4XLrR/2. 

C TFR  MFXT  PIFCF  IS  THF  TURN  SFCTIDN 
I F|  I TYPf  .FO.  1 ) GO  TO  76 

APFAI  33  ) = l HC4HPRnj  )*SQRT  | XLnUN'P**24  I W4T4HRLni  VI  *♦2  ) 

X I 33 ) =1  T4W4HBL0 I V ) /2.  -HRLOIV 
Y| 33I=-IT4|HC4HPRPJI/2.) 

Z I 3 3 ) = x/i4XLTURN4  2.*XT4XLCR4XLDLMP/2. 
calculate  THF  BOUNDARY  LAYER  DIVFRTER  PROJECTED  AND  WETTFD  ARFAS. 


!NL  T3020 
INLT3030 
TNLT30A0 
INLT  3050 
INLT3060 
INI  T3070 
1 NLT30P0 
INI  T 3000 
I Nl  T 3100 
INLT  3 I 10 
TNLT  3120 
INLT  3 1 30 
INLT31F.r) 
INI  T 3150 
INLT3 160 
INLY3170 
INLT  3 180 
INLT31O0 
INCLUnrNLT3200 


r THF  FFFFCT  OF  HISSILF  BODY  0 1 A MF TE R ( VARYI NG  OISTANCF  TO  EOGF  FF  I NL FT INL T 32 1 0 
CALCULATF  PROJFCTFC  ARFA  INLT3220 

S INU  = I HC/2.4T  )/I D3/2. ) INLT  32  30 

ANGI  FU  = AD  S INI  SINU  1 IF'LT32A0 

S INI =1 HF/ 2.4T4HPRPJ I /I  03  72. I INLT 3 250 

ANGLFL=APSINISINL)  INLT3760 

APFAlU=|HC72.4T)*HRLniV  I'''LT32  70 

APFA?U=|  037  2.  )*l  l.-CnsiANGLFU)  )*IHC72.4T)  72.  »N|  T3  2P0 

ASFGU  = 0.5«-I  I 037  2 .)♦♦2)*  (ANGLFL-S  INU)  INI  T 3 200 

AURt  nv=AP  FA1U4AB  FA2U-ASFGU  INLT  3 300 

ARFAlL  = IHC72.4HPRPJ4T)*HRLniV  INI  T3310 

APFA2L=in372.  )*l  1 .-CP  S I ANGLE  L ) I * I HC  72. 4H  PRO  J4T  I 72  . I^'LT33?0 

AFFGl  =0  .5*1  1037  2. I♦♦2)*IANGLCL-SINL)  INI  TTR’O 

il  Ml  nv  = AP  FA  IL  4AR  FA  2L-ASFGL  INLT3340 

API  IM  V = AUBI.  DV4AI  BLOV  INLT3JF0 

calculate  wetted  ARFAS  UPPFR  HALF, THEN  LOWER  HALF  INLT3360 

<\PFA|  6)=HBLniV*IHC72.4T)7SlNIlO.*C)  1NLT  3370 

XI  6)=-HPLni  V72.  f''!  33390 

v(  6 )=-l T4HC7A. ) INlT33no 

71  6)=XC72. 40. 5*  10072. 4T)  7TANI10.*F)  IMLTO-^OO 

APFAI  12 ) = ( ( Hr72.4T  )7SINI  10.*C  > )* I0372.-SQPT( I 0372. ) **2-IHC7  2.4T ) **INt  T34  10 


Ic  ) I 

APFAI  12)=  AREAl  12)72. 

XI 12)=-HBLniV-l.*in372.-SOPT{ ID372. )**2-|HC72.4T)**2) )73. 

Y|  12)=  -I  HC72.4T  )73. 

Zl  12  ) = XC72.4  2.*I  IHC72.4T) 7TANI10.*C)  173. 

APFAI  15)=HBLnrv*(|HC72.4T4HPRnj)  7SINI10.*CI) 

XI 15) = XI  6) 

Y| 15) =-l T4HC72.4|HC72.4T*HPRnj)72. ) 

7 1 15)=XC7  2.4C.5*IIHC72.4HPP0J4T)7TANI10.*C) ) 

AR  FAI  17  )=l I KC/2.4HPR0J4T) 7S 1 N ( 1 0. *C I I* ( D 372 . -S ORT I I 037? . I **2 
1-IHC72.4HPP0J4T )**2) ) 

APFAI  17  )=APEAI  17)72. 

X I 17) =-HBL 01 V-  1 .*1  1 0 37 2. -SORT  I ID  3 72 . ) **2- ( HC72 . 4T4HPRF J ) ** 2 ) )7  3, 
Y|  17) =-l T4HC72.42.*{HC72.4HPR0J4T) 73. ) 

7I17)=XC72.42.*  lHC72.4HPRnj4T)7  ITANI10.*C) )73. 


IMF  T 3^2  0 
INLT  3A  30 
IM|  T3^A0 
H'LT  3A50 
TNLT3^60 
r’LT  3A  70 
lA'LT  3AP0 

INI.T  3400 

INLT  3500 
INLT  35  10 
1NLT3520 
INI T3530 
INLT3540 
INLT  3580 
INLT  3560 


HA  161 


I 


i 

f 

I 

•> 

V. 

f 

I 

•il 


Gr  Tn  U92 

C LHCP  TO  rPRRECT  HACK  IF  WIDTH  FXCFEDS  MISSLF  DIAMETER 
STNF  = 1.0 
HAL  =0. 

GT  TP  A2 

CALCUIATF  FOP  SINGLE  PFILY-LINF 
7 6 «RFA( 33 )=W*SORT ( XL  DUMP** 2+ (HC HHPRO J*  TJ  **2 ) 

X( 33  ) = X ( 18  ) 

Y( 33) =-( ThHG+HPROJ-HPLDI V)/2. 

7(  33)  =X  T1PGL-hxlTLPNhX4-XCh2.*XT+XLCB*XL0UMP/2. 

calciilatf  nivFPTER  projfgtfd  area 

IF((w/2.  HT)  ,GT.  03/2.)  GO  TO 

HAl  = SORT! ( 03/2.  )**2  - (W/2.  ♦ T)**2) 

S INF=( W/2.HT  )/in  3/2. ) 

A?  ANG  = ARS  INI SINF ) 

«N'G0UR=2.*AMG 

AC-onSS  = l W + 2.*T  )♦(  03/2.  - HAL/2.  ♦ HPLOIV) 

ASFG=0.5*( 03/2. )**2*I ANGDUB-SINIANGOUP) ) 

APLO  I V=AGRnSS-ASFr. 

GALCIILATF  riVFRTFR  WFTTFO  AREA 

APFAI  6 )=HPL0IV*(W/P.+T)/SIN(10. *C) 

X(  6)=( W/2.*T)/2. 

'^I  6)=HPLDIV/2. 

Z(  6)=0.5*( W/2.H7) /TAMI lO.^C) 

APeA(l2)  = (IM/2.  hT) /SINI 10.*C) )*(03/2.  -HAL»/2. 

X(  12)=  2.*(W/2.*  T)/3. 

Y(12)  = HPLOIV  + 103/2. -HAL»/3. 

7A  l2)=2.*tW/2.  + T)/TAN(10.PC)/3. 

AREA  (15)  = ARFAI  6) 

X(  15)  = -XI  5 ) 

YI 15)  = Y(  6) 

Z( 15)  = ZI  6) 

APFAI  17  ) = AREAI  12) 

X( 17  ) = -X(  12) 

YI  17)  = YI  12  ) 

ZI 17)  = ZI 12) 

1692  CONTINUF 

FAlC'JLATF  thf  aff  ano  fwo  fairing  projected  and  wetted  arfas 

C XFRNG  IS  niSTANCE  FROM  END  OF  DUMP  PORT  TU  END  OF  MISSILE  ANO  XLFWO 
C IF  AXlAl  LENGTH  OF  FWO  FAIRING.  00  FWO  FAIRING  FIRST. 

I F(  ITYPE.EO.  I ton  TO  1600 
AFFPPJ=HC*IW*T ♦HPLOIV) 

GO  TO  1601 

16C0  AFFPRJ=W*(HC+HPLCIV+T) 

16C1  RFOU IV=SORTI 2.*AFFPRJ/P1 I 

CHECK  THAT  AN  L/0*3.  CONE  DOES  NOT  EXTEND  FWO  OF  THE  TANGENCY  POINT 
XL  Fwn=6  .♦R  EOUIV 

STAFWr=  XFRNG^XLDUMPhXINLFT^XLFHD 
STAr.HK*XTOTAL-STAFWD 

IF(STACHK.LT.TANLT)  XLFWO«XTOTAL-TANLT-(STAFWO-XLFWO) 
IFIXLFWD.LT.I 2.PRFQU1 V) ) XLFWO-2.PREOU1  V 

xffrng*xlfwo 

XLRYR=XLFW0/RE0U1V 

XLPYD*XLeYR/2. 

I FI  f TYPF.EO  . 1 IGO  TO  1617 


INLT3570 
INLT3580 
INL  T3590 
INLT3600 
INLT3610 
INLT3520 
INLT3630 
INLT36A0 
INLT  3650 
INLT3660 
INLT3670 
INLT3680 
INLT3690 
INLT3700 
INI  T3710 
INLT  3720 
INLT3730 
INLT37^0 
IMLT3750 
INLT3760 
INLT3770 
INLT3780 
INLT3790 
INLT3800 
INLT38 10 
INLT3R20 
INLT3830 
INLT38<.0 
INLT  3P50 
INLT  3860 
1MLT3870 
TNLT JPRO 
INLT3890 
INL  T3900 
INLT3910 
INLT3920 
INLT303O 
INLT39A0 
INLT  39  50 
INLT396n 
INLT3970 
INLTiopO 
INLT  3990 
INLT ^000 
INLT80 10 
lNLTi.020 
INLT^»030 
INlT^ifOAO 
INLT4050 
INLT 40 60 
INLT4070 
tNLT4080 
INLT40O0 
INLT4100 
INLT4110 
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c 


I 


4PF A(  34  )=Hr*(  STP  T ( ( H + HBl nf V + T ) ♦♦Z*  XLF  WO**?) » /? . 

!<(  3A»=2.*(W^T  ♦•(-PLOf  V>/3.  -HRLniV 
Y(  3A )=- (T  *HC /2.  ) 

;(  T4  )=-XLFWP/3. 

/■P  rt(  37  ) = ( W + HRLO  I V + T )*  ( SORT(  (HC/?.)  **2*  XLFWD**2  ) ) / 2 . 

X t 3 7)  =(  W4-T+FRL0I  V )/ 3.  -HRLOIV 
Y( 37) =-{ T+?.*PC/3. ) 

Z( 37)=7 (34) 

AF  FA(  3P,  ) = ARFA(  37) 

X(  38 ) = y ( 37) 

Y(  33  ) =-  ( T+PC/6.  ) 

Z( 38)=Z( 34) 

F(LL  THF  SICFPLATES  AND  THE  BOTTOM  (COWL)  FOR  FWD  FAIRING 
ACFA( 41 )=xr*HC/2 . 

X(  4 I )=V'*l.  5*T 
Y(41)=-(T+2.*HC/2.) 

7(41  ) = xr/3. 

X(42)  =0. 

Y(42)  =C. 

7(4?)  =C. 

APFA) 4? )=Q. 

AR  F A(  43  )=W*XC 
X(4i)=TtW/2. 

Y(43  )=-  ( 1 .5*T+Hr.  ) 

7(43) =XC/2. 

G('  TP  ^UP 

1317  4PFA(34)=  SQR  T{  ( W/2.  )**?-*-XLFwO**2  )*(HC*T+HRLDI  V) /?. 

X( 34) =W/3. 

Y(  ?4)=-(T+HC+FRt  DIV)/3.  -HRLDIV 
7 ( 34 ) =-XL  TWO/ 3. 

PP  FA(  37  ) = AR  F A ( 24  ) 

X(  37  )=-X(  34) 

Y(  37) =Y( 34  ) 

Z ( 37) =7  I 34  ) 

APCA(  3B)  = W*FQRT(  IHOHRLDI  V+T)**2+XLFWn**2)  /?. 
x( 3fi)=n. 

Y(38  )=-?.*  (HC+T+HPLDIV)/ 3.  -HRLOIV 
Z ( 38 ) =7(  34  ) 

APFA  (40=0. 

X (40=0. 

Y (40=0. 

7 (40=0. 

AP  FA(  41  ) = Yr.*HC/2. 

X(41 )=( W+T )/2. 

Y(4l)=-(T^?.*K73.) 

7(4l)=XTIPrL/3. 

&PF4( 4?)  = ARFA(  41 ) 

X( 42)=-X(  41) 

Y(42)=Y(41) 

Z(42)=7(41) 

AP  FA(  43  ) = W*  xr, 

X( 43)=0. 

Y(  43) =-( l.5*T+HC  ) 

7(43)=XC/2. 

21 18  CPMT INUF 


[NLT4120 
l^'t  T4  130 
INLT4140 
TNL  T4 150 
INLT4160 
INLT  41 70 
INI  T 41  RO 
INLT  4 ISO 
INL  T4  20n 
I'''LT4?  10 
IV'LT^,220 

IP'L  T4730 

INLT4?40  ! 

INIT4250 
INLT4260 
INLT4270 
IMLT4280 
IKILT47S0  : 

INLT4300  i 

INI  T4'»10 
INLT4320 
INLT 4 3 30 
INLT4340 
INt  T4350 
INI.  T 4360 
(NLT4370 
TNLT4380 
I''LT4300  ^ 

IPLT44nO  i 

TNL  T 44 10  j 

IP!|.T44?3  I 

INI  T44  30  ; 

I N|  T4440  j 

r‘;iT4460  'I 

INL ’"447  0 5 

1NLT44P0  5 

IMLT44S0  ; 

(''•I  T4S00  j 

INLT  45  10  i 

r'LT  4520  I 

TNL  T4  5 30  1 

INI  -"4540  j 

1MLT4560  j 

I*''LT4550  i 

1NLT<,S70  I 

INLT4580  I 

rNLT45S0  I 

INLT4600  -j 

INLT4610 
INLT4620 
INLT  4630 
I»;i  T 4540 
TNLT  4650 
T''iLT4660 
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C/SLCUL^te  aft  fair  inf,  WFTTFn  ARFA  IMLT4IS70 

1818  IF(  I TYPF.FO.l  IGO  TO  1819  1MLT4680 

ARFAI  3F>)=(  HCtHPROJtTtT)*SORT(  (W*  T^T+HBLOI  VI  KFRNG**2  1/2.  INLT4690 

X(3A>)=  2.*(W4T>T4H8LniV) /3.  -HBLOIV  lNLT<i7nO 

Y( 3fcl=-(Hr/2.*TI-(HC/2.  ♦ T ♦ HPRnjl/3.  INLT4710 

;i'»6l=  XINLFT  ♦ XI  DUMP  XFPNr,/3.  IMI  T4720 

X(39l  =0.  INLT4730 

Y(TQ)  =C.  INLT4740 

7(39)  =r.  INLT4750 

APFA(  39  ) = 0.  INLT4760 

APFA(  3S  )=(  W*T«-T*HPLDI  V)*SOR  T(  (HC  /2  . *HPROJ*-T ) **2*-XF  P^G**2  1/2.  INLT4770 

x(35)=  ( W + T + T-FHRLOI  V) /3.  -HRLDIV  1NLT4780 

V(  i5)=-(HC/2.TT|-2.*( (HC/2,+HPR0J+T) /2,)/3,  I NL 7 4 790 

7(341=  7(  36)  IM)  T4800 

APFA(4n)=( W4T+T*FPLniVI*SQRT( ( HC /2 . *7) **26 XFRNC**2 )/2 . INLT4810 

X( 40)=X( 38)  IMLT4820 

Y(4C)  =-(  T>FC/2.)/3.  INLT4830 

/(40)=7(36l  !NLT4a40 

GF  m 1820  IMLT4850 

1319  ARFA(36)=  (HC+HPRPJ+T+T  + HRLOI  V)4SQRT(  ( W/2.  + T)**2  ♦ XFR  NG**?  ) 72  . IAJLT4R60 

X(36)=  ?.*IW/2.TT)/3.  IMLT4870 

Y( 36) =-( T+FC  ♦HPPPJ  tT-HRLOI V) 73.  INLT4RP0 

7(J6)=  XFNLFT  ♦ XL  DUMP  ♦ XFRNG/3.  INLT4R90 

APFA(3o)=  ARFA(3e)  INLT4900 

X I 39  ) = -X ( 36 ) 1NLT49  10 

Y(  39)=  Y(  36)  1MLT4920 

7( 39)=  7( 36)  1NLT4930 

£UFA(  34)  = (M*T+T  )*SOR  T ( (HP  fHPRD  J+ Tf  T+HBLDI  V)  * ♦2  + XFR  NG**2  1 7 7 . I AfLr4940 

X(38)=0.  INLT495n 

Y(  38)=-2.*(  TfhG  ♦FPPn.)*T-HBLDIV)73.  INLT49  60 

7(35)=  7( 36)  INLT4970 

1820  CPNTIMJF  INLT49R0 

calculate  the  total  WETTFD  area  of  THF  aft  fairing  INI  TA990 

AWFTAR  = APEA(36)4  ARFA(39)  ♦ ARFA(35)  ♦ ARFA(40)  INLT5000 

calculate  THF  TPTAL  WETTFD  OF  THE  FCRWARO  FAIRING  INIT5010 

AWFTFF=APE4(  34)6APFA( 37)6ARFA( 38) ♦ ARE A (4 1 )♦ ARE  A ( 42 )+APFA(43)  I NL 7 5020 

calculate  7HF  WETTED  AREA  OF  THE  BOUNDARY  LAYER  DIVERTER  INLT5030 

AriVWT=APFA(  6) TAR  FA  I 15  ) ♦area ( 12 )6ARFA ( 17)  INLT5040 

CALCUIATE  THF  WETTFD  AREA  OF  THE  ENTIRE  INLETIFORE  AND  AFT  F A I R I NGSt DU CT  INL T505  0 
AWFT=AWETAF4AWFTFF+ARFA(1)fARFA(2)+  AREA(3)tAREA(4)4ARFA(5)+  INL  7506.3 

<,APEA(  7)4AREA(8)4APFA(9)4AREA(  10)4  ARE  A(  1 1 )4AREA  (13)4ARFA(14)4  I ’"175070 

2AR  F A(  16 ) INL  T 50fl0 

C AWFTQ  IS  WETTED  AP FA  OF  INLET  MINUS  AREA  MASKED  ON  BODY  INLT5090 

AWFTO  = AWET  - ARFAI 35)  INLT5100 

1F(  ITYPE  .GT.  1 ) AWETO=AWFT-ARFA(  36)-AREA  (16)  INI.T5110 

ArUCT=0.  INL75120 

Cn  1 1 12  Mr  1, 33  INLT5 1 30 

1112  ArUC TrADUC T4AR FA (M  ) IMLT5140 

C TFMP  IS  IN  CEG  FARENHEIT  AND  RHO  IS  LB/1N«>*3  1NLT5150 

IFdNO.NE.O)  GO  TO  1492  INLT5160 

HGHT AF= AWETAF4RH0FRG*TFRNG  INLT5170 

WGHTFF=AWETFF*PH0FRG*TFRNG  INLT5  IRO 

WCHTrU=AnUCT*RHOA*T START  TNL75190 

WEI  GHT«WGHTFF4Wr,HT4F4WGHT0U  INL  7 5 200 

C R7J  ONLY  INL75210 
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OP  TP  5003 

INLT5220 

5nC7 

rr'iTiNUF 

IK'LT5?30 

WTrAru  = P I*2.*RFNGn*TSTAR  T*PHnA 

1NLT5240 

IFfK  p.'P.r.T.49.AAiO.KINO.LT.60»  WE  I P.H  T= WF  I OH  T-fWTC  A OU 

INLT5250 

50  C 3 

rr’NT  iNur 

INLT5260 

raifULATC  THF  PiLFT  CENTFR  PF  P.RAVITY 

INLT5270 

*r  rsuM  = o . 

INL  T5280 

vrGSllM  = 0 . 

INLT5290 

7r.GSIi‘'=0. 

INLT5  300 

T = TST  AP  T 

INI  T5310 

PFn  = P HO  A 

INLT5320 

Pr'  fi  k=1,43 

INI  T5330 

ir(K .F0.J4)  GO  TO  1313 

INL^^STAO 

GP  Tfi  1314 

INLT5350 

13  13 

t=tfpmg 

INLT5360 

PHn=PHPFPO 

INLT537D 

13  14 

WGHT  ( K ) =AP  FA ( K )*T*PHO 

INLT5380 

xrnMP=APFA(K )*T*RHn*X(K) 

I NLT5390 

YC'^HP=ARFA(  K )*T*RHn*Y(K) 

INI T5400 

7 CO'' P=  AREA!  K ) *T*RHn*7  (K  ) 

INLT5410 

r 

P/J  nwt  Y 

rNLT5420 

GP  T"  F004 

INLT5430 

50C5 

CPNT INUF 

INI.T5440 

IF(k  ir.in.CT  .49.ANr.KIND.LT.60)  GO  TO  87 

IMLT5450 

XG  GSUM=XCGSlJMHO.*WTCAnU 

I Nl T 5460 

Y^cSU^■=YCGSUH«•WTr,AnU♦  (HBLOI  V-*-n3/2.  ) 

INLT5470 

7GGSUH=ZrGSUM+WTG ADU* (XINLET+RFNGO) 

TNI T 5480 

8 T 

xcg=xggsuh/wfight 

INLT  5490 

GP  TO  5005 

INL  T55O0 

5CC4 

CPNT  INUF 

INI T 55 10 

xrosuN  = xcGsuv  ♦ xgpmp 

INLT5520 

5CC5 

CPNT  INUF 

INL  T5S3n 

YGGSU'^=YC  GSUM  HYCOMP 

1NLT5540 

q 

ZrGSUM=7CGSUM*ZC0MD 

INI  T5550 

XGG=XGGSUH/WF IGHT 

INI.  T5  560 

YrG=YCGSUH/WE IGHT 

INL  T557r) 

Zf G=ZCrSUH/WF IGHT 

INI  T55R0 

rfl[fUL4TF  TFF  PITCH  INFPTIA  OF  FACH  PI  FCF  APOUT  ITS  C.O. 

INLT5R90 

T-TSTAP  T 

INL  T56no 

GO  ?3  IH=34,3P 

INLT5610 

22 

P IX(  iw) =0. 

r'LT  5620 

P IX(  I ) =WGHT(  n*(Hr**2HXTIPCL**2)  / 1 8. 

INI  T56  30 

R tx(  2 ) =wOHT  ( 2)*(XLTURN**2<-HC**2)  /3. 

K'l  ^5540 

p fX(  3 ) =WGHT  ( 3)*  ( (HPRnj<-T)**2*XL  TURN**2  1 /18. 

INL  T 56 5 0 

R 1X(  4 ) =WGHT  I 4)*  ( ( X4-  XC  ♦ 2 . • XT  » **2*- (HC+H  PR  OJH  T ) **2  » / 3. 

INI  T5660 

R IX(  S)  =WGHT<  5)*(  (HG-fHPRO  J-HT)**2*(XLCP*XLnUMP)  **2)  / 3. 

IM|  T 5570 

PTXI 7)  =P  IX(  1) 

INLT56P0 

RlX(fi)  =RIX(2) 

INI  T5690 

P IX(9)  =P IX( 3) 

INLT  5 700 

R IX(  10 )=P I XI 4) 

INLT5710 

R I X I 1 1 ) =R  I X ( 5 ) 

INLT5720 

R IXI  13)=WGHTI  13  )♦(  XI  TURN**2«- (HPR 0J+ T)  ♦♦2h  TST  AR T *♦2  ) / 3. 

INLT  5730 

PIXI  14)=WGHT(  14)*( ( X4-Xr  + 2.*XTHXLCB*XLDUMP)**2>TST ART**2)/q. 

INLT5740 

PIX  ( 16)  =WGHT  ( 35  ) ♦ ( ( X T I PC  L ♦ XL  T URNH  X4-XC4-2  . *XTh  XLC  B*  XLDUM  P ) **  2+ 

INLT5750 

lTSTART**2)/3. 

INLT5760 

t 

I 


I 


P ( Ifl  )=wn»-T  ( IR  )♦(  X?<'*2+Y?**2  ) /I  R. 

P !X(  iq  » =wri-T(  19  )*  ( < X3-X2)  ♦♦2»(  V2  ) **2  ) /3. 

RIX(  20)=V.Ght(20)*(  (X3-X2)**2  + ( Y3-Y2)  **2)  /I  8. 

P IX»  21 ) =WChT{ 21 )♦( ( x^-X3)**2*Y3**2 ) /3 . 

R IX  { 22  ) =W^.HT  ( 22  )♦(  ( XX*-X3)**2*(  Y^- Y3)**2  1/18. 
o IX(  23)=wr.HT  ( 23>*(  (XA-XC)**2  + < YC-Y4)**2)/18. 

P IX(  24  |=WGHT  ( 2A)  ♦(XLTURN**2-KHPR0J^TSTAPT»**2J  /18. 

R 1X(  25  )=wr,HT  ( 25)*(  (XlTURN-1  X4-XC  I ) **2»HC**?  I /3  . 

RIX( 26) =WGHT( 26)*< ( HC ♦HPP C J ) * *2+ ( X4-Xr>2.*XT+XLCBI ♦♦2)/3. 

R IX  ( 27)  =WGHT  ( 27)  ♦(  X2**  2+ Y 2**2-*’TST  AR  T**2  ) /3. 

R IX  ( 28  )=WGHT(  28  )♦(  ( X3-X2  )**2+(  Y3- Y2)  ♦♦2-HSTART**2  ) /3. 

R IX ( 29) =WGHT( 29  )♦( < X4- X3 ) **2* ( Y4- Y3 ) ♦♦2  + TSTA RT**2 ) / 3 . 

R IXI  30)=wr,HT(  30)*  (XLTURN**2«-HPR0J**2*TSTART**2)/3  . 

P IX( 3 1)=WGHT ( Rl)*( 4.*XT*  XT+TSTAR  T**2)/3. 

R IXI  32)  =WG)-T(  32  )*  I HO  I PF**  2+ XLC  B**2*  TST  AP  T**2  ) /3  . 

IF(  ITYPE.FO.  1 ) GO  TO  4444 

PIX|’6)  = kvGHTI  36)*(  (HC*HPP0J*2.*TSTART)  **2.*XFRNG**2)/18. 

R IX ( 39) =0. 

R IXI  )=)vGHT  I 35)  *I  3.*TFRNG**2*?.*XFRNr**2)/36. 

P IX  I AO  ) =R  I X I 3 5)*V.GHTI  40  /WGHTI35) 


INLT5770 
INLT5780 
INLT8790 
INLT5800 
INIT5R10 
INLT5R20 
INLT5830 
lNLT584n 
INLT5R5n 
INLT5R60 
INLT  5870 
INI  T5880 
INLT5R90 
INLT59nO 
I ML T 591 0 
TMLT5920 
INLT5'53a 
IMLT5940 
TNLT5950 
IML  75960 
1MLT5970 
INI T598n 
IMLT5990 


48X|4 


RIX|  33)  = WGI-T  I 3?  )*  I IHC+HPR  rj)**2+  I XLDUMp**2*(  W+T^PRLO  IV  )**2)  )/  3. 

PIXI  6)=wr,HTI  6 )*(  I IHC/2.  + TSTART  ) /SI  NI 10.  *C)  ) **2*TST  ART**2  )/3. 

P IX  I 15  ) =WGHTI  15  )*I I I Hr /2.+HPR0J+TSTART) / S I N 1 1 0. *0 ) ) **2*TST ART* *2  ) / INLT6000 
13.  IMLT60in 

PIXI  12  )=W^HT I 12)*I  2.*TSTAR  T**2*2 . * I 03/2 .* 1 1 .-C OS  1 A ^GLFU ) ) ) **2) /36  IMLT60  20 
R IX  I 1 7 )=WGHT I 17) *I  3.*TSTART**2*2 .*103/2 .♦ II .-COS  I ANGLEL ) ) ) **2) /36  I ml T6 0 30 
CP  TP  2223  IMLT604n 

R IX  I 33  ) =WGHTt  33 )* I XL OUMP** 2* I HC*H PROJ* TST AR T) **2  *TSTART**2 )/ 3.  INLT  605 C 
RIXI  6)=WGHTI  6)*IHBLni V**2*  { I W /2. ♦ TS T AR T) / S I N I 1 0 . *C ) ) **2 ) / 3 . INLT6060 


RIXI15)=PIXI  6)  INLT6070 

P IXI  12)=WGHTI  12)*( ( IW/2.*TSTART) /SINI10.*C) ) **2* (03/2 .-HAL ) )*2/lP.TN(  T6  0fl0 
RIXI  17)=P IXI 12)  INI  T6090 

RIXI36)  = WCHTI 36  )*( XFPNG**2  * I HC+HPP 0 J+H BLO 1 V*2 . *TST A RT ) * * 2 ) / 1 8 . 1NLT6 1 00 
RIXI39)=RIX(36)  INLTf,iio 

PIXI  35)=WGHTI  35)*2.*(  3.*  TFP,NG**2*  2.  * I IH  C4-H  PROJ  + H BL  C I V*2  . *TST  APT  )**INLT6120 
12*XFPNC**2  ) ) /36.  INIT6130 

RIXI40)=O.  (MLTf,I40 


2223  CPNTINUF 
PM  1=0. 

CP  110°  1J=1,40 
1 1 CO  RMI  =PM  I 4R  I X(  IJ  ) 

CALCULATE  THF  transfer  TFRM  FOP  EACH  PIECE  TO  THE  INLET  C.G. 
X I TP  AM  = C. 

T=TST ART 
Phn  = P HP  A 
on  4 14  I 1 = 1, 40 
IF  I If  .ro  .34  ) GO  TO  8402 
GP  TP  8403 
84C2  T=TFPNG 

PHOsPMPFPG 

fl4C3  XIAOPsAPFAIII  l*T*PHO*( (YCG-YI 1 I ) ) **2* ( ZCG-Z ( I! ) )**2I 
(FI  I I .F0.34.0R. 11 .E0.37.0R. 11 .E0.38)  XIAOD  =0. 

A14  X ITP AN=XI TRAN4XIAP0 
p itch  I = PM  I ♦X  ITP  AN 


INL  T6  150 
1MLT6 160 
1MLT61  !0 
INI  T61ilG 
INLT6190 
I ml T 6 200 
INI  T62  10 
INLT6220 
INLT6  2 30 
INI  T6240 
INLT6250 
1NLT6260 
INLT6270 
INLT62P0 
INLT67O0 
lNLT630n 
INLT6310 
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f 
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t 


I 


f P/.l  PNl  V 

r.r  Tt>  ^CAn 

5P11  cr'NTINliF 

p irfli)U=(  . ;=»wTC  anu)*  ( (ri3**2. ) /4.-PFNGn**2.  + (<f.  *pffgc**2.  )/  3. ) 
ir(  k u r.GT  .4,4  .iND  .K  l MO.L  T.  60  PI  TCH  I =PI  TCHl  + PIcaOU 
5C  IP  rr-  T iMur 

yri':T=y  Tr  T4l  -(  x FK  F G+ XLDU'^P*  x I NLE  T4- X LFWD  ) 

X^  AC  = Xl^:t  FT  + XIPUMP  + XFPF'G 
wrHTAF  = WrHTflF*XMirJLT 
W4-HT  FF  = V,GHTFF*XN  IMLT 
wrHTnij  = y.rHTnu<‘XN  IMLT 


I''U.T6  320 
IF4LT63  3n 
1NI,T6  3 AO 
Te,x50 
IFJL  TiS-360 
T^JLT6370 
INLT(,  3P0 
I ML T 6 ion 
INLT6AnO 
I ML  T6A  10 
I MLT6A2n 


WF I GHT  = UF  I FHT*  XM  I^LT 
p itfhI^p  !TCF’I*XF)  IF'LT 

cffvfpt  fppm  imlft  cnnpriMATF  systfh  to  missile  cnopniNATF  system 
isrr,=-YrG 
X" isr  r=-zrG 
YM  lsrG=  XFG 

IF  (‘'nuT  .NF . 1 ) GO  rn  ii3 

WP  I T r(  6 ,3nGA  lAR  t V<.Hr.  , AC  PPOJ.XMI  SCG,  YMI  SCG,  ZMISCG  , XCHFCK.X'XIMP, 

I XI  ni)“P,  XFP^I^,  WF.HTA  F,  XFFPNG,  WGHTFF  ,XINl  F T.WGHTOU  tWF  I GHT,  PITTh  I 
ir  ( MPUT  .CT.  1 ) WP I TF (6  .JCNSQN) 


1 Ml  T6A30 
IML'^PAAO 
IMLT6AS0 
IMLT6A60 
IML  T6A70 
INLT6AP0 
I ML  T6A00 
INI  T6Sno 
IN  1.7  6“^  10 
fMLT652n 


30rA  { lOX,  3HAP  =,  pA.2,7H  W 1 0 TH=  , F 5 . 2 1 1 2H  IN  HF  I GHT=  , FS  . 2 t 

127H  IN  f/'WL  PRPJFCTFp  AREA  = ,F5.2,7H  SQ.IN  ,/,l5X, 

2 AHXCC=fF6.2,f>H  YCP-=,F6. 

36P  7rc  = ,F6.2,/f  15X,3nHl NLFT  LEADING  FPGE  IS  AT  STA.  ,r6.7,/, 
Al5x,  32HLEAf'INr  FOP-F  PF  PUMP  IS  AT  STA.  ,F6.2.10H.  PUMP  IS 
ElX.OHir.  LPNG., /t  ISX,  lEHAFT  FAIRING  IS  ,F  5 . 2 , I X , 2 0 H I N . L'^NC  AM 
6IPHS  ,P  6. 2,  IX,  3HLR.  , /f  I 5X,  ISHFkO  FAIRING  IS  ,F5.2,1X, 

72GHP  . IPNG  AND  WFIGHS  , F6 . 2 , I X , 3HL  R - , / , I 5X  , I 8HT  HE  INLFT  OUC.T 
PPL  .2,  lx  , 2nHIN.  LCNG  AMP  WFIGHS  , F6.  2 , 1 X , IflHLR  ( I NC  L . 6/ I OIV)., 
S1SX,2',HThF  TOTAL  INLET  WFIGHT  IS  , F6 . 2 , I X ,2HL  R/ 1 5 X , 2 7H  P I TP  H Mo 
A rr  INFPTIA  IS  , PIC. 2, PH  LR-IN  SOI 


INI  T6S30 
INI  Yf.FAO 
2 , INI  T6SS0 
I^'L  T6S60 
2,  IMLT6F70 
0 WEINLT6SA0 
r'LTGSPO 
IS  ,IMLT6f,no 
/,  INI  T 6 MO 
MFNT  K'l  P6A? 

T H t I T / . t 'J  /X 


113  x i=y 1 /HC 
X2=x2/Hr 
X 3 = X3/Hr 
XA=  X A/HC 
y r=xf /HE 


INLT6f-AJ 
I*'!  T 
INI  y 

INL  T6A70 
INI  T66P0 


X T=XT/HP 


I ’"L  T66O0 


Y 1 = Y 1 / HC 
v?=Y  2/Hr 
Y3=Y3 /HC 

Y A=:Y  A/HC 
YC=Yr /HC 

llA  rPNTINUF 
P FTllPM 

IAS2  IF  ( NPLT  .NF.  n I WRITF  ( 6,  IA93  » 

IAS3  FPOM  ATI  Ex,  AlHFFPilP  IN  MATERIALS  SUBROUTINF.  NEXT  CASF  I 
rpTIIPN 

38  IF  { NPUT  .NF.  C ) WRITF  I 6,  39  ) HP 

39  F0PMATIA6H  ERROR  TRYING  TO  FIND  ALTITUDE  DATA  IN  INLETP 
RETURN 

fF'P 


TNL  TX,  7^0 
»NL  T67l'i 
I mlT  6 /?0 
TNI  T6  7 30 
rn  t6  /AO 

INI  T67E0 

INL  76  760 
Imlt  6770 

INL  I 6 7ft  7 
I NL  T 6 790 
INI I6800 
,FIS.S)  1NLT6810 
Iml  T6R20 
I Ml  T6P30 
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';rnpni|T  INF  INLIFT  ( npm,  claim,  CD«0N  ) 
nr'<=NI)K  .CM-r  GS«  GGJ/PK-  FiV-EBCn  7/11^73 
Gl  INT  ANr«Al.  Y 

OF^L  KAP,KM 

f’lwFNSirr  CLINLxm 
OIM^MSI^^'  flASFrpipc) 

CiMFASinN  CDABTlief),  CnART2(86),  CDABT3(86),  CDART4(86), 

1 rnflOT5(86»,  rnAnr6i^30) 

ECUIVALFMCc  ( CnAPTlIl),  CDAPT611)  ),  ( CnA8T2Il),  CCART6(87)  ), 

1 I CnaBTJIl),  CnAPT6Il73)  ),  I CDART4,(n,  CnA8TM2RGn 

2 I rOAPT5Il),  CDART6<345)  ) 

^IMFM5IP^|  X(  3),  NINVI  3) 

CPVMrM/PASGPG/  OASFPISG) 

rr'^NdN/eOTAR/  nconf  , NPRX  ,np  mx  , nc  one  x,nppxx,nrmxx 

Cpmmpm  /ppat/  rnpp tl ,DUm  19( 19) 

ppMMn^|  /PBINTP/  IKP3(3),  inUT,  JKPi«3) 

CPMMpN/ IM  SFPT/7X 17 ( I 7 ) , TNT ZL ,n DM X X X , R 8 F , I NSl 0 I I 0 ) , T PL , I NG 2 ( 2 ) 
GpwMo,,  /FnP^'OW/  NP7,NALT,RMV(20)  .AL^VI  10)  ,FHRT,FACTC« 
ppMMOM/Qnnni.  / WARr(78) 

FOnlVAl  FNCF  IWARni2A),  F P SP  ) 

FOniVAl  FNCF  (WARD!  73  ) ,TR  ) , (WAftn(7A),  TR) 

rP‘*MPM/S(l'nnjT/  Pnncoi20),  XlNCni20),  WNGCn(20),  TAILCn(2n), 

1 TAvir.r(20),  FRICCr)(20),  CDCONAIZO),  C000FA(20),  CCPNAR(20), 
2rrFxPl(2n),  CnFXR2l20),  Cr)PTARI20),  rnLARI20),  BDRrM20), 
3rroRnn(20),  PLr)VAP(20),  CDCWL(2n),  FRGCn(20),  CDPIAXI20), 

A rop  INTI  2')  ),  CnPWAR(20),  CDHTAR(20),  rnVTAR(20),  CnTLAR(20), 
5rrRLF\(20),  RnP0FF<20),  Cr)PTARI20),  CDP0FAI20) 
rPMNPM  / INCF’MH/xLPLIMP  , XFFRNG  tXINLFT,  XTIPCLtSTERM.TNP 
FCUlVAl  FNCF  ( XFFRNG,  XFWOA  ) 

CPMMPM  /FXTFPM/ZAP  ( 20  ) 

FOUIVAIFMCF  (ZAP(17),  XMRJTP  ) , I Z AR  ( 6 ) , X T QT  AL  ) 

CP'^Mr'N  /Cnnpxx/  INIZ.ITYPF,  lU(l^) 

CPMwr  tg  /INOATX/ 7X9(  9)  , XCHECK,  XFRNG  , 7X12(12) 
rn^iMPN  /PJGAT/  ZX3(  3)  ,A6A3,ACA3,  ZX^(<.) 
rpMMPM  /RA5VAR/  7A7(7),  SWI,  STI,  ARM,  ZAIOCIO) 

CfMMp-g  /UPINLT/  PPAMBL(129)  , XCGOl 
Cpmmpn  /ALFfiLK/  AMAGH,  AMEX13(13) 
rr“MrN/LF  T / 
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r'L  (0010 
INL (0020 
INL 10030 
INLIOOAO 
INL 10050 
INL 10060 
INL 10070 
INL 10080 
INLIOOOO 
INL 10  100 
INL 10  I 10 
INL 10 120 
INL 10130 
INL lOlAO 
(NLI0150 
INLI0160 
INL 10  170 
r'LIO  180 
INL  10190 
INL 10200 
INL 10210 
INI  10220 
IML 10230 
INL 10290 
INl I02F0 
I"'!  10260 
INI  10270 
I NL I 0 28  0 
INL I 02RO 
INLIOOOO 
INL 103  10 
(NL  10  320 
INLIOOOO 
INL 10090 
I NL I 0050 
INL I 0 360 
I nl  10  370 
INL  10  ■•80 
INL I03R0 
INL  I 0900 
INL 10910 
IN|  I 0920 
INL I 0930 
IN'L  10  990 
INI  10950 
INL 10960 
INL 10970 
I nl I 0980 
INL 10990 
INI  I05O0 
INLI0510 
INL 10520 
INl  10530 
IML I 0890 
INL (0550 
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fl  ATWV 
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,00 

,DD2 

,nPR 
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INLT0560 
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r f FN 

.F 

,fl 

,FP 

,Pl 

.RLO 
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INL 10570 
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PI  OR 

,RRT ANA 

, SLETP 

, SLEWR 

.STSRFF 

tSWSREF 

f 

INL I05P0 

e 

SKRT 

.SKIP 

, SKRW 

, SKWP 

,trtpi 

,TRWPl 

t 

INL I O5R0 

p 

r F I 

,TANST 

, tansw 

, TAN  S4  T 

.TANS^W 

,T  ANSpy 

f 

INL 10600 

A 

TA.M5 

, xn  IH 

fXOiPT 

,XOl  t 

, XOl  W 

♦ XNLC'^P 

f 

INI  I06i0 

P 

yA  L c CP 

, ACT 

,acw 

,XNLCLP 

fBnOYL 

,TAILL 

f 

INL 10620 

r 

W PICI 

, RL 1 SCR 

.OISOR 

,FR1 

,FCAP 

tCOPNX 

9 

INL  10630 

r 

AC  AP 

, tm  1 

, SPN 

, VPN 

,F  AF  Nl 

, P^N 

t 

I'JI  I064O 

r 

AM1SE2 

, SWSRN 

,RMnsE2 

, XL  INF 

,CR2 

, NCL'NI  3 ) 

9 

r'L  I 0650 

F 

ro  FM  Ay 

, rp  A MA  X 

,R? 

,CNVR 

,RI 

,07 

9 

INI  10660 

f 

5V2 

, SLF  1 

,SLFZ 

, XVA 

,XVB 

,XVC 

9 

r'l  10670 

H 

rT2 

.CX 

, VPLN 

fVOLBT 

, VOLBOO 

,SW  pR  FF 
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CCMMPM/rHK  /CDM  l , KAR  , KN* 

^'A''FL  I ST/r.HFCK/  AP  N,  SFN,  TRN,  ATNS  2N  , B AR  M , A I C L N,  THK  R \ . R I N*' , 
I'^l  CN,  nTAM5;N,r,NRN  ,nFLP)r',  CCNl  ,KM,KAR 

^ Amfl  lST/^lUTPUT/M^',R^N,TCN,  SLENf  XCPI  tCLAM.ARN, 

ICFRr-FF,  CL  ATWV.py.ClA  I WV,C  maN.CNBN 
NAMFL  IST/lNPLT/yMp  jto.STFRM  ,XI  NIFT,  XLnu«P,XFPNr, , XTCTAL  »03  , 
lArA3, 43fSPRF,XTIPfl  , I TYPE f XF WDA.XDl T ,C LAT,  PM V , D I , XCH F CK , 

2SPT,FRPT,nT,TRT,TM'l7L»FAC  TOR  , A6A  3,  XCGOl  ,ART 
NA«Fl  IST/CKOUT/  AC P ER » 0 I A w , $ TFRM , HBLD F V , RN  ,RC N , TC N , F PS R , 


P'l.  10  700 
IN'L  IP?  n 
INL 10720 
r'L  I 0730 
I Nl.  I 0 Y40 
INI  10  750 
INI  10760 
INL I 0770 
INI  I07P0 
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/LAN, XI  r,Xl  FN,riAM 

,rLAlN,CLAINX,ACA3 

,AC,X,NINV 

TA'L  I07y'0 

FPUM  ATI 

//I3,  2X,  FHINTWPP,  2H, 

, 

INL 10800 
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6H 

X r P I , 2 F = , 

F1C.3,  2H, 

, 6H 

CLAN,  2H  =,  F10.3, 

2H,  , 

INI  I OP  1 0 

2 

6H 

rLA«,  2F  =, 

F 10. 3 , 2H, 

, 6H 

CKNB,  2H  =,  E10.3 , 

2H,  , 

INL I08?0 

3 

6H 

riFON,  2F  -t 
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, 6HCLA1A'L,  2H  =,  El  0.3 1 

INL  108  ’0 

FATA  BASFFP/ 

INI  10840 

1 
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O.R,  -.137, 

0.9,  - 
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.0,  -.092,  A.O,  -.065,  5. 
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P'L  I 0860 

FATA  r r 

APTl/  l.OOO, 

INI  I 08  ""L 

1 

0.000  , 

r.  ABC, 

0.  02  5 , 

) .575  , 0 .050, 

0 . 60  0, 

H . 10880 

2 
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C.  1 00, 

0.600,  0.150  , 

0 .5P0  , 

ro  I9  8<40 

*, 

C. 2C0, 

0.510, 

0.250, 

0.A80,  0.300, 

0.440, 

1^;L  I099-) 

6 

0.350, 

0. 3 BO, 

O.AOO, 

0.320,  0.A50, 

0.250, 

1ML  10  ) 10 

c 
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0.  2! 0, 

0.550, 

0.160,  0.600, 

0.130, 

ro  10029 

6 

0 . 6 5 r , 
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0.  700, 

0.090,  O.BOO, 

0.060, 

I NL  I 00  80 

7 
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C.OAO, 

0.  950, 

0.000,  1.000, 

0 .000  , 

T^'L  T OOF,  9 

p 

2.000, 

r.o  I9TF5 

5 

C. 000, 

1 .7A0, 

0.025, 
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P 
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F 
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O.OlO,  l.OOO, 

9 .0007 
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1. PRC, 

0.100, 
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5 
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t 
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0. 700, 
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0.09  9 , 

ru  I 1 199 

7 
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0.950, 

0.010,  l.OOO, 

0.000, 

INL  I 1 109 
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1. 300, 

O.AOO, 

1.090, 

0 .A50  , 

0 .910, 

IML  n 390 

5 

0. SCO, 

0.760, 

0.550, 

0.  600, 

0.600, 

0 . A8  ,0  , 

INL IIAOO 

6 

0.650, 

C. 370, 

0. 700, 

0.270, 

0.800  , 

0.130, 

IML  HA  10 

7 

C.9Cn, 

C.  CAO, 

0.950, 

O.OlO, 

l.OOO, 

0.000, 

INI  nA2'8 

P 

10. ore. 

I-"!  nA30 

9 

0.000, 

5. COC, 

0. 025, 

A. 270, 

0.050 , 

3.560, 

INI  I 1 AA9 

A 

0.075, 

3.2  80, 

0.  100, 

2.990, 

0 . 150, 

2.560, 

I ML  I 1 A50 

R 

0.200, 

2.210, 

0.250, 

1.910, 

0 .300  , 

1.630 , 

IML I IA60 

r 

0.350, 

1.390, 

O.AOO, 

1.160, 

0.A50, 

0 .f'7  0 , 

P'L  I 1 A70 

n 

0. 5C0, 

C. 820, 

0.550, 

0.  660, 

0.600, 

n .520  , 

IML I 1 A8n 

F 

C.  65C, 

O.AIO, 

0.700 , 

0.270, 

0 .800, 

0 . 1 A 0 , 

lA  L I 1 A90 

F 

0.9C0, 

C.  CAC, 

0.950, 

0.010  , 

O 

o 

c 

• 

0.000/ 

IML  n 500 

PAT  A 

CnAPT5/ 16.000, 

IML I 15  10 

1 

0.000, 

5.600, 

0. 025, 

5. 000, 

0 .050  , 

A.  ion. 

|ml 1 1S20 

2 

0.075, 

3. 700, 

0. 100, 

3.3AO, 

0.150, 

2 .9 10  , 

I ML  I 18  80 

3 

0. 200, 

2.500, 

0.250, 

2.160, 

0.300 , 

1.860, 

IML  I 15 AO 

<1 

0. 350, 

1.630, 

9. AOO, 

1. 360, 

0.A50, 

1 .lAO, 

INL I 1550 

s 

0. 500, 

C. 920, 

0.550, 

0. 750  , 

0.600, 

0.580, 

INL  I 1660 

6 

0.650, 

C. AAO, 

0.700, 

0.320  , 

0 .800  , 

0 . 1 A 0 , 

I^!L  11670 

7 

0.900, 

C. OAO, 

0.  950, 

0.010, 

1 .000  , 

o.ono. 

U'l  11  580 

8 

20.000, 

INL I 1590 

9 

0.025, 

A. 990, 

0.  050, 

A. 500, 

0.100, 

3 .750, 

INL I 1600 

A 

0.  150, 

3.150, 

0.200, 

2.750, 

0.250, 

2.380, 

INL 11610 

R 

0. 3C0, 

2. OAO, 

0. 350, 

1. 7A0, 

O.AOO, 

1 .A70, 

lE'L  1 1620 

r 

0. A50, 

1. 200, 

0.500, 

l.OOO, 

0.550, 

0.800, 

INL  n 680 

r 

0.600, 

0. 630, 

0.65  0, 

0.A90  , 

0.700 , 

0.360, 

IMl  I 16A0 

E 

0.750, 

C. 250, 

0. 000, 

0. 150, 

0.950, 

0.080, 

INL I 1650 
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0.950 


0.  rtl  0 


I .000 


F 0.900,  C.C'<C, 

OftT'i  COP'irn;  FRO^  hki  I (PATIR) 

PI  = 2.1P.1593 
r = PI  / IriO . 

FPR  = 57.295/R 
K PYX  1N  = C 

rri’PTi  =c.o 

il  T = 1 . 

Ai  PHa‘<  = c. 

fD'^Y  = ftPw 

rrNPTL  = C .0 
f3  = 7f P(  12  ) 

72  = A3  <"  14‘V. 

R P F F = 4 3 
r2  = 7 7 P ( 3 I 
P 1 = 03 
P 1 = 0 I 72  . 

IFIXOYXII  .rO.O)  r,n  TO  4PCC 
XT'  I7'L  T=  I TYPF 
70=4043*4  3 
40PFF  =40/XN  irjl  T 
n I A>‘  = PQPT  ( x,,«40  P cp  /P  1 ) 

RT  FP  M=P8l  0 IV  + n I4M 
PM=2.*RTFpM 
4900  COMTIOtlF 

P(  3 = XTOtai 

IF  ( inUT.FO.n  ‘rtP  ITF(<S,I  NPUT) 

irn  j = i,7'PY 

PV=PMV( J ) 

IP  ( r'PM  .LF.  1 ) RM  = 4M4CH 

XI  F=xLFrre  * 02 

X|  EM  = XTP'T4|.  - XI  F 
TFIKHYXIM  .FO.  1)  Of!  TOI  202 
IF( ITYPE.MF.2)  on  TO  5000 
ir» p".LT.x«PjTn)  on  rr  5100 
HN=STFPM<=2.0 

P.ON=X  irJL  F ’■  + X*  nUI'P  + C.'*XFPNG 
TrM  = PCF 

I Ft  K PYX  IN  .7'F  . 2 ) on  TP  4P3 
XI  4H  = C.  5*03  /FP  9P 
PON  = x'  FN'  -C.  5*XFRr  0. 

TO  v=prf' 

4P3  OriNTINDF 

SI  rN  = n.c 

TFKPM=0  .05 
px  irj7'=n.5 

XOPI  = XCHFCK  / n? 

SFN=?.n*PO‘jx-<;TFR!^ 

Ot  4M  = 2.C*4C4  2*4  3/1  57.  296*SPFF ) 
or  TP  5200 

5000  IFIPM.l  T.XWPJTOI  I on  TP  5200 
rL4I'‘iL=F.O 

OL AM =2. 0*4043*43/(57. 29 6* RRFF) 

IFIKnyxiM  .F0.2)  m rn  5040 
R0N=XINLFT  ♦ Xinui'p  ♦ C.5*XFRNG  + XT  I POL 


0.000/  IMtfif>60 
I^'l  11570 
tNl  I 15P0 
INL I 1 590 
IM|  I 1 roo 
INI  I 1 71 0 
I ML  T 1 72  0 
IML 11730 
INL ' 1 740  j 

INI  I 1750 
INL  1 I7f 0 
INI  I 1 770 
INI  I 1750 
INL I 1 790 
INL 1 1500 
INL  I 15 10 
I^!L  11520 
I N|  II  850 
INL 1 1 340 
INI  I 1 55,0 
INI  I 1.3  50 
I'll  I 1570 
I'H  ! 15P0 
PM  11500 
1 ML  I 1 900 
I''LI  1910 
INL  I 1920 
P'L I 19  30 
INI  I 1940 

P'L  I 195  ) 

I'll  I IVh) 

INI  I 1979 
t » 1 I 1 c u 0 
INI  I 1090 
I'll.  I ?O90 
I'lL  I ■'0  10 
I'l  1/920 
1 ' I I 2 0 3 0 
I'-l  I 2040 
I'H  I 2050 
F‘'L  I 20  50 
I'H  I 207.0 
INI  12050 
I'lL  1 2090 
INI  12100 
I' 1 I 21  10 
I'll  I 2120 
INL  I 2 1 00 
INI  I 2 140 
INL  12150 
I*'l  121/0 
I'lL  I 21  or) 

INI  121  "0 
I'l  12193 
I'M  12  000 
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I 

i 

j 

I 

I 

I 

L 

[ 

[ 

9 


1 


tcn^pCF:  - xTinCL 

INL 12210 

SI  EM^AT  AN  ( STERM/ XT  IPCl  1 

INLI 2220 

cr  TP  5C50 

INL I 2230 

5C«0 

RrN  = ''LFN  -C.5*XFRNr, 

INL I 22A0 

TrN=PCM 

INLI 2250 

SLF6'=n.o 

INI  12260 

5CS0 

CPN  T INUF 

INL 12270 

TFKPN=0  .05 

IML 12280 

RX  INf'=0.5 

INL 122R0 

xrPI  = XCHFCK  / 03 

INL 12300 

SFM=  (dcn  ♦ TCN)«STFRM 

INL 123  10 

P^'  =?.X'STFRm 

INL I 23?0 

iPN=f<N*eN/SEN 

INI  1 2330 

CP  T()  5 200 

INL I23AO 

5 ICO 

CL  AP  = 3.0 

INLI2350 

IRIKPYXIN  .F0.2I  Cn  TP  5150 

INLI 2360 

RCN  = XINLFt  ♦ XinUNP  ♦ XFWDA  *■  0.5*XFRNG 

INL 12370 

TrN=RCN  - XFWCA 

INL I 2380 

^^=5TEPM♦2.C 

INL I 2390 

SI  EN  = 0. 

INL  12^.00 

IF  ( XFWPA  .OF.  C.  ) SLEN  = ATANI  STEPM  / 

XFWDA  ) 

IML 1 2^1  0 

cn  TP  5 160 

INI  I2A20 

5 1 50 

Cl  A«  = 2.C*ACA3’XA3/(  57.2'3  6*  SREF  ) 

IML  I 7A30 

prN=XLFN  - O.S^XFPNG 

INI  1 2A<iO 

TrN=  RCT' 

IML I 2450 

SI  FN=O.C 

IML 12460 

5160 

CPNT  INUF 

INL 12470 

TPXRN=0.n5 

r'L  I 24P0 

PX  ! =0.5 

INL I 24^0 

Pxl''iN=n.5 

I NL I 2500 

XCPI  = XCHFCK  / 03 

INI  125  10 

sPN=n.5*(RCN  *■  tcn)*pn 

1M| I 2520 

rn  TO  15200 

I L 12  5 30 

52CO 

CL  AM=0 .0 

fV(  12540 

Cl  A 1 = 0.0 

INI  12550 

PCNrXIMLFT  ♦ XLPU^'P  ♦0.5*XFRNG  ♦ XFWDA 

IMl  12550 

TrN  = R CN-X  FWCA 

INL I 2570 

SLFN=0. 

IML I 25PO 

IF  ( XFWPA  .CT.  C.  ) SLFN  = ATANI  STFRM  / 

XFWDA  ) 

INL I 2500 

cr  TP  5050 

INL I 2500 

5 3 CO 

^R^)  = BM*p^'/SFN 

IML I 261  0 

**  SWFFP  AMGLF  Ll^^fT  OF  62.5  PFG. 

*«r»«  IN)  12520 

IML I 2530 

IFISLEN.GT.I.PROF)  SLFN  = l.OOOB 

INI  12540 

TPN  = TCN/RCN 

IM|  I 2550 

SVAl  = SLEN 

INI  12550 

IF  I SVAL .FO. 0.0)  SVAL=C.01 

IMi 12670 

TANSM  = TAN  (SVAL) 

IML I 26?" 

TANS2N  = TANSN*( TCN-PCN) /BN 

INI  I 2590 

ATNS2N  = ARN*TANS2N 

INLI 2700 

PFTA  = SORT! APS( RMORM- 1 .0 ) ) 

INLI 2710 

PARN  = PFTA*ARN 

INI  12720 

ETANSN  = PFTA/TANSN 

INL  12730 

ALSRN  = 0. 

INI  12  740 

CNASN  = 0. 

INL I 2750 
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r 


At  PT  = 0. 

= 0. 

VMV’  = P w*sr)p  T ( I .- ( SI^'(  SLEN)**2  ) ) 
crri":  = A TAr' ( THKOr  /(  P »I  NN  + R XI  NN)  I 
= np«  «.r:nFLN/rns  ( SLF  M 

L IMFAR  1 IFT  nuF  TP  NACFLLFF 

fall  LX'-T1(ARN,SFF,  TFM,ATNS2N,BARN,AICLNfTHKRN,RXl  NN,SLFN, 
I MTANSN,r,NPN,DFLNM,FLAN,RM) 

IF  ( If'UT.FO.l)  WP  I TF  ( 6,r  HECK  ) 

l.*(R«-l. » 


KM=c.35  ♦ 

KM=  l. 

KH=l.-0.F15*(PP'-2.  I ) 
KM=  .2-. 148* (RW-3.65) 


I P(  RM  .CF  . 1 .0  .A^Jn  .PM.LF  . I . 65) 

I r(  F«  .FT  . 1.6  5 .AND.O‘1.1  F . 2.  I ) 

I P(  f « .r.T  .2.  1 .ANn  .f’M.i  p .3.65) 

IF(  PM .GT. 3.65.AMr.RM.LE. 5.0) 

IF( PM .FT. 5. ) km=c. 

KAR=-.246S  + .2463/AF^ 

CL  A'"  I =n  AN  / ( 1 . ♦ PM*KAP) 

TP^'PI  = TPNfl.O 
FAUN  = C.O 

IF  (PM.NF.l.O)  PAPN=BAPN*TRNP1*(  1 .04-1.0/8TANSN) 

0|  I ^!  = XFHFCK  -XFWFA 
'FIPM  .FF.XMRjTn)  flln=xcheck 
^MAjM  = n3 

♦ * X FAPPYPVFP  TFRF'S 

FALL  L y PT2(  FTANSAI,  FP  A PI  ,RCN,PMW  , APA)  , P\ , R A PM , 8 AP  N' , FLAM,  A I FI  N, 

1 pLLN,  FKMR  , C.K  RNf  RM  ) 

TPTAL  IK.'EAP  NACELLF  LIFT  <<♦♦*♦*****♦**♦*♦♦***♦***<■■ 

Cl  AINL  =Cl  AN  I*(CKNP  ♦ CKBN)  +•  CLAM 
in  ITYPP.FO.  1 ) FiaIAU  = CLAM 
I = 8 

IF  ( IPUT.rp.l)  WP  I tf  ( 6,  I 002  ) I ,XCPI  ,clan,c,lam,ck\p,c.kbn,clau 
Cl  I = 0 . 

F = F . 

C^'AA^'  = 0. 

IV  = 2 

l INFAP  = 1 

rwi=o. 

CMw=n  2 

CMT^PT 
AFL  =XF  FFCK 

ifiitypf  .fo.  I)  r-n  to  2020 

IF|  [TYP  r .FO. 2 ) C VP  I =CL  AM 
I F(  I TyP  F .FO  . 2 ) XFPIY=XCHFCK 
GO  TO  203 
2C2  CnNTINUF 

BYPASS  LIFT  HACK  USF  TLU 

Cl  A IN  = 0. 

IF  ( ITYPF  .LF.  1 ) GO  TO  300') 

NVAP  = 3 

K INV(  1 ) =NFl  AC 


I^'L  12760 
INL I 2770 
INL  T27‘I0 
INL 12700 
U’LI  2800 
INI  I 2810 
INL  I 2820 
INI  I 28  30 
INL I 2840 
INI  12850 
INL 12860 
I NL 1 2870 
I Ml  I 2 880 
INI  I 2800 
INL 12000 
ril  I 2^1  10 
INI I2o?0 
r'L  I 2030 
INI  I 20^0 
P'L  I 2050 
IML  I 20f.n 
I Ml  I 2'V7  3 
I^IL  I 20  0 0 
INL  I 

I'lL  I ’noo 
♦**  * INI  I 20  10 
INL I 30  20 
INL 13020 
rO  I 20A3 
INL  I 3 15.1 
♦ ♦ ♦ » I ML  I 3 3co 
INI  I 80  70 
I ' ‘ L i 3 1 - 0 
TNL  1 o''c'n 
IML  I 8 100 

I INI  1 3 1 n 

INI  '3  130 
IML  I ->  1 30 
INI  I J 1^0 
INI  13  150 
INI  I 3 If-’’ 
tM(  13  170 
IML  I 3 180 

I M.  I 3 I'll 
INL I OOOO 
IM| 13210 
IML I 12  20 
I Ml  n230 
IM|  I 2 2/’,o 
INI  1 32  50 
r'L  I 3 260 
INI  1 3270 
INL I 3280 
I ml  I 3 200 
INI  I 3 300 
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N JKVl  =\ri  L T 
MNiv(  3)  =N'rLMAr 

C LIFT  (lASFD  CN  2 SIHF  INLFTS 

dfv  = 2.  ♦ AC  / xr  IM  T 
XL  F = XLFnCE  *03 
XI  EN  = XTP  TAL  - XLF 
x{ 1 » = a:  X 
X ( 2 » =XL  F^ 

X(  3)  = ^^* 

CALL  FASTF(  NVAR  , NINV,C  LI  NLXJDtX, CLAIM 
30C'’  CriNTIMUF 

TL  AM  = 2.*ACA3*AC/ ( 57.296*SREF ) 

CL  A rNL  = Ct  AIN*  CLAM 
2023  rrNTINLlE 

ft  ATWV=0.0 

1F(  ITVPF.EO.l)  XCPIY  = XCPI 

IF(  ITYPF.FQ.  1 ) CYP I = 0.5*CLAN*(CKBN  * CKNBI  ♦ CLAM 

C HOATTA  IL  GFOMETRY 

2C3  CPNTINUF 

CM4N  = rL  AINL*( XCGOl-XCP I )*57. 296 
rMRM=CYBI*( XGGD 1-XCPI Y)*57.?96 
xcT=rRRT«‘n  1 

PF  = SORT  I A.  * A6A3  * A3  / PI  ) 

cp=rE  + FACTOR*  in’-nr  J 

IF( XPT.CT  .TNOZL ♦ l.  ) XBT=TN07L*1. 

IF(nP.LT.n3)  GC  TO  205 
cp=n3 
GO  TO  2C7 
2C5  CPNTINUF 

IF(  IPTl  .EO.  0)  GP  TO  2Ct 

pi  p -y  TO  T Ai_  _ y B T 

T ANBT  = ( C l-CB  )*0. 5/ ( XT0TAL-RL2I 
IFITAMPT.GE. 0.286)  TANRT=O.206 

C maximum  BOATTAIL  ANGLE  IS  17  DEG 

l'P  = ni-2  .♦(  XTnTAL-RL2)  *TANBT 
TFFTBT=ATAN((ni-De)/(2.*XBT)) 

Rl=ni/2. 

XTHE8T  = P 1/TAN( THETBT  ) 

GH  Tn  2C7 
2C6  CONTINUE 

tfftp.t=o.o 

XPT  = 0 .0 
CP  = D1 

2C7  CPNTINUF 

C AOJUST  BOATTAIL  CPO  FOR  CHANGE  IN  N07  LT 

PI  r)=X  8T  /P3 
0LrB=2.*RLn/PFTA 
cn=nB/02 
rr2=co*on 

IF(  IBTL  .EO.O  ) GO  TO  76C 

CAll  81  INF!  lOtPlfCOABTFIl)  tPL0BtD02,CnA) 

CrPRTL  = .25*C0A*(  l./RLD)**2 
IFICPPBTL  .LT.0.0)  COPPTL»0.0 
760  CONTINUF 


INLI3310 
INL 13320 
INI  13330 
INL I33AO 
INL IT350 
INL 13360 
ML  13370 
IMLI 3380 
INL 13390 
INL I3A00 
INL I 3A10 
I NL I 3A20 
INL I3A30 
INLI3AA0 
INL I 3A5n 
INL I3A60 
INL I3A70 
INL I3A80 
INL I 3A90 
INLI3500 
INLI3510 
INI  13520 
INL 13530 
I NL I 35A0 
INL I 3550 
INL I 3560 
INI  1 3570 
INL 13580 
INL I 3500 
INL 13600 
I '''L  I 3610 
INI  I 3620 
I NL I 3630 
INI  13660 
IML 13650 
INI  13660 
INI  136  70 
P'L  I 3680 
INL I 3690 
IN(  f 3 710 
INLI 3710 
INI  13720 
INL 13730 
INl  13760 
INLI3750 
INl  I 3 760 
INL 13770 
INLI 3780 
INL I 3790 
INL I 3800 
INL I 3810 
INLI 3820 
INLI 3830 
INL I 3860 
INl  I 3850 


IF(  INI7  .FO.^f  ) r.n  TD  1176 

ep  = ( cp*^2-nr**2  i/r 3**  2 

CALI  L INE(  lCtR*^,BASPCP(  D.CPQASE) 

r r‘>nN=-CPRASF«AP  *rB/D3 

rr'’riFP=-CPP  ASE*rP**3/n3'**3 

IF  ( irUT.FO.l)  WPITF(6,nuTPLT| 

cn  TP  100 

1176  rr\'TIMUF 
P’=0. 5«C1 

= _ TR  _ TO 

«;PA=  DI*  ( k3**2  - 04**?  ) 

SFR=  nj*RpF<<*2 

SAPT  = PI*  ( RRF  ♦ 2«'TB  TRL  I <‘♦2 
SAO=  <;apt  - <;rH 
PT4P0=  C.O 
X( l)=l. 

X( 2) =PT6PC 
X( 3)=P« 

A VAP=  3 

N IMV(  1 )=Mr,PNF 
M^OVI  2 )=rjPP.X 
M*"V(  3)=FiPMX 

CALL  FASTFINVAR,  MNV,  flASEP(l),  X,  PPPINF) 

rppASF=(PPPINF  - 1.1/  (0.7*PM**2) 

rrRPFF=  -CPPASF 

CrPAMN=~CPBASF*SBA /SPEF 

PT4P0=  1.0 

X( 11=2. 

X ( 2 ) =PTAPO 
X ( 3 ) =0^' 

^ V AR  = 3 

N IMV  ( 1 ) =M  ON*-  X 
N INV(  ^ )=F'PPyX 
•■1  TNV(  3 )=NiPMXX 

CALI  FASTFINVAP,  MNV,  PASFP(l),  X,  PPPINF) 
CPPASE=(PPP INF  - 1.  )/  I0.7*PM**2) 

CrPHP=  -CPBASF*  SAPT/SPFF 
rraASF=  rOBANN  + CnppB 
rrpPM  = C CRASF 
JJ  = 1 

FFPPFFI JJ  )=CORnFF 
pppPA'i  j j I =crpnN 
ICO  CPMTINUF 
PFTUPN 
CNP 


SLHROUTINF  ISEN  ( TA  MB  , PA  PR  , X M!  NF  , T TO  T,  PTQT I 

COR'^ON  /=UNnVR/  MCOFL 

CCMMPN  /FAILL'R/  KFAIL 

rp(  T ) = A-»P*T  + C*T**?+n*T**3  + E*T**4 

ENT  HI  T ) = A*T^B/2*T**2*r.  /3*  T**  3+0/-i*T**<,+ F/^^T***? 
PHI!  T J = A*AL0C(T  )4P*T+f /2*T*T+0/3*T**3+F/4*T**4 
IF(  XMIA'F  .LF.  0 1 GO  TO  26 


INL 13960 
r.'LI3R70  i 

INLIJflflO 
INLtORPO  : 

Ia;LI3900 
INL 13910  i 

INL 13920  i 

1NLI3930  ! 

INI  I 3PA0  j 

INI  I 3960  j 

INL 13960  J 

INL13970  i 

INI  I 39R0  ] 

1NLI3OP0  j 

INLI6000  j 

IMLI4010  i 

INL I 6020 
r'LI  60  30 
INL  T6060 
INL 16060 
INL 16060 
INI  16070 
INL I 6080 
INL 16090 
INL 16  100 
INL 16  1 10 
INL 16120 
INL 16  I 30 
INL 16160 
INL 16160 
INL 16160 
INI  16  170 
INL 16  IPO 
P'L  16190 
I Nl  16300 
INL  16210 
INL I 6 3 20 

IMLi47->0 

INL  16  260 
INL 16260 
I “"L  I 6 3f,0 
1 NL I 6230 
INL 16230 
INI  16  290 
INL 16300 


ISFNOOlO 
IS  F\|r)020 
ISFN0030 
IS  FN0060 
IS  FN0060 
ISENO060 
ISFN0070 
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GC=32.17 

p=0.0te55 

A = 0.  ?^979‘; 

P=-0  .S  1A602F-04, 
r = 0. 7-^27756-07 
C=-C.  2709996-  10 
6^n.3l2A67F-  l-i 
N = 0 
M = o 

VfLSO=CP(TAMR|*P/(CP(  TAMp)-R»*GC»TAf'B*XHINF*t2 

Tru6FS  = ( 1.4-.2*XMI1F**2)*T4MP 

F=VFL  SO/2./GC-PMTH(Tf.UFSSUFNTH(  TAMB) 

Fpp=fP(  TGUFSS  I 
TMrw=TGUrSS*F/FPR 

IF  I ABS  (F  ) .1  T . l.E-CA*VFL  S0/6A.  ) GO  TO  5 
N-N+  1 

IFIN.GT.SOI  GO  TO  5C 

TGUFSS=TMrw 

CO  TO  A 

5 IF  ( ARSl  F/FP9  l.LT.  l.F-CA*  TGUFSS)  GO  TO  6 

M =M  ♦ 1 

IF( M.GT  .50)  GO  TP  60 

TrUFSS=TNFW 

CO  TO  A 

6 TTnT  = TNFW 

PTnT  = EXP(  l./R*(PH(TTnT)-PHI  (TAMB))4^ALnGlPAM0)  ) 

RETURN 

50  WRITF(6,51) 

GO  TO  2f 

51  FORMAT! 37H  FAILUPF  TQ  CONVERGE  ON  F IN  50  TRYS  I 
60  WR  ITF ( 6,6  1 ) 

TO  '■y  t 

, K.  ■ • r w 

i;  6 1 FORMAT!  AlH  FMILPF  TO  CONVERGE  ON  F/FPR  IN  50  TRY9  ) 

26  W0ITF!6,27)  TAMR,PAMP,  XMINF 

i 27  rnR«AT!2lH  FATAL  FRROR  IN  1 SEN  ,3F10.5) 

IF  ! MODFL  .GT.  0 ) GAIL  FRROUT 

KFAIL  = 19 
; PFTUPM 

FMO 


ISEMOORO 
ISFN0090 
ISFNO  100 
IS  FNOl  10 
ISFM0120 
ISFN0130 
I9FN0U0 
IS  FNO  150 
ISFN0160 
ISEN0170 
ISFNOIRO 
ISFM0190 
ISFN0200 
ISEN0210 
IS  F\0?20 
ISFN023O 
IS  EN07^0 
1SFN0250 
I S EN0260 
IS  FN0270 
IS  O'!  02  RO 
ISFNO  ?P0 
1SFN0300 
TSFN0310 
I SENn320 
ISFN0330 
ISFN03A0 
IS  '^NO  3 50 
ISFNO  360 
IS  ENOT  70 
I S FN  0 3 8 0 

ISFNO  300 
ISFNOAOO 
IS  fnO^  10 
.S  FN04  20 
IS  FNOiV^n 
ISFNOAAO 
I S fnOASO 
ISFN0^60 


SURROUTINF  M A TL S ! N , TFMP ,PHO ,F Tt , F T Y , I NO)  VATinOIO 

COMMON  /rnoFxx/  contxiu),  nout,  cunxx  ‘<ATLni2o 

CPMMON  /MATTYP/  IP!  3)  «ATi  0070 

riMENSION  IAI39)  MftTLOOAO 

DIMENSION  FI23A)  vatlOOSO 

OImENSIFiN  MATL0060 

lA  1! 9), A2! 9 ),B  II 9),R2I 9),C II 9) ,C2 (9) ,Dl !9)  ,02  !9I  ,El  19) ,F2!9) ,G1 I 9)  ,maTL0070 
IG?!9),H1!9),H2!9),PII9),P2<9),OII9),Q2I9),RII9),R2!9),S1!9),S2!9),MATLOORO 
IT1!9),T2!9),U1(9),U2I9)  MAT!  0090 

FOUI  VAl  ENCE  maTL  0100 

II F!  1 ), A 1!  1 ) ) , IF  I 10),A  2! I ) ) , IF  1 1 9 ) , RI 1 1 ) ) , ( F I 28 ) , P2 ( 1 ) ) , MATL 01  10 

XIF! 37),ri!  1)  ),  MATL0120 

21  FI  46 l,C?!  1 ) ) , IF( 55) ,DII  1) 1 , IF  164) ,021  1 1)  , IF  173 ) ,El I 1) ) , I F( 82)  , matlO 1 30 
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3‘^?(n),(P(9l),G  1(1)), (r(lC0),C2(lH,(F(l  09  »,Hl(n),(F(ln»,H2(l))t^'ftTL  014,0 
4t(  >■(  127)  ,P  I ( I ) ),  ( F{  136  ) ,P2(  1)  ) , (F  ( 145)  ,01  ( I ) ) , ( F ( 154  ) , 02  ( 1 ) ) , »46TL0150 

5( F(  H 3 ) ,P U 1 ) ), ( F(  172) ,R 2( 1)  ) , ( F ( 1 81 ) , SI ( 1 ) ) , ( F ( 190 ) , S2 ( I ) ) , ^ATL0160 

6(  F(  199) , T 1(  1 ) ) , ( F(  208  ) , T2(  1 ) ) , (F  (217)  ,Ul  (1)  ) , ( F ( 2 26  ) ,U2  ( 1 ) ) ^'ATL0170 

data  Al/  152.9o705,-.04988b,2.  13696E-4,-8.2522E-7,  1.52593F-9,  •'ATL0180 

1 - 1.4iC7076F-l?,  4.6656C9E-16,0.0,0.283  / ''ATI  0190 

OAT  A A?/  13  5.9963,-5.  9441 22E-2 , 1.454094E-4  ,-2 . 73208 E-7  , 1 . 02 2 57 E-1 O” ATI  0200 

i,r.n,  0.0,  0.0,  icon./  ‘mtlo210 

OATA  91/  20  3.7239,-3.  1 C O 86  7F- 2 , - 1 . 2 5 5 5 1 F-4 , 5 . 1 1 3 5 7 E-7  , - 7 . 4 1 40  7 E - I 0*' AT  I 02  20 

I,  2.'’6l339n_i3,o.C,0.n,  0.283/  ''ATL0270 

fata  92/  18  1. 26441, -8. 3004598-7,  1 . 0924 1 E-4  ,-3. 3 780  E-7 , 1 . 19098  F - 10  , “ ATLO  240 

1 0.0,  0.0,  C.O  , 1000./  ''ATI  0750 

fata  Cl/  290.319  1,-.  12987056  ,- 7. 24  94  5 E-5  , 1 . 4 12 1 5F-6 , 3. 7 7 POl F-o, m aiL 0 260 

I 4.04P478P-  1 2,-  1.623592F-15,  0.0,  0.289  / MftTL07T0 

FATA  02/  275  .68  73,-.  1 133  891  , -2 . 59  7554  E-4  ,2 .86207  F-6  ,-9.  200  84  F-9 , '' Atl  0 280 

II. 42n6?llF-ll,-  1.0782391F-14,3.154253F-18,1000.  / f'ATI  9290 

r/T  A Cl/  19  5.344  3,-.061P165  75,-1.63  7407F-4,1.89322E-6,-7.6?79  1F-9,''ATL0  300 

1 1.39053088-11,-1 .161 P146F-14, 3. 576743F-18,. 282/  "7710  3 10 

data  02/  175.1215,-.  06  01  11 575,- 1.241 5848-4,1.41 779 E-6, -5. 80028  F-9 ATL 0 3 20 
1 1 .08 00 203F-1  1,-9.2  36  21928-15,2.90165  88-1 8 ,900./  m ATL 03 3 0 

DATA  El  / 66 .5  179  2,-.  0 3772  6844,2.  92466  088-4  ,2.016  61  F-6  ,-5 .80  264,  F- 8, '' ATL  0 3 40 
1 3.92702748-  10,-  1.24848148-  12,2.0811  148-15,0.101  / ''ATL0350 

DATA  82/  59. 2 73 7 2,-. 0 43642 571, 3.  28778138-4,3.22  568  F-6  , -6 . 2 54 10  8-8 , v atLO 3 60 
13. 5731961  p- 1C, -1  .0  3 356698-12,1.6217368-15,600./  ''ATL0  370 

DATA  01/  34. 5 485 6,-. 04001 656, 8. 28 773 53 E-5, 7.59063 3 8-7, -1. 3 35138-3, MAT LO 3 80 
14.86481008-11,-6.94773528-14,3.53700618-17,0.0639  / MATL0390 

FATA  G2/  16. 10  74  5,-.  01 C2 9 62 3, -3.  9 791678-5  ,9.029  109  8-8  ,-3.577  22E-9,maTL0  400 
I 1 .64  8P36R8-  1 1,-  2.6  80  17C2F-  14, 1 .49400918-1 7 ,6  00. / matl0410 

DATA  HI/  145.234  1,-.  1 4093 73 9 , 1 . 61  13261  8-5 ,4. 811  17  I 8-7 ,-7 . 180 78  8- lOM ATL 0420 
I,  2.  PP41457F-13,  C.O,  0.0,  0.160  / "ATio^iOO 

DATA  H2/  I 3 6. 60 5 C,-.  126 8 66? 8, -4.  90 9786 8 -5  ,3 . 452 768  - 7 , -2 . 50 2 38 1 F- lO" A Ti  0 440 
1,0.0,0.C, O.C,  lOCC.  / "ATI  0 450 

DATA  PI/  17  3. 6 73  5, -.  0568  44 14, 8.  a 122  148-5  ,-?  . 3 10  598  8 -7 , 3 . p 49  4 7^  - 10,  *' A Ti.  046  0 
1 -2.61629948- 13, 5. 64C1 1348-1 7, C. C, 0.298  / "ATL0470 

FATA  P2/  I 3 1.  134  1,-.  0115F903,-1.  2851  13  8-5 ,6. 885  753  8-9 , 3 . n i o r,  :,r  _ n , v a t(  i)4°n 
1 -2.  16570858-  14,0.0,0.0,  1600./  MaTL0490 

OAT  a 01  / 102. 89  55, -.  1 30  56587, - 9.  6209  518 -6, 1. 0573588-6, -3. 66  378  8 -o,^-aT  1.0  50  0 
1 6. 995430lF-i2,-e.4C32C048-15, 6.  51642818-18,0.  343/  '‘ATLOSIO 

OAT  A 02/  76.4  869  9,-.  061  91594,  l.38  38ll3F-5,3.73  79  35F-8,-3.41128r-ll-*ATL0S20 
1,  1 .07  53C36F-  14,-  1.  19062 12 F-1 8,0. ,27  00. / "AT  LOS  39 

DATA  PI/  45. 6 77 87, -. 006  15185, 4. 76 76 7 74 F -5, -3. 89 959  F- 7 , - 7 . 8 5 596 o _q , 1 a t l nS4 0 
1 3. 3P2PC2  PP- 1 1,- ’.69604737F-14 ,0.  0, 0.  065  / ''Atiosso 

DATA  R?/  23. 80382,- .0  123  1640, 3.42  80666F -4 , -3 . 2 1 62 3 F -6 , 8 .6 33 777 F-9, waTL 0 56  0 

1-7.6568C51E- 12,  C.O, O.C,  400.  / ''ATI  0570 

OATA  SI/ 15 3. 090  1 7,-. 033 693 14, 7.  1 3 391008-6,-1.84  3 978-6,8.241  123  c-9,matl05P0 
1-  1.4  2016  008-  1 I,  9. 2 30941 98- 1 5,0., 0.072/  M ATL 0 590 

DATA  S2/ 1 20. 5 18 2 ),. 00434?  644, -1.  791 805  8-5  ,-2. 285 20 8 -6, 1 .04 3232 F-P,M ATL 0600 
1-  1.8433  5928-  1 1,  I . 2 1 26  7698- 1 4 , C.  0, 500.  / "ATL0610 


c 

A 

AISI  150  PSI  STFtI 

CODE 

1 

*'ATL0620 

c 

8 

AlSl  200  PSI  STEEL 

cnoE 

2 

''ATL9630 

r 

C 

3C0  GR  maRAGING.  STEEI 

COOE 

3 

MATL0640 

c 

C 

17-4  PH  stainless 

CODE 

4 

‘3aTL0650 

c 

F 

2014-T6  ALUMtNDM 

CODE 

5 

''ATL0660 

c 

G 

A7318-0  MAGNESIDH 

r.nnc 

6 

«ATl  0670 

c 

H 

6 AL-4V  T ITAN  lUM 

CODE 

7 

H ATL  06P0 
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mMi 


HfPPIWMWl 


k 


c 

p 

RFNF  Al 

CODE 

8 

“ATL  06P0 

r 

c 

,jri29Y  CPLUMPIUP 

CODE 

9 

“ATL0700 

c 

R 

GIASS  FABRIC  EPOXY  LAMINATE 

CODE 

10 

MATL07 10 

c 

s 

filament  wound  glass  FPOXY 

CODE 

11 

“ATLO720 

r 

T 

USFR  INPUT 

CODE 

12 

“ATL0730 

C 

U 

USER  INPUT 

CODE 

13 

“ATL07AO 

c 

X l(  79  DENSITY  IP/  IN*43 

“ATI  0750 

c 

X2(o)  MAXIPUP  TFPP 

PATL0760 

DATA  lA/  AHlSnP.AHSI  S,4HTFfL  t^H200P,4HSI  S t^HTFEL  »4H300M,  <»HAP 
lAFTEFL, AH17-A, AH  S TA , AHNL E S t AH20 1 A t4H- T6  tAHALUM, 

2AEA?  I,  AHA-0  ,AH  P AG , AH 6AI.- , AH  AV  T , AHI  T AN  ,AHRE NE  tAH  Al  ,AH  , 
1AHWC12.AH9Y  C tAHHl  UM, AHGLA St  AH  FAB.AHPIC  ,AHFIL  tAHWnUNtAHD  FX , 

AAHUSFR.AH  INP.AHUT  1,AHUSER,AH  INP.AHUT  2/ 

J = lfi*(N-l  ) 

JPAT  =3*(N-1) 

IF(N.GT.n  .HR.  N.LT.IJ  GO  TO  25 
nn  2 1=1,3 

’ IP(  1 ) = IA( JMAT+I  ) 

IF(N.LT.I?»  GO  TO  5 
TF(F( J + S).LT..001.rR.F(J+9)  .GT.l.  . QR .E (J* I 8) , LT. 200.  .OR . F ( J ♦ 18  ) P AT  LOR PO 
l.GT.  5000.)  GO  TO  25  MATLOSOO 


” ATL  0770 
MATL0780 
PATL0790 
PATLOSOn 
MATLOPIO 
PATL0820 
MATL0830 
P ATLORAO 
PATL0P50 
MATL0R60 
PATL0P70 


20 


30 


35 


3A 


37 


10 

15 


25 

26 


TPAX  = F(J+18) 

IFITEMP.GT.  TPAX)  GO  TO  10 
1F(  TFMP.LT.-65.  ) TFMP=  -65. 

RHn=  F(J+9) 

FTU=  0. 

FTY=  C. 

TT=  1. 

RF  30  1 = 1,8 

FTY  = FTY  ♦ F ( J+9+1 )*TT 
FTU  = FTU4F( J + I )*TT 
TT=  TT*TEMP 
1F{N.E0.5)  GO  TO  3A 
IF(M.F0.9)  go  to  37 
FTO  =FTU*10CC. 

FTY  =FTY41000. 

PFTURN 

FTU  = FTU  - 1.7Ae2A8F-l  e*TT  4-5.  8381 11  E-22*TT*TEMP 
FTY  = FTY  -1.308519E-18*TT  4A.  2A82  55E-22  •TT*T  EMP 
GO  TO  35 

FTU  = FTU  -3.23879E-21*TT  49. 92A5 89E-25*TT*TEMP-l . 7 C2 A33F-2 8 ♦T t 
1*TEMP**2  4 1.2A839E-3?*TT*TEMP**3 
CO  TP  35 

IF  ( NOUT  .GT.  0 ) WR1TE(6,15)  TEPP,  TPAX 

FORPATl  /IX, AIHPATFR lAL  TEPPERATURE  GREATER  THAN  PAXIPUP/ 

11X,F10.1, 19H  OEGRFFS  REDUCED  T0,F10.1,8H  DEGREES//) 

TEPP  = TPAX 
GC  TP  2C 
WP1TF16,26)  N 

FORPATieOH  ERROR  IN  HATFPIALS  SUBROUTl NE .REQUESTED  DATA  NOT  AV A I L AP ATL 1 1 80 
lELF,  material  NUPPFR  IS  * 18)  PATH190 

INC  * 1 PATL1200 

RETURN  PATL1210 

END  PATL1220 


HATL0900 
P ATL09  10 
PATL0920 
PATLOPOO 
MATL09A0 
MATLOPSO 
‘'ATL0P60 
''ATL0P70 
“ATLOPRO 
“ATL  09P0 
“ATI  1 000 
MATL  1010 
“ATL 1 020 
“ATL 1030 
PATL lOAO 
paTL 1050 
“ATL  lOf.O 
“ATL 1070 
“ATL lOPO 
“ATL  lOQO 
MATL 1 100 
“ATL  I I 10 
“ATL 1120 
“ATLl 130 
“ATL 1 I AO 
“ATL 1 150 
“ATL 1 160 
“ ATL  I 170 
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supKnu^iMF  ppopi 
MOTES  -I  MIN  THRt'ST 

MOTES  0 TEN  REOUIRfD 

MOTES  ♦!  MAX  THRl'ST 

COMMON  /FAILLP/  KEAIL 
COMMON  /ERPPT/  BPMPI A » ,MUM, I ARI ( ?> 

COMMON  /FvCLUn/  PT?,  TT2,  PTO,  COA,  AOAC,  PT?PO 
COMMON  /PJPLOK/  Rjisn) 

FOUI  VAL  EMCF 

l(PJ(  DfCNM  ),(3J(  2)tAN:  »,(RJ{  3), ANN  ),(RJI  ^),AL  ), 

2 (PJ(^:),  COP),  (PJ(7),C1), 

3:PJ(  9),PT-^Y  ) , (P  J(  10»,GAM  ) , IR  Jin  ) ,A6MAX  ) , I R J I 12  ) , AC.m  AX  ), 

A ( RJ(IJ),  A6MTN  ),  I PJIIA),  XMOMP), 

SIP J ( 17  ) ,Cnc  ) , (F J(  18) ,PCMGN  ),  I R J I 20 ) , A LE CLO  ) , 

6(P.)(  21)  ,A2A3  ) , IP  J(22),FARLP  ),(RJ(23),nn  ) , I R J I 2A ) , RP  A R ), 

7 (PJ(?6),TTA  ) , ( RJ( 27 ) ,F AR  ),IRJ(28),PM  ), 

P (PJ(29),  WE  ),  I RJ(30),  ANCA  ),  ( PJ(31),  PT2PCC  ), 
9IPJI33),T0  ),(PJ(3A),Pn  ) , (R JI35)  ,Kni  A ) , I R J I 36 ) , PT A I ) 

X (RJ(37),PTA1  ) , (P J( 38) , PTA2  ) , (R J ( 39 ) , PTA3  ), 

l(PJ(^0),AMf,  ) , IP  J(  A1  ) , AMA  ) , (RJ(A2)  ,AM2  ) , I R J I A3  ) , G AM?  ) 

2 I PJIAA),  GAMA  ),  I RJ(A5),  P6  ),  ( RJIA7),  AR2  ), 
3(PJ(A8),ARA  ) ,(P J(A9),PTA  ) , ( R J ( 50) , WA A3  ) 

COMMON  BLOCK  FOR  AL T I TUPE , T I TLE , I 0 AND  FUEL  DECKS 

COMMON  /AlTDC/ 

IK  l,Al  T(  2A), SDTFMPI 2A) ,PPFSS(2A)  , ID(8) 

COMMON  /FUFLXX/ 

2K2,KK(  15) , TT2TAR I 15  ) , TF AR 11 1 5 ,l 5 ) , TTR  SI ( 1 5 , 15 ) ,TT RS2  1 1 5 , I 5 ) , 

X TTPS3(  15,15), 

3K  ?,KL(  15) , JGAMM , TTATA I 15) ,TFAR2( 15,15) ,TGAM( 15,15)  ,EG(  15, 15  ), 
XFCI 15,  15), 

AKA,KM(  15) , JP , T TA TP ( 15)  ,TFAR3( 15,15)  ,RTAB( 15,15 ) ,FR(  15,15), 
XFP( 15, 15) , 

5NR I,  AAMI 2A) , ANC 1 (2A) ,FARL (2A) 

TOMMON  PLUCK  FOR  INLFT  PERFORMANCE  MAP 
common/  INLFTX/ 

6KP, KPTCI  15) , AIPHVI  15 ) ,AAMACH(  15,15) , AO  ACC  1 1 5, 1 5 ),PT3PT0(15,15), 
lAOPDI  15,  15  ) 

CrMMON/RjnAT/CFNl,rFK 2,A5A3, A6A3,ACA3,SFC  ,Bll,Bl2,B13 


) ,IRJ(A3),GAM? 


PPPIOOIO 
PHPlfinpo 
PRP10D30 
PPPIOOAO 
PPPIOOSO 
pppiOOftO 
PPP10070 
PRPIOOKO 
PPPl 0000 
PPPlOlOO 
oRPini n 
PROlO 120 
PPPIO  130 
npp  lOlAO 
PPP10150 
PPP  10160 
PPP  10  170 
RPR  10  IP  T 

pop  in  loo 

PPP 10200 

oppin2io 

PP  p 10220 
PD  P 10230 

PP  P102 AO 
PRP  10  750 
PPP  10260 
PPD10270 
PPP  10280 
ppPi02P0 
PPP10300 
POP10310 

OD  P , 0 T DO 

PPP 103 30 
PPP103A0 
PPPI 0350 
PPPI0350 
ORP10370 
PPP  10  380 


COMMON/ TP  A JX/  C F NE T , C FNR 0 , AM ACH , A LF I , MODE S , I ND , F AR M AX , T T A M AX , F S L BOPR P 10 300 


1,  icnoF 

COmmoN/EXTEPN/  AR(20) 

EOUl  V Al.  ENCF  ( AR  ( 3)  ,n3)  , (API  12)  ,A3) 

OPT  I PC  MARGIN  MODE  = 1 

OPT  2 TTA  MA  X KODE?  = 1 

OPT  3 far  Mfix  MOOF  = 2 

OPT  A CFN 

TARLF  2 TEMP  RISE 

TABLE  3 GAMMA 

TAB!  FA  R 

TABLE  5 BURNER  SEVENTY  TABLE  I TEMP  PISE  EFF  , LFAN  BLOW  CUT  ) 
table  6 INLET  MAP  ( PT2PTn  , AOAC ,CDA ) 

COMMON  /COOFXX/I 1(16) 

FOUIVAL  ENCE  ( II  I 1 ),KINn) 

EQUIVALENCE  ( 11(15),  NOUT) 

I OGICAL  OPT! 3) 


PPPIOAOO 
PPP 1 OAl 0 
ORP10A20 
PPP 1 0A30 
OR  P I HAAO 
PPPlO A50 
PRP  10A60 
PPPIOATO 
PRPIOARO 
PPPI0A90 
PRP10500 
PRP10510 
PPP10520 
PPP10530 
PPP105A0 
PRPl 0550 
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I OGICai.  L l,L  2,L  2,L  ^ 

ri'^f-rsirr  6),  jvfr(7i 

TATA  NUMPPR/  • I • , • •3rp A • , 'iOR^  • , 'S' , •6* / 

TATA  JVFP/*nTR0*,'PTA*,*AM2',  'AM?*' , 'AHAC  * ,'PMAR‘  ,'CFR0'/ 
f^AMFL  1ST  /STOP/  ALF  1 ,A  MACH,  PPAR,  PO,  FAR,TT2,  TT^, 

1WAA3, TTp,pTn,AnAr,PT2PC,nTRlSF ,ANC,MOnES,  rTPFO.PT^N, 

2T A I , PT2H AP , P T2PPC  , AM  2,AM  2NF W , C FN F T , CFN P C , WF , W A , J 1 , J2 , J3 , J A , J5 , J6 , 
3 F API B, PT2PnA 

A , AMA,  AM6,CA«2,GA''A,CnA  , AP2,  ARA,  ACA3,  A5A3  ,P6PT6,G  AM 
S ,CFFI,CFL0,WFHI  ,wrL(  ,l  1,L2,L3,LA 
rAMF('),P)  = ( l.+(Q-l.)/2.*P*R) 

WFHI  = n.o 
WFLO  = o.n 
IMP  = 0 

fail  ISFP  ( Tn,Pa,AMACH,TT2,PTni 
IF(  KFAIl  .GT.  C ) RFTUPN 
75  TTn=TT2 

fPTAIN  PPFSS  PFCPVFP  YtAPAC  AND  AOniTIVF  DRAG 

CALL  Tl  U?(  AL  r I , ALPHV,  K fl  ,A  MAC  H , AA  MACH  , K PTC  , AC!  ACC  , AH  AC  , I MR) 

IF<  t’''D.NF  .0  ) GO  TO  A1  5 
CALI  TLU?2(PT3PTC,PT2PnAt 
call  TLU22( ADOD, CDA) 

PT2MAR  =(  I.-PCMGN/IOO. )*PT2P0A 
PT2  = PTn*PT2MAP 
I F(  ICnOF.NF  .0  ) GO  TP  10 
A3  = . 7e5A*n3**  2/  lAA. 

A2A3  = 1. 

L ?=.FA|  SF. 

L ?=.FAL  SE  . 

I A= .FAL  SE  . 
nPT( 2 »=  .FALSE  . 


nPT(2)  = .TRUE. 
PPT<  3 ) = . TR  LF. 
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I f'M 

IF{TTAMAX.GT.O.) 

IF( FARM  AX .GT.O.  ) 

A'A6=  A5  A3/A6A  3 
AtA5=  l./A5Af 
ICODE  =1 
1.2=  PPT<2» 

1 3=nP  T(  3 ) 

1 1=  .TP  UE  . 

IXX  = 0 

PAPT=GAM/?.*pn*AMACH**2*A3 
APA3=AP  AC*ACA3 

WAA^  = SPRT( GAM  )* . 7765056*Pn*AMACH /SORT(  TO) *30 AC* AC A3 

WA  = W AA3*A  3 

CA  = CrA*PAR  T*ACA  3 

RPR=XMr)MP*WA*AL/32.1  7A*AMACH*A9.0A*S0PT  (TO) 
nR=2.*APA3*PAPT-RPR 

AnA2=( A0AC*ACA3)  /A2A3 

PPAP  = WAA3*(  l.-AL  )/A5A3*(TTn/l000.)**2 
CAll  TLUK  BPAR,AAM,NP  1,ANC  l,ANC,  I NO) 

IF(  INC.NF.O)  GO  TO  AlO 
CALL  TLUIKFARL.FAPLP  ) 

IF( F ARLP  .LF .0. ) FARLB  = 0.005 


PRP  I 056P 
PPP  10570 
PPP 105P0 
pPPin5O0 
PP  PI  0600 
PPRP105 10 
PPPIO620 
PRP  10630 
PPP  1P6A0 
PPP  10650 
PRPl 0660 
PPP10670 
PRP 106 PO 
puDi06nO 
PR  P in  700 
PP  P 107  10 

PR  P 10720 
PRO10730 
PR  P 1 0 7A0 
PRPl 1750 
PP  P 10  760 
PPP  107  70 
PPP107fl0 

PP  p 1 n 700 

PRD  1 0500 
PR  PI  0.3  10 
PRP 10520 
PD  D 10  5 30 
PRP lOBAO 
PRP 10550 
PPPl 0560 

r r*  »-  t > / • ) I 

PRP105PO 
pp  p JO  300 
PR  P looon 
PR  P 100  10 
PPP] 0070 

PP  P 1 003  0 
Pk  p 10060 

> 1 ’ I 0 0 5 0 
POP  lOOf-0 
PR  i>  1 m 7 0 
PpP 1 OORO 
PO  D I OOO  •) 
PR  PI  1 noo 
PPP  1 1 0 I 0 
PR  p 1 1 n?o 
PRP 1 10  30 
PPP  I lOAO 
PRPl 1050 
PRPl 1 060 
PR  PI  1 070 
P P P 1 1 0 P 0 
PR  P 1 1000 
PRP 1 1 100 
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WF  = .025  * ?600.*A3  * WAA3  * 11. -AL) 

PPPl  1 1 10 

IF(Mmrs)  15,  17,  16 

PPPU120 

15 

FAR=:  FAPL«*FSLHn 

PRPll 130 

W*:  = FAR*WA*36>f)0.0*(  l.-AL) 

PF  PI  1 lAO 

L 7 = .FA|  SE. 

P0P11150 

cr  225 

PPP  1 1 160 

17 

lA  =.tpi:f. 

PPOi 1 170 

iri  ( Fr;pc  .1  F . 0.  ) nr  to  a56 

PPPll 1 80 

If- 

I F ( PPT( 3 ) » 

PPP11190 

IWF  =rAP'<Ay*360  0.*A3*  1 1-AL)*WAA3 

PPP11200 

IF((1PT(  2)  ) 

PP PI  1210 

irTPFn  = ( TTAHAX-TT2) /Ar  f 

PPPl 1220 

225 

,-T2Pn  = PT2HAP 

PPP11230 

2 2i) 

PT2Pnn=PT2POA 

PPP112A0 
PPP11250 
ORPI 1260 

JF  = 0 

PPPl 1270 

Jf  = 0 

PPP11280 

2?5 

PTAI  = .9  l*PT2Pn*Pr*( TTr/TO)** ( gam/ (GAM-1,  n 

PPO11290 

FAP=WF/ (WA«2600.*( l.-AL) ) 

PPP11300 

2A0 

.11  = 0 

PPoil 310 

J?  = 0 

PRP 1 1 320 

2«5 

CAI.L  FTPrET  1 FAR  , T T2  , OTP  I SE  , 1 NO  1 

PPPll 330 

IF  1 INP.NE.C)  GO  TO  305 

PPPl 1 3A0 

TT  A=TT2«-AMr*CTR  1 SF 

PPP  1 1350 

IFl.Ajnr.l?  .AND.  12)  nc  to  250 

PPPl  1360 

GO  Tr  260 

PRPl I 370 

250 

IF  ( APS! PTR ISF-OTPEC 1 .LT.  .5  ) GO  TO  259 

PPPl 1 380 

IF  (J1.GT.5C)  GO  TO  ?A5 

PPPl 1 390 

J 1 = I > + 1 

PRPllAOO 

FAR  = F AR«nTRFO/nTP 1 SE 

PRP  1 lA  10 

IF  (rPT(3).ANn.FAP.GT.FARMAX)  FAR=FARMAX 

PPP 1 IA20 

GO  TO  2A5 

PRPl 1A30 

2 50 

WF  ^ FAR  ♦ 3600.  ♦ A3  * 1 l.-AL)  ♦ WAA3 

pool 14A0 

2f0 

GAIL  RGAMFR  (110,0.0,  T T 2 ,G  A M2 , 1 ND  , AR2  1 

PPp 1 ! A50 

IF  ( TNO.NF.O)  no  TO  AOC 

PRP11A60 

CALI  RGAMFR  (Iir,FAP,  TT  A ,GAMA  ,1  ND  , ARA  ) 

PRP11A70 

IF  ( INO.NF.O)  GO  TO  AOC 

PPPIIA80 
PPPl  lAOO 

PTAN={  ( l.-AL  )*(  1. -FEAR  ) AW  A A3*  SORT!  TTA)  1 / ( A5  A3  *C  NM*S  C FT  ( ( 32. 

2*GA'<A/  .APPPl  1 800 

1RA)*(  ( 2 ./( GAMA*  1.  ) )**(  (GAMA*1 . ) /(GAMA-1. 11)1) 

PPPl 1 81 0 

IF  ( ARSIPTA I-PTAN  ) .LT. 2. ) GO  TO  265 

PPPl  1520 

ptai=ptan 

PRPll 530 

IF  (J2.F0.50)  GO  TO  35C 

PPPl 1 5A0 

J2=J2+1 

PPP  1 1550 

GO  TO  2A5 

PPPll 560 
PPP11570 

265 

GAR  =CNM*A5A3 

PPPl 1 5P0 

PR  = l./CAP 

PRPll 500 

K =-  1 

PPPll 600 

CALL  MACHNO  ( PR,GAMA,AMA,K,IN0I 

PPPl 1610 

IF  ( INO  .NE  .0)  GO  TO  3 85 

PPP 11620 

AM2=0. 1 

PRPl 1630 

STni=0. 

PRPll 6An 

STn2=0. 

PPPll 650 

HA  181 


c 

c 


C?  1 = A'<A*S00  T ('',A  Mr  (GA  MA,  A MA(  » 

PH2= I .-cn^/2. 

BO'<=l.+r,AMA*flM4,*AMA 
pPA=(  GAM2-  1.  )/2. 

pe‘^  = ( 1 . +F  AF  I*  ( 1 .-A|  ) x-SOPK  (GAm2*APA*  TTA)  / ( G AMA*  A P 2 * TT 2 ) ) 
j-?=n 

210  CONTINUE 

022=  Am?*am? 

AM2MFW  = PR l*( I .+G Am?*g??*RB? )/ (BB3*S0PT ( I . + RB A*G??)  ) /RPS 
IF  ( AHS IAM2NEN-AM2 )-.n001)  2P0t280,275 
27S  IF  (J3.GT.5n)  GQ  TO  355 
J3=J3+1 

AA  = ( AMPNEW-Sm  1 )/(AM2-STn2) 

IF  ( AA.  FU  . 1 . ) Gli  TO  3 70 
(3=AA/(  AA-l.  ) 

IF  (O.GF.l.)  Q = .cc 
IF  (U.LF.-l.)  Q=-.55 
srn  1 = AM  2NFUI 
<;Tn2  = AM  2 

AM2=0*ST(32  + ( I .~0  )*STr  1 
GO  TP  270 


PPPl 16G0 
PPP11570 
PPP  I IGflO 
PPP I 1 790 
PPP 1 1 700 
PRPl I 710 
PPPl 1 720 
PPP I 1730 
PPPl  17A0 
PPP I 1 750 
PRPl 1 760 
PPPl 1 770 
PRO  1 1 7R0 
PRPl 1 7"0 
PP  PI  1 ROO 
PP  P I in  10 
popi 1020 
PRO  I I 830 
PPPl 18A0 

PRPl I 850 
PPPl  1560 


2 60  PT2Prr.  = Pn/PTO*AMACH/AV2  *SQP  TIG  AM*tT2/GAM2/TO)*  ( I 
I ♦♦2  ) ♦*(  I rAM2+  I . )/2./(GAM2-l.  ) ) ♦ACIAZ 
K = l 


PPPl  1570 
PPPl  IRPO 

(nAM2-l  . )/2.  ♦AM2PRP  I I 59  0 
PRP11900 
pop  I 1910 


CALL  MACHNO  ( A 6A  5 , GAf' A , A M6  f K , I ND  1 
IF  ( INO.NF.O)  GO  TP  3R5 
IF  ( MCPFS  .IT.  C ) GP  TP  325 
IF(  I 3 ) GP  TP  28  5 


PR  P I 1920 
PP  o I 1030 
pp  p 1 IQAO 
PP  D 1 19  = 0 


f r M 2 ; Pft  TO  2PP 
I FI  LI)  CP  TP  300 
325  PT2PP  = P T2PnC 

P(  PT  6=G  AMF  ( G AMa,  am  6 )♦♦  ( - (AN(A/  (GA  MA-l  . ) ) 

^PI^^T  = (A6A3/(.7«'AMACH**2))♦(PTAN/Pn♦A^•^'*P6PT6*(l.♦•GAMA♦AM6*♦2)-l 


PPP  I I960 
PRPl  1 970 
PRPl I 9P0 
Pt'  D 1 1990 
) pp  9 1 2000 


1-2.  ♦A'lAf*  ACA  3 
Fr=(  CF 1NT  + 2.*APA2) *PAP  T 
FN=HG-PR-nA 
CFNFT  = rM/P  AR  T 
IFC'PCFS.NF.  0)  GO  TP  326 

315  IF  I APS(CFNrT-r.FMPO).LT..00l)  GP  TP  326 
IF(  IXX  .FO  . 0 ) GP  TO  327 

316  IF(  CFNFT  .LF.  0.005  ) GO  TO  312 
IF(CFNFT  .LT.  CFNPQ)  GP  TO  317 
WFHI  = WF 

CFHI  = CFNCT 

IF  (WFLO  .GT.  O.C)  GO  TO  318 

319  WF  = WF*l rFNR0/CFNFT)**.8A 

320  IF(J6  .GT.  50)  GO  TO  375 

IF(  J6  .GT.  AO  ) WRI TF(6,ST0P) 

J6=J6>1 
GO  TF  A 17 

317  CFLO  = CFNFT 
WFLU  = WF 

IFIWFHI  .LF.  O.C)  GO  TO  319 


PPP  120  10 
PR  P I 2 02  0 
P p P 1 2 o 3 o 
PP  P 1 2 OAO 

nr  o 1 2 0 = 0 

PP  P 1 206P 
PRP120  70 
pop  12nnO 
PP  P) 2 OPO 
PR  P I 2 I PO 
PRP12110 
PRP12120 
POP  1 7 I 30 
PRP12  lAO 
PRP12150 
PDP12160 
PPP12170 
PPP121 80 
PPP12 190 
PRP 1 2200 
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WF  = WFLT  + (CFNRQ-CFLO)/ (^,FF^I-CFLO»♦  (WFHI  -WFLC) 

GC  TP  320 

SFr=rWF/rK' 

G22  = rflF'F( 

T4=T  T4/G2? 

( GA‘'F  I G/'M?,  AM?)  ) ♦«:(GAM2  / ( 1 .-GAM 2 * ) ♦PTn*PT2PPC 
ir(MCOFS  .FO.  -2)  MPOES  = 0 
PJ(  ‘=)  = PT?PP 
PJ(  F)=DT2 
RJ(  IF  )=A('AC 
RJ( 16)=CnA 
PJ( 32 l=PTn 
P J(  A6  ) = TT? 

K FTIIPM 

1 F(  r F'JF  T .L  T .rFNRO  I GP  TP  326 
LI  = . F AL  S F . 

L2  = .FAt  SF. 

I Z’  = .F  AL  SE. 

IXX  = 1 

fP  TP  316 

IF(  I 2 I P('  TP  301 

I F(  .MOT  .LI)  GH  TO  32  5 

IF(PT2PnC  .LT.  PT2MAP  ) GO  TP  305 

13  = . FAL  SE  . 

GP  TP  3C0 

IF(TTA  .P.T.TTAMAXI  GP  TO  30? 

L?  = .FALSE. 

CP  TP  2FC 
L^  = .FAL  SF. 

Cf'  TP  250 
I 1 = .false. 

GP  TP  325 

1F(  .MPT  .1  i ) GO  TO  32  5 
IF(PT2PPr  .LT.  PT2MAF)  GO  TO  305 
L2  = .FAL  SF- 
GP  TP  TOO 

IF  { APS(  l.-PT2PnC/P T2MAR  ) .LF. .001 ) GO  TP  325 
ir( JC.GT.SC)  GO  TP  370 
J5=J  5+1 

TC(  1 A ) GP  TP  310 

WF=WF*( (PT2WAR/PT2PPC )**2«TTA-TT2) / ( TTA-TT2 ) 

IFCWF.LF.O.)  go  TP  312 

rAR  = V*F/(WAA3*A3*  3600.*(  l.-AL)  ) 

tF(PPT(31  .ANO.  FAR  .GT.  FARMAX)  FAR  = FARMAX 
WF  = FAP*360C.*A 3*{  l.-AL  )*WAA3 
PP  TP  2A0 

IFIFAP  .LF.  FAPLP)  GC)  TO  A51 
FAR=  FAR!  R 
GP  TO  313 

P6PT6=GAMF(  GAMA,  AM6>**C- GAM 'f/ (GAMA-1.  1 ) 

GFIMT=( A6A3/( .7*AMACH**2) )* ( PTAN/PO* AMN*P6PT6*( l.fGAMA*AM6**2)- 
1- ?.*APAC*AC A3 
Fr=(GFINT+;.*APA31*PAPT 
FM  = HP— DP-PA 
CFNFT  = FM/PART 
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PPP12210 
PRP12220 
PRP 12230 
PRP122AO 
PRP12250 
PRP  12260 
PR  P17270 
PRP  12280 
PPP  122'RO 
PRP123nO 
PPP12310 
pp  P 12320 
PRP12330 
PRP123A0 
PRP12350 
PRP12360 
PPP12370 
PR  P I 2 380 
PPP123Q0 
PRP12A00 
PRP12A10 
PRP12A20 
PRP  12A30 
PRP 1 2AA0 
PR  P 12A50 
PRP  12A60 
PRP12A70 
PRP  12AP,0 
PPP 12A00 
PR  PI  2500 

PR  P 1 25  10 
no  r>  1 o c 

P R P 1 2 5 3 0 
PPP125A0 
PFP12550 
PRP12560 
PP  P 12  570 
PRP  12  580 
PPP  12500 
PRP 12600 
nppi261 0 
PRP I 2 62  0 
PRP12630 
PRO12640 
PRP12650 
PR  P 12660 
PRP 12670 
PR  PI  26  80 
PRP 126Q0 
PRPl  2 700 
)PRP1?710 
PRP  12720 
PRP 12730 
DPP) 2 7AO 
PRP12  750 


rFN=r  FN  ET 

PR012  760 

IFICfN.Ll.  OFNRO 

.PR  .PT2PnA.GT 

. PTZPPC ) GC  TP  311 

PPP  12770 

L 1 = .FM  SF  . 

PRP127BD 

CO  TF'  ?l* 

PPP127P0 

T4,5 

I^'^  = l 

PRO12800 

GO  TO  3P0 

Ppp  12B  10 

3=0 

IN  r = 2 

PRPl?.R2n 

CO  TO  ?5C 

PRO  12  930 

2 ‘ 5 

I vn=  3 

PRP 12340 

fp  TP  2P0 

PPP12B50 

T AC 

IM)  = 4 

PPP12B60 

I F ( N'  KJT  .MF  . n 

) 

WRITF  16,520) 

PRP12R70 

GO  TP  5C5 

PPP128P0 

2 70 

I^'n■=6 

PRD129O0 

cr  TP  3E0 

PRP  12^700 

> 75 

INn=7 

po  P 120  10 

3eo 

IF  ( NOUT  .NE . 0 

) 

WRITE  16,525) 

JVER  (I  ND) 

ppp 12920 

CP  TO  505 

PPP12030 

3E5 

INr  = rt 

prp12<74D 

I F ( NOIIT  .NF  . 0 

) 

WPITF  (6,530) 

PR  D 1 29^0 

GP  TO  5C5 

PR “1 2960 

2S5 

IDFN^NIIMofR  ( 2 ) 

PRP12970 

rp  TP  425 

PPP12PB0 

ACO 

IPEN  =!NI|MRFa  ( 2 ) 

PRPl 2000 

GO  TO  435 

ppp 130P0 

'i  10 

I CFN  =NUMP.FR  1 5 ) 

ppp 1 301 0 

GP  TO  435 

PPPl 3020 

A 15 

tnEF'=NUMpEO(  6) 

PPP13n30 

A25 

IF  (MCUT  .NE . 0 

) 

WPITF  16,540) 

I DEN 

PRP 1 3040 

IF  (NOUT  .NF . 0 

) 

WRITF  (6,545) 

BPMB,  I ARI (MUM) 

PRP 13050 

yr  cr 

T n /;  A 0 

PR  o 1 3060 

I F ( MOUT  .NF  . 0 

I 

RFTUR  N 

PRP13070 

WP I TF  ( 6, 550 ) 

PRP 1 3080 

505 

IF!  F'DUT.LE.  1 ) 

P ETUPN 

PRP 1 3000 

WPITF  ( 6,  STOP 

) 

PPP13100 

f.All  PPUMP  ( ALPHAV,  FN,  5 ) 

PPP13110 

PFTU»N 

PPPl 3120 

4 AO 

IF  I NPUT  .NF . 0 

) 

WRITF  (6,555) 

PPP13130 

GP  TP  5C5 

PRP  1 3 1 40 

A5l 

IFIMPDFS  .FO.  0) 

GP  TP  455 

PPPl 31 60 

IND  = 1 

PP  P 1 3 1 50 

IF  INPUT  .NF.  0 

) 

WPITF  (6,452) 

ppp 1 3 1 70 

A'2 

FORMATI  A'JH  1 FAN 

BLOW  PUT  PRESSURE  RECOVERY  EXCEEDS  CRITICAL) 

pop  1 3 IP  ) 

CO  TO  505 

PpPl 3 1 oo 

4 56 

MOPFS  * -2 

p « D 1 3 1 0 

rp  TP  15  r«Pon^l 

520  FPKMAT  (•  IMPRPPFR  SLOPE  IN  ITFPATTON  TO  FIND  AM?  •)  nooiJ^’ 

525  FORMAT  (•  failure  TP  mNVFRCE  IN  PRCPl  IN  THE  LOOP  FOR  •,^^/\  paPin^. 

520  format  ('OFAILURF  IN  MACHNO  WHEN  CALLED  BY  PPOPl  •) 

5A0  format  (tOAN  OUT  PF  TABLF  CONDITION  EXISTS  IN  TABLE  'tAA,'  IN  PPPoropi-*  • 

U •/  I '•‘'OI  • • 

5A5  FORMAT!  • 1ST  IND  VAR  1 AB  LF  = • , F 1 2.  5,  • 2N0  I ND  VARIABLE*  '.FI?.*,  • ^ , 

IUBTABLE  ='tFl0.3,'  SUPTABLE  SIZE  ^'.FIO.S/*  THE  VARIABLE  fXJT  -r  l • : 

2NGF  IS  THE  ’.AA,*  INDEPENDENT  VARIABLE*/) 

550  FORMAT  (•  THF  INDEPENDENT  VARIABLE  IS  LARGER  THAN  THE  lAor.iv’  '• 
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.^D-AO^a  366 


unclassified 


LTV  AEROSPACE  CORP  DALLAS  TEX  VOUSHT  SYSTEMS  DIV  F/6  15/7 

SEATIDE  ANALYSIS  PROCESS,  VOLUME  III  E.  CRUISE  MISSILE  - CONCEP— ETC(U) 
FEB  75  R K MCDONOUGH  OAA809-72>C-0062 

VSO-00.1636-VOL-3E-REV-A  ML 


IE  VM  UF  •/  ) PRPimO 

5?S  FPRMM  ('  THF  INnpPFNt'FNT  VARlftPLP  IS  SMALLER  THAN  THE  S**ALLFST  TAPRP13320 
IPIF  VALLE'/)  PRP13330 

FMn  PPP13340 


SURPGHT  INF  PROPRJ 

COMMON  /FAIL  UR/  KFAIL 

COMMON  /AnCON/  SPPWF,  CONiFFllfl) 

COMMUN  /fRPRT/  ROWR(  4)  ,MIJM,I  ARI  (2) 

COMMON  /RJTITL/  TITLF(20) 

CCMMON/FXXR J/  FX(4e) 

FOU  IVAl  FMCF 

7(rxi?5),rf.  ) ,(FX(26),TINAFT),(EX(27)  ,WRJ  ) ,(FX(28I  tXRJ  ), 

e( FX(  PS) , TFVPC  ) , I r X (30) , RTl RAM) 

COMMf N/rnOEXX/  I!(l6) 

CrOFXX  FXTFPNAL  INTEGER  ARRAY 
ECUIVALENGF 

UIK  n.KlND  ),(!!(  2)fINLFT  ),III(  3 ) , I S I 7F  )»(n(  4),NnnP  )« 
Kin  5),KSUS  ),(II(  6),KFM  ),(in7  ),I8STIN)t 
2(II<13)tKX  ),(  IK  14),NPASS  ) « (I  I ( 15  ) « NOUT  ) . ( I I ( 16  ) , I X X A ) 

CrMMPN  /SUSriAT/  TX(44) 

FOUIVAl  ENCF 

7(TX(25),  SUSMLT) , ( TX( 26) tSUSMWT) , «TX(27) tFMIN  ) , ( TX( 28 ) tOELWT  ), 
9(TX(33),  SUSLT  ) , t TX ( 34 ) , SUSWT  ) , ( TX(35 ) ,FTUS  ) , ( TX ( 36 ) , FTYS  ), 
KTX(37),  SMLT  ),ITX(3P)  ,SMWT  ) , ( TX  (39)  tFMINT  ) , ( TX  (40  ) , FUS  ARL  ) 

common  /mnPXX/  LOOPR  J,CFNSAV,WTSAV,  WSSAV.SISAV 


CPMMOM  /pROAT/ 

1 mPFo 

COMMON  /CJOAT/ 

1 pnsTPP 
COMMON  /IPPPP/ 
COMMON  /EXTERN/ 
r PMMPN  /IN  CAT  A/ 
ECU  IVAL ENCF 
KAR(  l),PLLT  ) 
2(AR{  5),WTTrT  ) 
3(AR(  9),0PLVI  ) 
FCUIVAl  FNCE(  AR  ( 
DMMJN  /T^JOTA/ 
COMMON  /RJPLOK/ 
FCUIVAL  ENCF 
KRJ(  DtCNM  ) 
?(PJ(  5)fPT2Pn  ) 
3(RJ(  9),PT4Y  ) 

4(RJ(  13),A6IMIN  ) 
5(RJ( 17) ,DELT4  ) 
6(PJ( 2l),A2A3  ) 

7(PJ(25),ALF I ) 
8(»J(2P),WF  ) 

9(PJ(33)tTn  ) 


CNMP ,PTJ, ANNJ.GAMJNW.AF  J,TTJWFW, A 003 ,ST J AM,ST2A7 , 
CFNPO ,CFN,  A5A3»A6A3,ACA3 ,S FC .ROST WT, ROST LT , 


INO  ,I  MI  A.NFWPT,  I RJOUT 
AP  (20) 

rniNL»  CLALF,ViTINLT 

,(AR{2  ), PLMASS)f (AR(  3), 03 
,(AR(6  l.XLTOT  ),(AR(  7 ) , VL 
, (AP ( 13) .PAYLO) 

19)tBC’C?  ) ,(AR(2C)iCFST0R) 

POINT  (1  0,  7) 

RJ( 50  ) 


) t (AP(  4) «PANGF  ) , 
) »(AR(  8 I.VFCR  ), 


»(RJ(  2)tANC 
,(PJ(  6),Cn8 
t(R J( 10) fGAM 
t (R J( 14) ,XMOHR 
, (R J( 18) »PCMGN 
t(RJ(22)»FARL8 
f (RJ(26) fTT4 
, (R  J(30),ANC4 
, (R J(34) f PO 


) « (R J(  3) tANN 
),(RJ(  7),  Cl 
) t (RJ(  11)  , A6MAX 
I ,(RJ(15) «AOAC 
)>(RJ(lo)*AMACH 
). (RJ(23)  ,110 
) , (RJ(27) ,EAR 
) , IRJ(31) ,PT2Pnc 
) , (RJ(35) ,KOI A 


(R JI  4) , At 
(RJ(  8),PT2 
(RJ(12),ACMAX 
(R J(16) ,004 
(RJ(20) ,ALFnLn 
(RJ(24),BPAR 
(RJ(28), PM 
(R  J(32)  ,PTC 
(R  J(36),PT4I 


ppo.innio 

PPRJ0020 
PPRJ0030 
PPRJ0040 
PPPJ0050 
PPRJ0060 
opojomn 
PPRJOOBO 
ppRjonoo 
POPJOIOO 
pppjn 1 10 
PPPJO 120 
PPRJO I 30 
PPRJ0140 
PPRJO I 50 
PPRJ0160 
PPRJOl 70 
PPRJO  180 
PPPJOinO 
PPRJOPOO 
PPRJ021 0 
PPR J0220 
PPRJ0230 
PPPjn240 
PPPJ0250 
PPPJ0260 
PPP J0270 
PPRJOPRO 
PPRJ  0200 
PPP 10300 
PPR J03 10 
PPPJO  J20 
PP° J033n 
pppj03<vo 
PPRjn350 
PPRJ 0360 
PPRt  0370 
PPRJO  380 
PPRJ03Q0 
PPR JO400 
PPRJ0410 
PPRJ0420 
PPRJ0430 
PPR  J044r) 

PPRJO45O 
PPR J0460 
PPRJ0470 
PPRJ04R0 
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w 


f 


X (RJ(37»,PT4l  )t(RJ(  38)  ,PTA2  ) , ( R J ( 391  f PT<*3  )t 
l(('J(4CI  fAM6  ) , (RJ(  Al)  .AM4  )t(RJ(A2)«AM2  I , (R  J(43)  t CAM2  ). 

2(PJ{ 441  ,GAM4  ),(PJ(45)tP6  ) t (R J( 46 ) «TT2  ) , (R J(47) , AR2  ). 

3(PJ<48),AP4  ) , (P J( 49) , PT4  ) , ( R J I 50)  , WAA3  ) 

r IMIN=  I OBTAIN  MINIMUM  LT/WT  FOR  SUSTAINER 

r.  I'MN=  0 OBTAIN  LT/WT  FOR  SUSTAINER  WT/LT  GIVEN 

C COMMON  block  for  ALTITUOF.TlTLF.in  AND  FUFL  DECKS 
common  /ALTPC/ 

IK  I, ALT ( 24),SnTFMP(24) , PR F SSI  24 ) 1 1 D I 0 ) 
j common  /fuelxx/ 

2K?,KK ( 15)f  TT2TAB ( 1 5 ) , TF AR 1 ( 15 , 1 5 ) , TTP S I 1 1 5 ,15 ) ,TT PS2 ( I 5 , I 5 ) f 
X TTPS3(  15, 15), 

3K’,KI ( 15), JCAMM, TT4TA(  15)  ,TFAP2( 15, 15) , TGAM( 1 5 , 1 5 ) , FG 1 1 5 , 15 ) , 
XFCI  15,  15), 

AK/i,KN(  15)  , JR,  TT4TP(  15)  ,TFAR3(  15,15)  ,RTAB(  15, 15)  ,FR(  15,15)  , 
XFP{15,15), 

5NP1,AAM(24),ANC  K 24),FARL(24) 
c common  block  FOR  INLET  PFRFCRMANCE  MAP 
common/  imletx/ 

6K  P,KPTf  ( 15),  ALPHVI  15  ) ,AA  MACH  I 1 5, 1 5)  ,A0ACC(  15 ,15  ) ,PT3PTn(15 , 15  ) , 

' 14000(15,15) 

OImfnsIOM  ACSTn(24),A5STn(24),A6STa(24) ,CFSTCC24),PTSTC(24) 
COMMON/PRONO,/  ALFTAB,  A5nLD,  1 ACMAP,TT4MAX,ACST0,A5STC,  A6STn, 

1 CFSTn,PTSTO 

COMMON  /CODERJ/  IPASS,  IC ALF , JCONO 
C,  JCOND  FPROR  INDICATOR 

NAMFlIST  /DIAG/  GAM2, AR2,GAM4,AR4,WAA3 ,FAR,  PT2Pn,TT2, 

1 PT4,ACA3,AM4,CFN,A5A3,TT4,BPAP,AM2,FARLB,ALFl,INn,PT4I,  A5A3 
IPjnUT  = 1 
A50Ln=2. 

KDIA  = 0 

) INO  = n 

* xpj=o. 

1 KWHAM=0 

’ imp  = 1 

NOUT/  = NOUT 

IFINOIJT.NE.O)  WPITE(6,605)  NPASS 

* fcC5  pnoMATI 5X5FPFGIN,  IX, 

j 1 8HLO0P  NO.  , 13,  2X6H0N  CFN  / ) 

’ IF(NFwPT.LT.  1)  GO  TO  100 

* TOPFG  = 0 
C 

C DFSIGN  POINT  DATA 
C 

Al  FTAB  = 200. 

AL  FOI  D = 200 . 

A5nL0  = 2. 

ALFl  *1. 

AMACH. POINT! 1,2) 

FP  >P0INTI1,1) 

CFNP0»0.2*( 1 .♦  PCINT(l,4)) 
enSTL  T=SUSLT 

IFILOOPRJ.GT.O)  CFNRO-CFNSAV 
TT4MAX  * POINT! 1,7) 

I I!  16)  » 0 


PPPJ04O0 
PPRJO 500 
PPP J0510 
PPRJ0520 
PPRJ0530 
PPKJ0540 
PPRJ0550 
PPRJ0560 
PPRJ0570 
PPPJOSBO 
PPPJ05O0 
PPPJ0500 
PPPJ0610 
PPP J0620 
PPRJ0630 
PPP J0640 
PPP  10650 
PPPJ0660 
PPRJ0670 
PPRJ0680 
PPRJ06O0 
PPRJ07n0 
PPRJ0710 
PPRJ0720 
PPRJ0730 
PPRJ0740 
PPRJ0750 
PPRJ076n 
PPPjn770 
PPP J0780 
PPRJ0790 
PPRJOBOO 
PPPJ0810 
PPRJORPO 
PPPJOB’O 
PPP  JOB/fO 
PPP  J085'l 
PPRJOfUSO 
PPPJO570 
PPR JOPPO 
PPRJO.PSfl 

pPRjnono 

PPPJOP 10 
PPRJ0Q20 
PPRJ  OOPO 
PPPJ  0040 
J0950 
PPRJ0960 
PPRJ0970 
PPRJ0980 
PPRJ 0990 
PPRJ  1 000 
PPRJIOIO 
PPRJ  1020 
PPRJ1030 


IF(TTAMAX-l.  J 95, <55,^6 
CS  I 1(  16  ) = I 
TAP  = TT<»MAX 
<f>  CFSTfR  = r.F^P^ 

AP(  16)  = AMACH 

CALL  TLUKHP,  ALT.Kl  .PPESSfPn,  IND) 

IF(  INil.MF  .0)  TO  138 
CALL  TllJll(SDTF“P,TC) 

CPTAIA'  TT2,PTr 

CALL  f 5FN{  TO,  Pn, AMACH, TT2f PTP) 

IF  ( KFAIL  .GT.  0 ) RETURN 
IFITTA  .LT.  TT2)  GH  Tp  2000 
MEWPT  = 0 

LCO  IF( ARS( ALFTAB  -ALFl)  .LT.  .OCl)  GO  TO  200 
ilFTAR  = ALFl 

CBTAIM  press  R FCnVEP  Y.APAC  and  ADDITIVE  DRAG 

CALL  TLU2(  AL  F I , ALPHV,  K 8 . AM  ACH  , AAMACH  ,KPTC»  AO  ACC  . AC  AC»  I ND 
IFIIND.NE.O)  GO  TO  2014 
CALL  TLU22(PT’PTr,PT2PnA) 

CALL  TLU22(ADDO,CDA) 

PT2Pn  =(  I.-PCMGN/IOO. )*PT2P0A 
PT2  = PTr*PT2Pn 

IF  ( ABSIAl  FOLD  -ALFl)  .LT.  1.)  GO  TO  200 
ACA3  MAP 

ACA3  VS  CFN  MAP  GENERATION 
LPAC  TAPLF  VALUES 
I Cl  ALFOl  0 = ALFl 
JCDNIP  = 0 
KKK=  0 
KCIA  = C 
ACA3  = O.OE 
A5A3  = .05 
lACMAP  = 0 
CELAP  =.02 
CFMSTO  =-50. 

IC5  IF(K INn.FQ.A2)Gn  TO  IIC 
CALL  RJDES 
GP  TP  115 
LIO  CALL  ORDES 
115  tF(IMC.NF.O)  GO  TO  900 

IFIJCONC  .NE.  0)  GO  TO  120 

IFICFN.LT.  CFNSTO)  GO  TO  120 

KKK  = KKK  ♦ 1 

IACMAP  = KKK 

PTSTOIKKK )*PT4 

CFSTOIKKK  »»CFN 

A6ST0(KKK l*A6A3 

A5ST0(KKK )*A5A3 

ACSTPIKKK )=ACA3 

CFNSTO  = CFN 

ACA3  * ACA  2 ♦ . 1 

IFIKKK.GT. 15 ) GO  TO  26 

IF(Ar,A3  .GT.  ACMAX)  GO  TO  12C 


PPRJ1040 
PPRJ1050 
PPPJ1060 
PPPJ1070 
PPRJ 1080 
PPP J1090 
PPPJ 1 100 
PPRJlllO 
PPRJ1120 
PPRJ1130 
PPPJ1140 
PPPJ1150 
PPRJ 1160 
PPRJ1170 
PPPJ 1180 
PPRJ1190 
PPRJ1200 
PPRJ  1210 
PPRJ1220 
PPRJ1230 
PPRJ 1240 
PPPJ1250 
PPRJ1260 
PPRJ1270 
PPRJ1280 
PPP J 1290 

ppRjnoo 

PPPJ1310 
PPRJ1320 
PPPJ  1330 
PPPJ 1340 
PPRJ 1350 
PPRJ 1 360 
PPRJl  "^70 
PPRJ 1380 
PPPJ1390 
PPRJ1400 
PPRJ  1410 
PPP J1420 
PPP J 1430 
PPPJ1440 
PPRJ1450 
PPRJ 1460 
PPRJ1470 
PPRJ1480 
PPRJ  1400 
PPRJ 1500 
PPRJ1510 
PPRJ1520 
PPRJ1530 
PPRJ 1540 
PPRJ 1550 
PPRJ1560 
PPRJ1570 
PPRJ1580 
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GO  TC  10*5 

HUM  nuT  AGa3  MAX 
120  KKK=  C 

jrnNn  = o 

IF  ( IAGMAP  .LT.  1)  GO  TFI  ?6 
ArA3  = Af  STM  lACMAP  )+  DPLAR 
125  IF( ACA3.GT.ACMAX)  GO  TO  lAO 
IP(K  INO.FO.  A2J  GO  TO  150 
GALL  RJCFS 

160  IF(  INO.NF.O)  GO  TO  50C 

lP(JCnMC  .NE  . 0)  GO  TO  lAC 

1 r( r FM.LT  .gfnsto  ) go  to  iao 

1T(KKK.GT.15)  go  to  26 
kkk  = hKK  +1 

IF(KK<f  .EC.  1)  IAGMAP  = lACMAP  ♦! 

AGSTPl  I ACMAP  ) = ACA3 
A'^STfM  T AGMAP  ) = A5A3 
GFNSTO  = CFN 
A6STP(  lAC-MAP  I = A6A3 
PTSTOl  1 ACM AP  1=  P TA 
CFSTOl  I ACMAP  ) = CFN 
ACA3  = ACA3  ♦ OELAR 
GO  TO  135 
lAO  JCPMn  = 0 

IF(  nFLAR.LE..Oll  GO  TO  150 
ACA3=  ACA3-OFLAR*.75 
CFLAP  = .005 
GO  TO  135 
150  CALL  OROFS 
GO  TO  160 

9C1  IF(  11(10)  .EO.  0)  GO  TO  2026 
TT^t  = TTA  ♦ OFLTA 
IF(  NOUT.NE.O)  WRITF(6,607)  TTA 
607  FORMAT!  / 5X,  IIHSTEP  TTA  TOt  F8.0  / ) 

IF(TTA  .GT.  TT4MAX  -.1)  GO  TO  2026 
CFNPO  = CFNRQ*.5 
GO  TO  101 

150  IF  ( NOUT.EO.  0 ) GO  TO  200 

615  FORM  AT(  ///2X30HSEARCH  FOR  RAMJET  DESIGN  - NO.  , 13  //  ) 

WRITE(6f620) 

620  FORMAT! //5X, ICHACA3  TABLE//  l5X4HACA3f  7X3HCFN,  7X4HA5A3, 
I 7XAHA6A3,  6X3HPTA  ) 

CO  62  1 1=  1,  lACMAP 

6 21  WP  ITE(6,622)ACST0(  1 ) tGFSTOd  ) ,A5ST0(  I ) ,A6ST0(I ) fPTSTC(  I ) 
622  FORM AT( 10X,AFl0.5tF 10.2) 

WRITE! 6«625) 

629  FORMAT!  ///  ) 

IF  ! NOUT  .GT.  1 ) WRITE!6,19l)  TT4 

151  FORMAT  I//6H  TTA*  tF10.2l 
IFINCUT  .NE.O)  CALL  PAGE 

2C0  IF!  CFNPO  ,GT.  CFSTO!  lACMAP)  ) GO  TO  901 

call  rLUlIT  **0, CFSTO, lACMAP, ACST0,ACA3,IND) 

IFIINC.NE.  * TO  2026 
CALL  TLUl  ' ,A5A3) 

call  TLUli.  A6A3) 


PPRJ 1 590 
PPRJ 1 600 
PPP J1610 
RPR)  1620 
PPP.)  I 630 
PPR.I  1660 
PPRJ 1650 
PPR.1 1660 
PPRJ  1670 
PPP  J 16P0 
PPP  1 1 6^0 
PPRJ  1 700 
PPRJ  1710 
PPRJ I 720 
PPRJl 730 
PPRJ  1760 
PPRJ 1750 
PPRJ 1 760 
PPRJl 770 
PPRJl 780 
PPRJ 1 700 
PPRJ  1800 
PPRJ  18  10 
PPP J1820 
PPRJ1830 
PPRJ 1860 
PPRJ 1 850 
PPRJ 1860 
PPRJ 1870 
PPPJ  1880 
PPRJ I 800 
PPRJ 1 900 
PPRJ 1910 
PPRJ 1920 
PPP ) 1930 
PPP, 11960 
PPR  ) 1950 
PPRJ 1 960 

PPRJ 1 9 70 

PPP, I 1 OPO 
PPRJ  1990 

PPR  J ?ono 
ppRJ2nio 
PPPJ2020 
PPRJ2030 
PPRJ  2060 
PPRJ2050 
PPRJ2060 
PPRJ2070 
PPRJ20P0 
PPRJ2090 
PPRJ2inO 
PPRJ21 10 
PPRJ2 120 
PPRJ2130 
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CALL  Tl  U11(PTSTP,PT4I ) 
lF(MnUTZ.LT.O»  NOUT=0 
pnn  = '^nsTLT 
pz=pno 

IFIK IND.FO.AAI  PnOsXLT 

call  r^LFTP 

NHUT  = N'OUT? 
pnn  = RZ 

ir(  iMn  .^'F.  o»  cn  rn  s 
CALI  cniNi  T 
IFdNn  .ME.  01  GO  TO  900 
xriA  = 1 
MINPAR  = 0 
IPASS  *0 


RnOsXL  TOT-SUSLT  - 


POnSTFP 


SL'STAtNFR  SIZING 


swrni D = SUSWT 
SLTOLO  = SUSLT 
IMIN  = 0 
NSIZFS  = 0 

IFI  IFX.EO.l)  GO  TP  207 
WPJ  = 0. 

PAYLD  = WTINLT  ♦PIMASS  ♦ SUSWT  ♦ MRJ 

NSIZFS  * NSIZES+1 

IFIMSIZFS  .GT.  3C»  GO  TP  33 

TFI  INPUT. ME. 0»  .ANO.  ( NS  I ZF S.GT. 1 ) ) CALL 

IFINOUT.NF.O  ) WRITEI6,609)  NPASS#  NSI  ZES 


6C9  FORMAT!  / 5X,  RFLOnP  NO.  , 13,  2X6HCN  CFN  / 

1 5X,  SHLPnP  NO.  , 13,  2X9HCN  WEIGHT  / ) 

fCfl  CONTINUE 

iriK  INO  .FO.  A4I  GO  TO  211 
IF(  APS!  A5nLD/A5A3  -1.0). LT.  .1  )G0  TO  230 
IFMEX.FO.l  .AMO.  IPASS  .GT.  0)  GO  TO  230 
IF  I NPUT  .NE.  0 ) WR ITF  ( 6,  3101) 

2101  FORMAT!  / 2X,  26HRFCOMPUTE  BOOSTER  PARTIALS  ) 

IF!  (NOUT.NE.O)  .ANO.  IIEX.NE.l)  ) WRI TE 16 ,31 02 ) A5A3,  ASOLO 
3102  Pr-RMAT!  15X,6HA5A3  =,  F10.4/  1 5 X ,6HA50LD*,E  10 .4  ) 

KPnu= 1 

iriMPUT.NE.O)  WRITF16,fcl7)  NBOU 

617  FORMAT!  //  2X,26HPOCSTER  PARTIAL  - STEP  NO.  , 13  ) 

CALL  POnSTI  OELVdPAYLP,  A6A3,A  5A  3,  0,  BPSTPR,  ROSTWT,  POSTLT  , I Kn,rON) 
IFIINC.NF.O)  GO  TO  28 
PAYCFL  * PAYLO  +100. 

NBnU=2 

IFINnUT.NE.O)  WRITF(6,617)  NBOU 

CALL  BOOSTCOELV  I,PAYO’£L,  A6A3,A5A3,0,PARPR,PARWT,PARLT,I  Nn,XCX) 

IF!  INO.NE  .0  ) GO  TO  28 
PARLOR  * PARLT 
PA1WD3  « PARWT 
ASOLO  » A5A3 

PARWT  * IPARWT-BOSTWT)  /lOO. 

PARLT  « IPARLT-BOSTLT)  /lOO. 

PARPP  = IPARPR-BOSTPR ) /lOO. 

PLOLO  = PAYLD 


/lOO. 
/lOO. 
/1 00. 


PPRJ2140 
PPRJ2150 
PPRJ2i60 
PPRJ2170 
PPRJ2180 
PPBJ2190 
PPRJ2200 
PPRJ2210 
PPRJ7220 
PPRJ2230 
PPRJ22A0 
PPRJ2250 
PPRJ2260 
PPRJ2270 
PPRJ2280 
PPRJ2290 
PPRJ2300 
PPR.I2310 
PPR J2320 
PPRJ2330 
PPRJ73A0 
PPRJ2350 
PPRJ2360 
PPRJ2370 
PPRJ2380 
PPRJ2390 
PPO J2^00 
PPRJ2<»in 
rPRJ?A20 
PPRJ2A30 
PPR.IP^AO 
PPPJ2A50 
PPRJ2A60 
PPRJPATO 
PPRJZABO 
PPRJ2A90 
PPR.)2500 
PPRJ2S10 
PPRJ2S20 
PORJ2530 
PPR.I2  5A0 
PPR j?ssn 
PPRJ2S60 
PPRJ2S70 
PRRJ2580 
PPRJ2S90 
PPRJ2600 
PPPJ2A10 
PPRJ2620 
»M  J2630 
PPRJ26A0 
PPRJ2650 
PPRJ2660 
PPRJ2670 
PPRJ26P0 
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I FCNPUT.NF  .0  » WRlTE(fc,tl5»  PARWT»  PARLT,  PARPR 

PPRJ2490 

61S  FrPPAT(//  2X,  ITHCPMPUTFn  PAPTIALS  / 12X8HMP 

IGHT  - 

,F10.4  / 

PPRJ2700 

1 12X8HLFNGTH  F1C.9  / 12X8HHPR0P 

FIO. 4 

) 

PPRJ2710 

IFCr  nUT  .NF.O  ) CALL  PAGE 

PPRJ2720 

IF  ( KWFAM  ,GT.  0 ) GP  TP  235 

PPRJ2730 

KWHAM=i 

PPPJ2  740 

XACTl  = SUSLT  * (SUSWT  + IOO.  ) / SUSWT 

PPPJ?  750 

XAVAIL  = XLTPT  - PLLT  - PAP LPR 

PP0.I7  760 

SI  ni  n = XACTL 

PPPJ2  770 

CFLPl  n = XAVAIL  - XACTL 

PPP J2780 

XACTW  = SUSWT  ♦ 100. 

PPP.I?7fio 

XAVAIW  = WTTPT  - PARwPR  - WTINLT  - WRJ  - PLMASS 

PPPJ2800 

swni n = XACTW 

PPP.)2R10 

PCWCLC  = XAVAIW  - XACTW 

PPRJ2820 

GC  TO  235 

PPRJ2830 

220  PAYPFL  = PAYLP  - PLOl P 

PPRJ2840 

OPSTWT  = BOSTWT+  PAYDEL*PARWT 

PPR J?e50 

PPSTLT  = BnSTLT+  PAYDEL*PARLT 

PPPJ2860 

prSTPR  = HOSTPR^  payoel*pappr 

PPRJ2870 

PLPL  C = P AYLO 

PPRJ2880 

2 25  IF! I EX  .FO.ll  GO  TP  236 

PPRJ28P0 

CLT  = BCSTLT 

PPR J2900 

POP  = RCSTLT 

PPR.)  29  10 

IF  ( NinUT  .FQ.  0 J GP  TO  236 

PPRJ2O70 

WPITF(6f3llH  BOSTWT,  BOSTLTt  BOSTPR 

PPRJ2930 

2111  FPRMATI  / 5X,  28PBnnSTFR  SI ZFP  USING  PARTI ALS 

/ 

PPP, 12040 

1 ISX.EHWEIGHT  = , FIO.  1 / 15X,8HIFNGTH  = 

, FlO.l 

I / 

PPP  J2950 

2 15X, flHPROP.WT*  , FlO.l  » 

PPR  12960 

226  IF(ISI7F  .FC.2  » GO  TP  260 

PPR J2970 

LT  INPUT 

PPR J29H0 

AfTL  = SUSLT 

PPP  J pqon 

avail  = XLTPT  - PLLT  - RPSTLT 

PPR. 13000 

TFST  FPR  CONVFRGENCF  ON  SUSLT 

PPR.)  3010 

OFLNFW  = AVAIL  - ACTL 

PPP.)  3020 

SI  NFW  = SUSLT 

PPRJ  3030 

EPI  T = .25 

PPO.)  3040 

CPMPUTE  NEW  SUST.  LT.  SO  THAT  AVAIL  * ACTL 

PPR J3050 

SUSL  X=SLPLD-DFLOLD*(SLNEW-SLnLO» /(DFLNFW-OELOLO) 

PPRJ  3060 

227  FPRI-ATI  5X9FWT.  ITER.  tI5.  10X5F10.2  ) 

PPRJ  3070 

rUMSL  = APS  1 SLSLT  - SUSLX  ) 

PPR.)  30P0 

IF  I OUMSL  .LE.  FPLT  I GO  TO  2240 

PPo J 30QO 

SUSLT  » SUSLX 

PPR 13100 

SLPLP  = SI  NFW 

PP°J3  1 10 

CFLPIP  = DFLNFW 

PPP  13120 

5262  mNTINUE 

PP"  J 3 1 ■»  0 

IFIK IND  .FO.  421  GP  TO  261 

PPRJ  3140 

1F(  IKINP.E0.44)  .ANP.  (NOUTZ.LF.O)  ) NPUT  = 

0 

PPR J 3150 

call  susmas 

PPR J3 160 

APUT^NOUTZ 

PPR.)3170 

IF  1 KFAIL  .GT.  C » RFTURN 

PPR J3  180 

262  IF  I INC  .NE.  0 ) GP  TP  31 

PPRJ  3 1 90 

IF( SUSWT. LE.  SUSHWTI  GP  TO  31 

PPRJ32PO 

IMIM  * -1 

PPRJ3210 

MINPAR  « 0 

PPRJ  3220 

IFIK  INn.F0.44)  GP  TP  2241 

PPR J3230 

HA  190 


I 

i £ 


i 

i 


¥ 


I 


CALI  INLFTP 

PPRJ3290 

IF  I INC  .NF  . 0 ) r.n  TC!  900 

PPPJ3250 

GP  TP  ?0ft 

PPRJ3260 

22AO 

CPNT INUE 

PPRJ3270 

TC  HFRE  IF  CONVERCFO 

PPRJ3280 

SL^LP  = SLNEW 

PPP J3260 

CELPLO  = DCLNFW 

PPRJ3300 

WTOLD  = wtinlt 

PPPJ3310 

IFINPUT/.LT.O)  N0l!T  = 0 

PPPJ3320 

CALL  INI  FTP 

°PRJ3330 

NCUT  = MPUTZ 

OPPJ3393 

VlTNCk  = WTINLT 

PPRJ3350 

TFST  PM  INLFT  WT  CHANGF 

PPRJ3360 

PFLW  = WTOLC  - WTNFW 

PPR  J3370 

FPIN  = 1. 

PPPJ3380 

IF  I ARSIPFLWI  .LE.  FPIN  I GP  TP  2291 

PPRJ3390 

IFILOOP  .GT.  2 ) on  TP  2291 

PPPJ3900 

LCOP  = LOOP  ♦ 1 

PPRJ3910 

GC  TP  206 

PPRJ3970 

22A1 

CPNT INUE 

PPP  J3930 

TP  FFRF  IF  CONV  CN  INLET  MT 

PPPJ3990 

LCPP  * 1 

PPRJ3950 

IF  ( NPLT  .FO.  0 ) GO  TO  2292 

PPPJ3960 

CALI  SUSMAS  ANO  INLETP  FOR  PRINT 

PPP J3970 

P7=RrP 

PPRJ3980 

IF(K  IND  ,F0.99)  BrP=XRJ 

PPRJ3990 

CALL  INLETP 

PPR  J3500 

eop  = Rz 

PPR.13510 

call  susma<; 

PPR J 3520 

22A2 

CONTINUE 

PPPJ3530 

CALL  CniNl T 

PPPJ3590 

IF  I INC  .NE.  0 ) GO  TO  900 

PPRJ3550 

SLTPLO  = SUSLT 

PPRJ3560 

GO  TP  29<5 

PPRJ3570 

2<l 

FALL  SCUCER 

PPRJ3580 

I F ( KFA  IL  ,GT.  0 ) RETURN 

PPPJ  3590 

GP  TP  26  2 

PPO.J3600 

207 

CALL  FXPA*« 

PPPJ  3610 

IF  ( KFAIL  .GT.  C ) RETURN 

PPR J3620 

IFINOIIT.NF.O)  CALL  PAGE 

PPR J3530 

SUSL  T*XLTnT-PLLT-XR J 

PPPJ3690 

SUSWT*WTTPT-WTINLT-PLMA«;S-WRJ 

PPRJ3650 

CLT  = XPJ 

PPPJ3660 

GP  TP  206 

PPPJ3670 

211 

PPSTWT  « 0. 

PPRJ3680 

RPSTLT  * 0.0 

PORJ  3690 

IF!  IS  I2F  .E0.2  ) GO  TO  5252 

PPRJ3700 

CP  TP  5 26  2 

PPRJ3710 

PPRJ3720 

260  WT  INPUT 

PPRJ3730 

2<0 

CONT  INUE 

PPRJ3790 

ACTW  » SUSWT 

PPRJ3750 

AVAIW  * WTTCT  - BOSTWT  - WTINLT  - WRJ  - PLMASS 

PPRJ3760 

CELSW  a AVAIW  - ACTW 

PPRJ3770 

CFWNFW  a OELSW 

PPRJ3780 

I 


HA  191 


’ SK\FW  = SUSKT 

I r TFST  FOP  CONVEPOFFTF 

FPSW  = I, 

SIJSWX  = SWnLD-r)EV(nLn*(SWNFW-SWOLD)/(nEWNEW-DEWnLO) 
CIIMSW  = ABS  ( SUSWX  - SUSWT  ) 

; IF  ( rUMSW  .LP.  FPSW  ) GC  TP  2252 

SUSWT  = SUSWX 
C LPUP  IIM  SUSWT 

j swpi  n=swPFw 

PFwnLn  = DFWNFW 
SWTOLn  = SUSWT 
j 525?  Cn'iT  INUF 

IF(  (KlMP.FO.^^)  .ANP.  (NCUTZ.LE.O)  ) NPUT  = 0 
! IFIK IMP  .FO.  A2 ) GO  TO  251 

‘ ! CALL  SUSMAS 

APUT  = unuT/ 

IF  I KFAIL  .GT.  C ) RETURN 
j 252  IF  I IMP  ,ME . 0 ) GO  TO  31 

IFISUSLT.LE.  SUSWLT)  GO  TO  31 
i ; IMIN  = -1 

' IFIK  INP.EO.AA)  GO  Tp  2252 

; PALL  IMLFTP 

; NPUT  = NCUTZ 

M IF  ( IMG  .MF . 0 ) GO  TO  SOO 

i i CP  TP  206 

: i 22  52  PONT  INUF 

1 SW3LD  = SWN=W 

; rFwnLC=CEWNFw 

WTPLP  = WTINLT 

i , IF  ( NPL'TZ  .LT.  C ) NOUT  » 0 

B7=P0n 

i IFIK  INP.FQ.AAI  Brn  = XRJ 

' CALL  IMETP 

PPP  = P7 
NPUT  = NPUTZ 
WTNFW  = WTINLT 

C TFST  UN  INLFT  WT  CHANGE 

GELW=WTnLO-WTNFW 
EPIM=l. 

IF!  APSICELW)  .LE.  EPIN  ) GO  TO  2254 
IF( L OOP  .GT.2)  GO  TO  22  54 
■ LPOP  = LOOP  ♦ I 

GC  TP  206 
2254  CONTINUF 
LPOP  = 1 

IF  I NPL'T  ,F0.  0 ) GO  TO  22  53 
C RUN  THROUGH  SUSMAS  AND  INLETP  FOB  PRINT 

pjsppp 

IFIK  IND.FO.^A)  BCO=XRJ 
CALL  INLFTP 
POO  » BZ 
CALI  SUSMAS 
2253  CONTINUE 

CALL  CniNLT 

IF  ( INC  .NE.  0 1 GO  TO  900 


PPPJ3790 
PPOJ3BP0 
PPRJ38  10 
PPRJ3820 
PPR J 3830 
PPRJ3840 
PPRJ3850 
PPRJ3860 
PPRJ3870 
PPR J 3“P0 
PPRJTRPO 
PPRJ3900 
PPRJ3910 
PPR  13920 
PPRJ  3930 
PPR J3940 
PPRJ3950 
PPR.noftO 
PHRJ3970 
PPRJ39flO 
PPRJ3O90 
PPRJ4000 
PPRJ4010 
PPRJ4n20 
PPRJ4030 
PPR J4040 
>»<  J4050 
PPRJ4060 
PPR J4070 
PPR J40B0 
PPRJ4090 

pppj4ino 

PPRJ41 10 
PPRJ41 20 
PPPJ4130 
PPP,I4  140 
PPR J4  150 
PPRJ 4 1 60 
PPRJ41 70 
PPRJ4 I 80 
PPRJ4  IPO 
PPR J4200 
PPRJ4210 
opo  14220 
PPRJ  4?30 
PPRJ4240 
PPRJ4250 
PPRJ4260 
PPR  J4270 
PPRJ4280 
PPRJ4290 
PPRJ4300 
PPPJ4310 
PPRJ4320 
PPRJ4330 


s; 

I;: 

I 
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o n o 


MINPAR  = 0 

PPRJ939P 

rn  TD  2«o 

PPRJ9350 

2‘1 

CALL  SnuCEP 

PPRJ9360 

IF  ( KFAIL  .GT.  0 » RETURN 

PPR 39370 

GO  TO  252 

PPPJ9  380 
PPRJ939n 

S 

IZE  ENGINE 

PPRJ9900 

PPRJ9910 

299 

J = 1 

PPRJ9920 

CFNLO  = 0. 

PPRJ993n 

CFNHI  = 0. 

PPRJ9990 

SLTOI  n = SUSLT 

PPRJ9950 

SWTHi  0 = SUSWT 

PPRJ9960 

2Cl 

IF(K  INO  .FO.  92)  GO  TO  302 

PPRJ9970 

call  RJOES 

PPRJ99H0 

IFI  INO.NF.O)  GO  TO  900 

PPRJ<,^,00 

GO  TO  201 

PPRJ9500 

3C2 

CALL  PROFS 

PPRJ9510 

IFI  INP.NF.O)  GO  TP  900 

PPRJ9520 

2C1 

TCFN  = CFN 

PPRJ9530 

IF  (ARS(CFN-r,FNR0)-.O003)  29C,240,210 

PPRJ9590 

2 10 

iriJ-30>  911,911,2010 

PPRJ9550 

911 

J = J ♦ 1 

PPRJ956n 

IFI  CFN  .LT.  CFNRO)  GO  TO  300 

PPRJ9570 

CFNHI  = CFN 

PPRJ9580 

ACHI  = ACAI 

PPRJ9590 

IFICFNLO  .GT..001)  GO  TO  310 

PPRJ9600 

AC  A3  = AC  A 3 - .0  2 

PPRJ961 0 

GO  TO  301 

PPRJ9620 

3C0 

IF  I ACA3.GE.ACMAX)  GO  TO  2026 

PPRJ9630 

CFNl  n = CFN 

PPPJ9690 

ACLO  = ACA3 

PPR. 19650 

IFICFNHI  .GT..OOn  GO  TO  310 

PPRJ9660 

ACA3  = ACA3  ♦0.02 

PPRJ9670 

311 

IFIACA3,GT,  ACNAX)  ACA3  * ACMAX 

PPRJ9680 

GP  TO  301 

PPRJ96O0 

2 10 

ACA3  * ACLO  ♦ICFNPO-CFNLO )/ ICFNHl-CFNLO) •! ACHI-ACLP) 

PPRJ9700 

GP  Tn  311 

PPRJ97  10 

291 

POP  = XRJ 

PPP J9720 

GP  TCI  2 39  * 

PPRJ9730 

290 

IFI lEX  .EO  .1)  GO  TO  291 

PPPJ9790 

POO  = BOSTLT 

PPRJ9750 

GO  TP  239 

PPRJ9760 

21 

IF  IMINPAR  .EO.l)  GO  TO  35 

PPR.I9770 

IF  I ISIZF  -2)  92,91,35 

PPPJ97Bn 

91 

SUSWT  = SUSMWT 

PPPJ9790 

MINPAR  * 1 

PPRJ9800 

GP  TO  206 

PPRJ98I0 

92 

SUSLT  = SUSMLT 

PPRJ9820 

MINPAR  = 1 

PPRJ9R30 

GP  TO  206 

PPRJ9890 

239 

SFC  * Cl  *ACA3  /CFN  ^AOAC 

PPRJ9850 

IFIFAR.LE.FARLB)  GO  TO  2028 

PPRJ9860 

RETURN 

PPRJ9a70 

ERROR  OUTPUT 

PPRJ9880 

HA  193 


) IF  ( NouT  .Fo.  n ) r.p  TO  qoo 

WP.ITF  (6tl015)  TITLF 

> FnRM/>T(  iO*35H  FPRPfl  IN  PROPRJ  FNCOUNTEREO  /10X20fl4» 

WP  ITEl6i2001)TT2 

L FPR^'ATI  /lOX,  32HTT^  IS  LESS  THAN  CR  FQUAL  TO  TT2// 1 OX  ,4HTT  2=  , F« 
r,n  TP  900 

) IT  ( NOOT  .FO.  C ) GP  TO  900 
WRITE  (6,1015)  TITLF 
WPITF( 6,2011 )CFN,CFNP0 

L FORM  AT(  / lOX,  26HFA  ILURF  TO  CONVERGE  CN  CFN//10X,i^HCFN=,F7.4,4X, 
X6HrFNR0=,F7.A) 

CO  TP  9 CO 

i IF  (MOOT  .FO.  0 ) GO  TO  900 
WPITF  I 6,  1015  ) TITLF 
WPITFl 6,2015)  AMACH,  ALF 1 

5 FOPMAT(  /10X,3^HFA  ILUPF  TRYING  TO  READ  INLET  MAP  / 

IlOX,  7HAMACU  = ,F10.5,  8H  ALFl  = ,F10.5  » 

) IF  ( NPUT  .FO.  0 ) GO  TO  SQC 
WPITF  ( 6,  545  ) RPMR,  IARKMUM) 

) FORMAT  (•  1ST  INO  VAR  IA8  LE  = ' ,E  12.  5,  • > NO  I NO  VARIABLE=  •,F12.5 
IIIPTARLF  =',F10.3,'  SURTABLE  SIZE  =*,F10.3/'  THF  VARIABLE  r>UT  p 
2NGE  IS  THE  •,A4,'  INDEPENDENT  VARIABLE'/) 

GP  TP  900 

i IF  ( NPUT  .FO.  0 ) GP  TP  900 
WPITF  ( 6,  1015  ) title 

WRIT  E( 6,2027)  AC  STO(  1) ,CF STP 1 1 ) , AC STC( I ACM AP ) , CFSTO ( I ACM AP ) , CF 
r FORMAT! /lOX, 31HUNARLF  TO  FIND  CF N MIN  ACA3  IS  ,F10.5,11H  MIN  C 
IS  ,F10.5,  12H  MAX  Ar,A3  IS  ,F10.5,11H  MAX  CFN  IS  ,F10.5,  6HCFNR0 
2F  10.5  ) 

GP  TP  900 

1 IF  ( NPUT  .NE.  0 ) WPITF  ( 6,  39  ) 

i FnRMATI45H  EXCESSIVE  ITERATIONS  IN  INTERNAL  RAMJET  LOOP  ) 

GO  TP  900 

^ IF  ( NOUT  .EO.  C ) GO  TO  900 
WPITF  ( 6,  1015  ) TITLE 
WR  ITF(6,2029  I FAR,FARLB 

> FORMAT! /IDX, 35HFAR  IS  FQUAL  TO  OR  LESS  THAN  F AR LB/ / lOX ,4HF A R= , 
XF7.4,4X,6HFARLB=,F7.4I 

3 INC  = 1 

IF  ! NOUT  .NE.  0 ) WRITE  (6,27)  RJ 
f FORMAT! 4F20. 7) 

CALL  PJWT 
PFTUPN 

) IF  ! NPUT  .NE.  0 ) WRITE  ! 6,  29  ) 

3 FORMAT! 3flH  FRRQR  TRYING  TO  GENERATE  BOOSTER  DATA  ) 

RETURN 

J IF  ! NOUT  .NE.  0 ) WRITE  .!  6,  34  I 


RAMJET 


WRITE  (6,27)  RJ 


) WRITE  ! 6,  29  ) 

TRYING  TO  GENERATE  BOOSTER  DATA  ) 


I IF  ! NOUT  .NE.  0 ) WRITE  .!  6,  34  I 

• FORMAT!  63H  EXCESSIVF  ITERATIONS  TRYING  TO  OETFRMINF  BOOST  /SUS 
1 SPLIT  ) 

RETURN 

. IF  ! NOUT  .NE.  0 ) WRITE !6,47)IACMAP,KKK,JC0ND,ACMAX,CFNSTC,CF 
' FORMAT!  42H  IRRECONCILABLE  ERROR  IN  AC  MAP  GENERATION  /3I4,3F1 
INC  * 1 
GP  TP  190 
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PPR J4fl90 
PPRJ4900 
PPRJ4910 
PPRJ4920 
PPRJ4910 
.2)  PPRJ4940 
PPRJ4950 
PPR  )4960 
PPRJ4970 
PPRJ49flO 
PPRJ49O0 
PPRJ5000 
PPRJ5010 
PPPJ5020 
PPRJ  5030 
PPRJ5040 
PPRJ5050 
PPPJ5060 
PPRJ  5070 
PPRJ50R0 
,'  SPPRJ5090 
F PAPPRJ5100 
PPRJ5110 
PPP J5120 
PPPJ5130 
PPRJ  5140 
NPC  PPRJ5150 
FN  IPPPJ5160 
, PPRJ5170 
PPP J5  IPO 
PPPJ5190 
PPRJ  5200 
PPPJ5210 
PPPJ5220 
PPPJ5230 
PPR J5240 
PPPJ5250 
PPRJ 5260 
PPPJ5270 
PPRJ  52flO 
PPR J5290 
PPRJ5300 
PPRJ5310 
PPR J5320 
PPRJ5330 
PPRJ  5 340 
PPRJ5350 
PPRJ5360 
T AINPPRJ5370 
PPRJ53R0 
PPRJ5390 
N PPRJ5400 
5.5  )PPRJ5410 
PPRJ5420 
PPRJ5430 


1; 


i 


f 


f 

f 


I 

t 


35  TF  ( MCUT  .N'F  . C ) WP  I TE  ( 6,  36  I PL  MA  SS  ,PLLT,  POSTLT  .BCSTWT  , SU5  VLT  , 
I SUSMWT 

36  rnPPAT(53H  PAYLOAD  AND  BFCSTER  PREEMPT  EXCESSIVE  L FNGTH/WF IGHT 
11<JH  DESIGN  terminated  ,6F12.4) 

RETURN 

138  IF  ( NPUT  .I'F.  0 ) WRITE!  6,  139  ) HP 

1-jQ  FnpMATI  2X,  <.2HFRRnp  TRYING  TO  OBTAIN  ATITUDE  DATAtALT  = ,F8.U 
RETURN 

2016  IF  ( NEUT  .FO.  0 ) RETURN 
WRITE  ( 6t  1015  ) TITLE 

WR  ITF  ( 6,  2017) 

2017  pr'RMAK^OH  FRROR  TRYING  TO  GENERATE  SUSTAINER  DATA  ///) 

RETURN 

END 


PPRJ>'<-40 
PPRJS"  50  f 

/PPRJ5460  j 

PPRJ5470  S 

PPRJ5480  I 

PPRJ5490  I 

PPRJ55no  a 

PPRJ5510 
PPRJ5520 
PPRJ  5530 
3 5^  J 55<*0 
PPRJ5550 
PPRJ5560 
PPRJ5570 


r 


C 


SUPPPUTINF  SUSMAS 

FGm=nuk .PM-PGSM  GM/KM  FIV-EBCO  7/11/73 

rO^MPN  /COMVLS/  COM! 51) 

FCUIVALENCF  ( COMIl),  WTANK), 

1 (POM! 2), VFXIN ) , 

2 ( CPM(  3 ),  VREOX  ) , 

3 (rpM<A),GGWX  )y 
t,  (COM!  5),HPPUMP), 
e (CPM! e l.WTFUEL  ) t 
7 ICPM!  12),KEMX)  , 

P (COM!  13),MATTKX) 

roMMON  /FAIL  UR/  KEAIL 


VERSION  2 

CPMMPN  /MATTYP/  IPO) 

rPMMTN  /FRPRT/  POMP ( 4 ) tM UM t 1 AR 1( 2 ) 

rnMMTN  /FXTFRN/  AP  (20) 


FOUIVAI  FMCF  (AR(3)t0  3) 

D IMFNSION  WT(  15) .7(15) f ZW(  15) ,X( I ( 151 
FOUl  V Ai  FNCE  ( WT(  1 ) .EITNGS)  , ( WT  ( 6 ) .E  X 1 NWT) 

COMMON  /FMPT/  HP , AM AC H , A LF 1 , F A RD 

COMMON  /RJPAT/  C FNRO ,C FNE T , A 5A 3 , A 6A 3 , AC  A3 . SF C , POST W T , POST L T , 
1 BOSTPP 

COMMON/COLD/PO,  C2,  A3,  CONS,  PTO,  P TR , TO,  TT2 


COMMON/ INLFTX/ 

6Ke,KPTC(  15),ALPHV(  15),AAMACH(15,15)  , AOACC  ( I 5 , 15  ) , PT  3 PT  n ( 1 5 , 15  ) 
lACniH  15, 15) 

COMMON  /ALTDD/ 

IKl.ALT! 26),S0TFMP( 2^)  ,PRESS(26),1D(8) 

COMMON  /PAKFR/  PK(A8) 

EOU  IVAL  FNCF 


1 

2(PK(  5),PP  ),(PK(  6),V0LX 

A(PK(  9), ALINE  ) , (PK(  10) ,PNF 
X(PK(?9),WTATH  ),(PK(30),SSAFS 
X(PK(33),STKFC  ), (PK( 36) ,VFMN 


(PK(  3) ,X2 
),(PK(  7),GGW 
),(PK(11)  ,STKFS 
) , (PK(31) ,R 
) , (PK(35) , TED 


) , (PK(  6) ,Xl 
),(PK(  8) ,GGFW 
) , 

) , (PK(32)  .wrSTB 
) ,(PK(36),V0LI 


, 


). 
) , 

). 

), 


X(PK(60),OFLFXI), 

X(PK(61),FXMINW),(PK(62),DELB  ) , (PK(63 ) ,DELTK  ) , ( PX (66) .BLADD  ), 
3(PK( 65),VRFC  ),  (PK(67) ,SHFLL  ) , ( PK (68) , XCAR  ) 


SM  ASOOl  0 
SMAS0020 
SM  AS0030 
SM  ASOOAO 

SM  Asnnso 
SM AS0060 
SM AS0070 
SM AS0080 
SM AS0090 
SM A SO  100 
SM  ASOl  10 
SM  AS0120 
SMAS0130 
SMAsni ^0 
SMASO  150 
SmaSO  160 
SM  AsniTO 
SMAS0180 
SM  ASOlOO 
SMAS0200 
S MAS  0 2 10 
SMAS0220 
SM  AS0230 
SM AS0260 
SM ASO’50 
SM  AS0260 
SMAS0770 
SM  AS02fl0 
SM AS0200 
SM  AS0300 
SMASO  310 
SMASO  320 
SM  AS0330 
SMAS0360 
SMAsn350 
SMAS036n 
SMASH  370 
SMAS03fl0 
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L 4 


F 


1 


c 

c 

c 

c 

c 

c 

r, 

r 

c 

r 

c 

c 

c. 

r 

c 

c 

r 

c 

c 

c 

c 

c 


crMMrM/mF»y/  ii(i6) 
rnrpxx  extfonm  intfgfr  ARpav 
FOu  ival  E^'r  f 

KIK  3),tSI7E  )t(II(  6),KFM  ) , ( I I ( !<►)  ,NPASS 
CrMPON  /IPRCIP/  IND,IHIN,NFWPT,IRJOUT 
/SOSEAT/  TX(<rA) 

FOIJ  IVAL  ENCF 


SMASO’JQO 
SW AS0400 
SM  ASO^IO 
SM  AS04?0 
S'^ASO^'^O 
S»<ASOAAO 
SM  AS0450 


iiTxi  n. 

FX  IN 

,ITXI  2),DRHnF 

) ,ITXI  3) 

,EDR 

,(TXI  A),FEXP 

) ♦ 

SM AS0A60 

2(TX(  5>, 

GGMF 

,(TX(  6),PIDF 

) , I TXI  7) 

,PNS 

,(TX(  8), RFGD 

) f 

SM ASOA70 

3ITX(  c), 

R HOB 

, I TXIIO) ,RHOF 

) ,(TX(11  ) 

, TFUL 

,(TXI12),RU 

1 • 

SM ASOAPO 

A(TX( 13) , 

SKTWT 

,(TX( lA) ,TBLAD 

) , ITX(15) 

,TNGG 

,(TX(16),TSUS 

) f 

SMAS0A90 

5(TX(  17)  , 

ULLG 

, ( TXI  18) , TCASEC ) , (TXl  1°) 

,TMAX 

,(TX(20) ,PCC 

1 f 

SM AS0500 

61 FX(  21  ) , 

WDFMAX  ) 

, ( TXI 22 ) ,XFMB 

) ,(TX(23) 

,WFC 

, I TXI 2A) ,WFMB 

1 f 

SMAS0510 

7( TX( 2S)  , 

SUSMLT) 

, 1 TX(26) ,SUSMWT) ,( TX(27) 

,WCPT 

,(TX(28),0ELWT 

1 f 

SM AS0520 

8( TX( 20)  , 

SWTFS 

) 

, (TXI  30  ,0FLF 

) , I TX(31 ) 

,SWTOLD 

, (TXI32),SLTnLD 

1 f 

SMASD530 

9(TX( 33)  , 

SUSLT 

) 

,I TX(3AI ,SUSWT 

) ,ITX(35) 

,FSU2 

,(TX(36),FSY2 

1 t 

SMAS05A0 

1(  TX(  37) , 

SML  T 

) 

,( TX( 38) ,SMWT 

) , ITX(39) 

,FOAJ 

,ITX(A0),FUSABL 

1 f 

SM AS0550 

2( TXI A1 ) , 

RHO 

) 

,(  TXI A2 ) ,RH01NS)  ,ITX(A3) 

,MATTK) 

♦ 

(TX(AA)  ,MATPB) 

SMAS0560 

7Cl 


FX  IN  rxrpPNAL  INSULATION  THICKNESS 
DHPHF  BULK  DENSITY  CHANGE  FOR  FUEL  PER  DEG  F 
FOR  MAJOR/M  INQR  AXIS  TANK  ♦ N2  BOTTLE  OCME 
EFXP  EXPULSION  FFriCIENCY  E.G.  .97 
GGMF  SGG  MASS  FRACTION  KFM  = 3 E.G.  .1 
PlOF  INJECTOR  PRESSURE  OROP  FRACTION 
PNS  N2  PRESSURE  KFM  = 2 PSIA 

RFGD  FUFL  CONTROLLER  PRESSURE  DROP  PSIA 
RHPR  BLADDER  DENSITY  LB/IN3 

RHOF  FUEL  DENSITY  LB/IN3 

TFUEL  maximum  FUFL  TEMP  AT  RAMJET  IGNITION 
RU  GAS  CONSTANT  FT/DEG 

RHOIMS  EXTERNAL  INSULATION  DENSITY 
TPLAD  BLADDER  THICNESS  IN 

TMGG  gas  outlet  temp  DEG  R 

TSUS  MAXIMUM  SUSTAINER  TIME  SEC 
ULLG  ULLAGE  REQUIRED  E.G.  .05 

TCASFC  minimum  TANK  THICKNESS 
TMAX  CASE  DESIGN  TEMP 
XFMB  LENGTH  FUEL  MANAGEMENT  BAY 
FSU2  ultimate  TENSILE  SAFETY  FACTOR  E.G.  1.25 
FYU2  YIFLD  TFNSILE  SAFETY  FACTOR  E.G.  1.15 
DATA  GAMM2,ZP,Z0.PY  / 1 .4C1 , 1. 0 , I . 03 .3 . 1 A 159  / 

XI  ISUS  = 0.0 
X IIMT  = 0.0 
IF  I IMIN)  103, TOC, 701 
ACAS  = O.A 

call  TLUK  HP,  ALT,Kl,PPFSS,Pr,  IND) 
ir  ( IND  .NE . 0 ) GO  TO  38 
call  TLU11(SDTEMP,T0) 
call  ISENI T0,P0,AMACH,TT2,PT0) 

IF  I KFAIL  .GT.  0 ) RETURN 

call  TLU2( ALFl, ALPHV, K8 , A MACH ,AA MACH , KPTC , AO ACC , AO  AC, IND) 
IF(  IND.NE.O)  GO  TO  201A 
CALL  Tl U22(PT3PTC,PTR) 

PCC  = PTOAPTR/IAA. 

C2»0.91877A  *Pr*AMACH/SORT( TO! 


S*'AS0570 
SMAS05fi0 
SM  AS0590 
SMAS0600 
SM AS0610 
SMAS0620 
SMAS0630 
SM AS06A0 
SM AS0650 
SM  ASD660 
SM  ASOA70 
SM ASOABO 
SM AS06Q0 
SMASOTOO 
S»'AS0710 
S‘<AS0720 
SM  AS0730 
SM AS07A0 
SM  APOTBO 
SMAS07A0 
SMAS0770 
SM  ASO  7B0 
SM AS07QD 
SM ASOBOO 
SM ASOBIO 
SM  AS0820 
SMAS0830 
SMASORAO 
SM AS0850 
SM  AS0860 
SMAS0870 
SM ASOBPO 
SMAS08R0 
SMAS0900 
SMAS09  10 
SMAS0O20 
SM AS0930 
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/>3=  n3*<-2/4.*  py/iA4. 

CTNS  =A3+r2*AnAC*FARO 
7C0  wrF^'AX  = rnMS*AC.A3 

CFl  INF  = 0.2736*S0RHWnFMAX)  ♦ .04 
ALINF  = OFLINF  **?/4.*PY 
wn  I^'F  = OFl  INF*O.Ol  78 
I Ft  IM  IN  .1  T.  I ) nr  TO  103 

IF  (PCr  .LT.  1.  .PR.  Pr.C  .GT.  500.)  PCC  = 500. 
r Al  I mail  St  YATTK ,TMAX,RHn,FTU,FTY,INn) 

IF  t INI)  .NF . C)  GP  TP  35 
SCLPF  = P3-2.<'EXIN 
R = sri  PF/?. 

SHFLL-SCLnF*PY*TCASPC*RHP+P3*PY*EXlN*PH0INS  ♦WTl  INF 
c mimmuv  length  TAA'K 

5MLT  rSGLPF/FRR 
PFLFXI  = n3*PY*FXIN*PH0tNS 
C EXTERNAL  INSULATIDN  WEIGHT 

rxMlNW  = nELEXI*SMLT 

pFs  = tPiPF*i.)*prr 

SIZE  TANK 

FUEL  TANK  CYLINORICAL  WITH  CRLATE  SPHEROID  FNDS 
PMF  = PFr,P-*-PFS 
IFIKFM.F0.4)  GO  TP  105 
STKrL  = FSU2*PFS*SCLnF/(FTU«'2.  ) 

STKFY  = FSY2*PFS*SCLnF/  tFTY*2.  ) 

STKP=AMAXlt  STKFU.STKFY) 

TCPP  FS=5TKP 
C CYt  INPEF  THICKNESS 

STKFr  = AMAX It  STKP.TCASFC ) 

STKFY=rSY2*PFS*. 5*F0R/FTY  *.5  ♦SCLOF 
SXKFU  = FSU2*PFS*.  5*EnP /FTU  *.5  ♦SCLOF 
STK  rP  = AMAX  It  STKFU.STKFY) 

C rpMF  THICKNESS 

STKFS=AMAX  U STKDP.TCASEC  ) 

1C6  SFF  = t l.-l./t EOR*FDP  ) ) **.5 

SSAFS  = t PY* SCLOF ♦♦Z)  /?.♦(  (PY^SCLDF^^2  )/  (4.  ♦Enp#^2^SEF)  ) *ALOr.t  ( I . 
IHSFF  )/t  l.-SFF  ) ) 

SWTFS=STKFS^SSAFS*RHn 
FITNGS  = SKTFS^O.25 
PP  = SCLPF/2.-  STKFC 

c SK irtzstiffner  weight 

WCSTP  = Z.^PHO^t 44.l^IR^STKFC)**l.5  ♦ 2. 75*R*R*STKFC) 

WTATH  = PY^SCLOF^STKFC*RHn^SMLT 
SKTWT  = WCSTB  ♦ WTATH 

VFMN  =PY^*SCL0F-2.*(TBLAD+STKFS) ) ♦♦S/ ( 6. ♦EOR ) 

FOAJ  =f  RHPF-ORHOF^  (TFUL-  75.  ) )♦!  l.-ULLG) 

WCPT  = VFMN^FCAJ^FFXP 
TFn=  VFMN^FDAJ^t 1 .-EEXP  ) 

BLAOn  = SSAFS^TBLAD  ♦RHPB 
C HINIMUM  WT  TANK 

SMWT=SKTFS  tWCSTB  hWTATH  hBLAOD  4-WCPT  ♦ EXMINW  hTFO  ♦ FITNGS 
C MINIMUM  FUEL  AVAILABLE 

C fuel  /inch  of  CYLINDER 

VPLI  =.7a54^( SCLDF-2.M( TBLAPhSTKFC) )*^2 
DFLF*  vnLI*FDAJ 


S*!  ASOOAO 
SMAS0R50 
SMAS0960 
SM AS0970 

SM asorro 

SM  ASOOqO 
SMASIOOO 
SMASlOlO 
SMAS 1020 
SMAS1030 
SM AS1040 
SM  Asio5n 
SMAsi06n 
SMAS 1070 
S^AS  lOflO 
SMAS 1090 
SMAS  1 100 
SMASlllO 
SMAS1120 
SMAS  1 1 30 
SMAS  1 140 
SMAS 1150 
SMAS I 140 
SMAS1170 
SMAS 1180 
SMASl 190 
SMAS1200 
SMAS1210 
SMAS1220 
SMAS1230 
SM AS1240 
SM  AS1250 
SM AS1240 
SMAS1270 
SMAS  1280 
SM  AS  1290 
SM  AS1300 
SM  Asi 310 
S“ ASl 320 
SMAS1330 
SMASl 340 
SMAS 1350 
SMAS13C,0 
^M  AS1370 
SMASl3fl0 
SMAS1390 
SMAS1400 
SMAS 1410 
SMAS 1420 
SMAS1430 
SM AS1440 
SMAS1450 
SM AS1460 
SMAS 1470 
SMAS14R0 
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1 
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LR/IN'Cf-  PF  CVLINDEP 

SH  AS1A90 

TFIR  = PY*SCLnF*TPLAD*RHOB 

SM AS1500 

FFLTK  = PY*SrLnF*5TKFC*RHn  ♦WTLINE 

SMASI 510 

rCLWT  = OPL  TKtnELP»0FLF4-nFlEXI 

SMAS 1 520 

SI7F  FUFL  CONTROL  SY5TEM 

SMAS1530 

IC3 

urr.=  10. ♦.  667»W0FMA  X 

SMAS 1 540 

ro  TO!  104, 45C»47C, 400) ,KFM 

SM AS  1550 

IC‘5 

STkFC  = TfASEC 

SmasI 560 

STK  rs  = TCSSFC 

SM  ASl 5 70 

GO  Tr'  1 06 

SV  AS  1 5«0 

M 

FPrS<;iJPF  POTTLE  CALCULATIONS 

SMASl 590 

irc. 

IF  (IMIN  .FO.  0 .OR.  NPASS  .GT.  0)  GO  TO  42 

SMAS 1600 

xF»'n  = 10. 

SmaS 1610 

X mi  p = 10 . 

SM  AS  1620 

'^USF'l  T = SMLT  + XF“0 

SMAS1630 

TN  = 53  0. 

SM AS1640 

SUSMWT  = SMWT  * 50. 

SM  AS1650 

IF( IS  17  E .FO.  1 ) CO  TO  4C 

SM  AS  1 660 

WTF  = SOSWT  - SUSHWT 

SMAS  1670 

XCYL  = WTF/OELWT 

SMAS16R0 

CO  TO  4 1 

SM AS1690 

40 

XCYL  = SUSLT-  SUSMLT 

SMASl 700 

41 

IFIXCYL  .LT.  0)  XCYL  = 0. 

SMAS1710 

42 

K =0 

SMAS  1 720 

5? 

K = K4-  1 

SMAS  1730 

IFIK.GT.  30)  GO  TO  46 

SMAS1740 

VPKO  = VFMN  ♦ VOL t ♦XCYL 

SMAS1750 

ur'P=(  l.+(r,AHN2-  1.  )*ZP)  /(!.-(  PNF^Z0)/(PNS*7P)  ) 

SMASl 760 

GGFW  = WMR^PNF/ 1 7P^R U^TN) /12,  ♦VRFO 

SM  AS  1 770 

CO  TO  780 

SMASl 750 

gas  GENERATOR  WEIGHT  CALCULATIONS 

SMAS 1700 

LTGUIO  GAS  GENERATOR 

SmaS  1500 

4 50 

ro.VTINUF 

SMAS  IH  10 

vrOTP  = WOFHAX  f RHOF 

SM  AS  1520 

CCPV=  1.  1*VD0TB*TSUS*PNF/12. 

^M  AS  1 530 

GCFW  = GGPV  / IPL*TNGG) 

SMASl 540 

IFIGGFW.GT.O.S)  GO  TO  452 

SM  AS  1 550 

GCWP  = .12F( .12-.0)^(GGFw-.5)7(. 5-.0) 

SMAS 1 560 

461 

VOLX  = 55,  ♦ SS.^GGFW 

SMAS IRTO 

GO  TO  A60 

SMASIR50 

4 52 

IF(GCFK.GT.I.O)  GO  TO  453 

SM  ASl  500 

CGWR  = .1B04( . 180- . 12)*(GGFW-1, ) /( l,-.5 ) 

SM  AS1900 

GO  TO  461 

SM ASlOlO 

453 

IF  ( GGFW. GT. 2.0 ) GO  TO  454 

SM  AS  1920 

GCWP  = .2441 .24-.16)*(GGFW-2.)/(2.-l.) 

SMAS  1930 

GO  TO  461 

SMAS  1940 

4 54 

IF  l GCFW. GT, 4,0)  GO  TO  455 

SM  AS1950 

CGWF  = ,2<’4(  ,29- .24)^(GGFW-4.  )/l4.-2,) 

SMAS1960 

VOLX  = 80,  48  2,5^C-GFW 

SMASl 970 

GO  TO  460 

SM  AS  1980 

455 

IF  ( GGFW, GT, 6,0)  GO  TO  456 

SMAS 1090 

GGWR  = ,3104( ,31C-,29)*lGGFW-6,) /C6,-4, ) 

SMAS2000 

VOLX  =150,  465,*GGFW 

SM AS20  10 

GO  TO  4'-0 

SM AS?n20 

456 

rrwp  = ,3404(  ,340-, 310)^(GGFW-10, )/( 10,-6, ) 

SMAS203n 

HA  1«?8 


VPL*  =2  30.  ♦ 5l.6f'<'''.r.FW 
t<to  now  = crrw/rGwo*(PMP/A00,i**,3 
GC  TP  7eO 

C SPLIP  rRPPFlLANT  GAS  GENERATOR 

A 70  CONTINUE 

VrPTE  = KOFNftX  / PHPC 

GCPV=1  . l<'VnPTH*TSU‘;«'PNF  / 12. 

GGFW  = GCPV/( PU* TNGG » 

GGW=GGrw/GGNF 

VPL<  = (r.GFW/.06  ♦ (GGW-GGFW)/0.283)/.  85 
GP  TP  780 

C RAM  AIR  TUROnPUMP 

AEO  IP{  IMIN  .L  T.  01  Gf  TO  702 

HPPUT  = ( V»()EMAX/R  Hor  I*PNF*.000152 
HPPUMP  = HPPUT/.PE 
lF(HPPUMp-7. )^fil,A8l,402 
A8  1 WPUMP  = 2. 

GO  TO  A83 

A82  WPUMP  = ( HPPUMP-7.  »*.3e  *2. 

C XCfR  characteristic  OIMENTION  TURBINE  OIAHETER 
A83  XCAR  = 3.625 

TURWT=3.7+.57*I FPPUMP-7. ) 
in  HPPUMP.lt.  7.  ) TURWT=3.7 
iri HPPUMP-.6f ) A FA, A 84, A 85 
A8A  TURVOL  = 36.5 
CP  TO  A86 

A85  TURVOL  = 36.5  ♦ I A . 5* I HPPUMP-. 65) 

A88  SYSWT  = 1.2*(TURV.T  *■  WPUMP) 

GGW  = SYSWT 
Gcrw  = 0. 

VOLX  = TURVOL 
780  rPNTINUF 

CALI  FMBPAK 

IF(  INP  .NT.  0 1 GO  TO  60 
SUSMLT  = SMI  T XFM(i 
SUSMWT  = SMWT  WFM8 
7C2  IFIISIZE  .EO.  1)  CO  TO  3C 
WTP=  RUSWT-SUSMWT 
xrVL  = KTF/PFLWT 
SUSIT  =XCYL4  SUSMLT 
GP  TO  31 

30  Xrvi  = SUSLT-  SUSMl  T 
SUSWT  =XCYL*0ELWT  ♦ SUSMWT 

31  IFIXGYL  .LT.  0)  GO  TO  25 
FUSABl  = WCPT  ♦ xrYL*nELF*FFXP 
I FI K EM. ME.  1 1 GO  TO  51 

IF  I ABSIXFOI  n/XFMP  -l.l.LE.  .001)  GO  TO  51 
XFIILO  = XFMP 
IMIN  = -1 
rn  TO  52 

51  WTI 1 )=  SHTFS*0.25 
WT(6»=  nFLFXIASUSlT 
TFC  = GFl  F*XCYL*(  l.-EFXP  ) 

TPAPF  = TFC+TFC 
XIISUS  = 0.0 


SM  AS20A0 

SMAS2050 

SMAS7n60 

SMAS2070 

SM AS2OR0 

SM AS2090 

SMAS21O0 

SMAS2110 

SMAS2120 

SMAS2130 

‘^MASPIAO 

SMAS2150 

SMAS2160  1 

SMAAPITO 

SMAS2180 

SMAS3100 

SM AS2200 

SMAS2210 

SMAS2220 

SMAS2230 

SMASPPAO  I 

SMAS2250  i 

SMAS2260  ! 

‘IMASPPTO 

SMAS2280  i 

SMAS22QO  1 

SM AS  2 300  \ 

SMAS2310  I 

S“AS?320  I 

SMAS2330  f 

SMAS23A0  ‘ 

SM ASP  350  I 

SM ASP  360  I 

SMAS2370  !i 

SM  AS  2 3 80  j. 

SMAS23O0  I 

SMAS2A0n 
SMAS2A10  (i 

SMAS2A20  ; 

SMAS2A30  f 

smaspaao  I 

S M AS  7 A 50  1 

SMAS2A60 
SMAS7A70  ; 

SMAS2A80  I 

SMAS2AQP  I 

S MAS 2 500 
SMAS2510  i 

SMAS2520  ' 

SM  AS 2 5 30  ' 

SMAS25A0  ; 

SMAS7S50 
SMAS2560  ; 

SMAS2570 
SMAS2580 
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XTT^T  = 0.0 

SM AS25gO 

ir«  1 1(  1 n.Ec  .0)  or  to  ?oi 

SM  AS26nO 

r 

ITTM  1 riTTFNGS 

SM  AS241 0 

X TK  U = 0.0 

SM  AS2620 

7W( 1 ) = C.O 

SM AS2630 

/( 1 »=0. 

5MAS2640 

c 

ITF*<  ? rwn  noMF 

SMAS245n 

CALL  7rLPl L( Cn^.RHO.R ,0. 0, STKF St  0, 0 » 1 t X I I ( ? ) , Z ( 2 ) t 7W ( 2 ) ) 

SM  AS2460 

WT(21=  SWTFS/2. 

S«A<;?670 

r 

irrv  -»  pwn  rlaodfc? 

SM AS24R0 

0P=  c-tolAO 

SM  flS2690 

X 1=  SMI T/2 

SM AS27no 

H=  X l-TFL  AH-stkF  S 

SMAS2710 

-PH/F 

SM  AS2720 

WT(  ? ) =OlAOO/2. 

SM  AS2730 

PAti  ZFLPLLF  EP,RFrR,PR,0.0,TRLAn,  0.0  1 1 1 XI  I (3  > t Z ( 3 ) , 7W  ( 3 ) ) 

SMAS2740 

C 

ITEM  FVtO  STIFFNER 

SM AS2750 

WT(  A ) =Wr  STR/2  . 

SM AS2760 

call  ZCYLLLI  .5,WT(  A),R,0.0,  xn  (A)  , Z(4)  tZHUn 

SMAS277n 

r 

ITFM  5 FWO  SKIRT 

smasztro 

WT(  5 )=V.TATH/2. 

SMAS2790 

CALL  ZC Yll L( XltWTI 5) fP tO. OtXl I (5) tZ(  5) f ZW(5i  I 

SM  AS23O0 

C 

ITEM  6 EXTERNAL  INSULATION 

SM AS2810 

C2  = n3/2  . 

SM AS2820 

CALL  ZCYLLLI  SML  T,  F X INWT ,02, 0.  0 1 X I H6  ) t Z (6)  ,ZW(5») 

SMAS2830 

c 

ITFM  7 SIDEWALL  CASE 

SMAS2840 

WTI7)  = OFLTK^XCYI 

SM  AS2n50 

CAI  L Zr  Yl  LLI  XCYL,WT(  7)  ,P  ,Xl  ,XI  I (71  ,Z(7  ) ,ZW(7)  ) 

SMftS2R60 

r 

ITEM  B SIDFWALL  BLAODFR 

SmA';2870 

WT(  fi  » = MELB  *XC  YL 

SM ASZBPO 

CAI  1 7 CYLLL  ( XCYL,WT(  8)  ,RB,Xl  ,XI  M8)  ,Z(0)  ,ZW(8I  » 

SMAS  2A90 

X?=  XUXCYL 

SMAS2900 

C 

ITFM  9 AFT  SKT 

SMAS29  10 

WTIQ)  = WT(  E»FXFMp*|nFLTK-WTLlNE ) 

SMAS2R20 

X3=X 1 ♦XFMR 

SM  AS2930 

call  ZCYILLC  X3,WT(<9I  ,R  ,x?,xn  (91  ,Z(9I  , ZWI9)  I 

SM AS2940 

C 

ITFM  10  AFT  STIFFNFR 

SMAS2950 

WT( 101=  WTI4I 

SMAS2O60 

CALL  ZCYLLLI  .S,WT( 10) ,R, SUSMLTtXII ( 10 ) , Z ( 1 0 ) , ZW ( 1 0 1 1 

SMAS2970 

c 

ITEM  11  AFT  nOMF 

SM  AS29B0 

WTI 1 1 ) = WTI 2) 

SMas2'’Q0 

CALL  7ELPLL ( FDR ,RHn,R ,0. 0, STKF S, X2 , 0, XI  I ( 1 1 1 , Z ( 1 U , 7W ( 1 1 ) ) 

SM6S3000 

c 

ITEM  12  AFT  BLADOFR 

SM AS  3010 

WTI  12)  = WTI 3) 

SM  AS3020 

CALI  ZFLPLLf E8,RFnB,RB,0.,TBLA0,X2,0,Xl I (12) ,Z( 12) , ZW( 12)  ) 

SMAS3r)30 

r. 

ITFM  13  Fwn  PRDPFLLANT 

SMAS3040 

WTI  13)  = IWCPT  ♦ TFO) /2. 

SM  flS3050 

call  ZELPSS(EnR,FDAJ,R0,C.O,O.O, 1,XII(13) ,Z(13) ,ZW(13)) 

SM AS3060 

r. 

itfm  14  cyl  propellant 

SM  AS3070 

WT( 14)  =DFLF*XCYL 

SM  AS30R0 

CALL  ZCYLHH( XCYL,WT(  14)  ,RB  ,0. 0 , X 1 ,XI t ( 14 ) , Z ( 14) , ZW ( 14 ) ) 

SMAS3090 

c 

ITFM  15  AFT  PROPELLANT 

SMAS3100 

WTI 15)  =WT( 13) 

SM AS3  1 10 

CALL  ZFLPSS(EnR,FDAJ,RB,0.0,X2,0,XI I ( 1 5 ) , Z ( 1 S ) , ZW ( 15) ) 

SM  AS3120 

c 

TRAPPED  PROPELLANT 

SMAS3130 
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TALL  YLI  L ( XCYL  ,TR^PF  fBR  ,Xl  ,XI  TPt  ZTP.ZWTP) 

WTT=0.0 
ZTT=O.C 
XIT0T=0.0 
XMOV  =0.0 
XITPF  = 0.0 
XMTF  = 0.0 
CP  310  1=1,12 
WTT  = WTT*WT( I ) 

7TT=7TT47W( J ) 

TFMTY=( ZTT+7WTP)/(WTT*TPAPF» 
on  311  1=  n,  15 
WTT  = WTT  4WT(  I ) 

311  ZTT  = 7TT4ZW(  I ) 

ZSU5=  ZTT/WTT 

rr  312  1=1,12 

X ITOT  = X ITPT4XI  I( n 
)(Mnv=  XMCV4  ( ZSUS-Z(  I ) »**2*WTn  I 
31?  XMnP=  XMnF4  ( ZEMTY-Z  ( I n**2*WT(l  I 

XIIMT  = X ITnT4XMnF*XI TP4(ZEMTY-ZTP) ♦♦2*TRAPP 

cn  313  1=13,15 

XITOT  = XITPT  4 XIK  I ) 

313  xf'nv=  xMnv+  ( zsus-z(  i » )**2*wt(  i ) 

XllSUS  = XITOT  ♦XMOV 
1C1  PLArwT=  nELB*XCYL4  BLADD 

EXINWT=  DFLEXI*XCYL  ♦ EXMINW 

VTANK=vni  I *XCYL  4VFMN 

GROFUL  = VTANK*F0AJ 

WINPT=  SUSWT  -GROFUL 

SFMp  = SHFIL*  XFMB 

TKWT  = r!FLTK*XCYL  ♦SWTFS 

TKl  T = XCYL  ♦ SMLT 

WTANK  = SK  TWT4F  I TMGS+TKWT4BLAnWT*WFMB 
VFXIM  = FXlNWT/RHOX 
V^FOX  =VREO 
GCWX=GCW 

WTFUFL=FUSABL^TRAPF 
KFMX=KFM 
M ATTK  X = MATTK 
ft  FPRMATC 

X10X,20HMOM  OF  INERTIA  FULL  ,F10.0  ,2X,19HC.G.  FULL  ,FQ 

X10X,20HNnN  PF  INFPTIA  EMTY  ,F10.0  ,2X,19HC.G.  EMPTY  ,F9 

IF  ( 11(15)  .EO.  C ) RETURN 

WRITE  (6, A) 

► FORMAT  ( ///25X26HPAMJFT  FUEL  SYSTEM  SUMMARY//) 

IF(  1 I(  11)  .GT.  0 ) 

lWRITF(6,ft)  XIISUS,  ZSUSfXIIMT.ZEMTV 
WR ITE(6, 300) IB 

3C0  FORMAT!  ICX, ICHMA TER lAL  ,3A^/) 

WP ITE( 6,5)  SUSWT, SUSLT,SUSMWT,SUSMLT, 03, TKLT,WFMBtXFMR,GGW, MFC, 
ISFMP,GCFW,W INRT, TKWT, RH0,STKFC,SK TWTtBLAOHT, fit NGS  ,EX INWT , VT ANK 
2FrAJ, FUSABL ,TRAPF,EXlN,TBLAO 
) FORMAT! 

X IPX,  20HSYSTEM  TOTAL  WEIGHT  ,F  10.  2 ,2  X , 1 9H  SYSTEM  TOTAL  LENGTH, F9. 
X 1PX,29HM1NIMUM  SUS  WEIGHT  ,F 10. 2 ,2X, L9H MI NI MUM  SUS  LENGTH  , F9 . 


5M  AS3lftO 
SMAS3150 
SMAS3160 
SMAS3170 
SMAS3  IPO 
SM  AS3190 
SMAS3200 
SMAS3210 
5MAS3220 
SMAS3230 
SMAS32ftO 
SMAS3250 
S«  AS3260 
SM  AS3270 
SMAS32B0 
5MA53290 
SMAS3300 
SMAS3310 
SMAS3320 
SM AS3330 
SMAS33A0 
SMAS3350 
SMAS3360 
SMAS3370 
SMAS338U 
SM AS3390 
SMAS3400 
SMAS3410 
SMAS3420 
SM  AS  34  30 
SM AS3440 
SM AS3450 
SM AS3460 
SMAS3470 
SMAS  3480 
S“AS3490 
SM AS3500 
S^ASBSIO 
SM AS352n 
SM AS3530 
.3/SMAS  3540 
.3  )S*‘AS3550 
SMAS35ftO 
SMAS3570 
S“ AS3580 
SM AS3590 
SMAS  3600 
SM  AS3ftlO 
SMAS3620 
SM AS3630 
, SMAS3640 
SM AS3650 
SM AS3660 
3/  SMAS3670 
2/  SMAS3ft80 
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llJlBIWiL 


: i 


X lOX, 20MriAMETEP 
XlOX,?OMFUEL  MGMT  PAY 
X lOX,  20hFXPUl  SmN  SYS 
XlCX,2nHFMH  SHFLL  WT 
XlOX,?OHCYS  TCTAL  INFPT  WT 

xiox,2nHrASF  mail  pfnsity 

X inx,  20HSKIRTS  ^N^^  STFMFPS 
X10V,2nF'FlTTINGS 
X1CX,20HFUFL  tank  VOLUMF 
X lOX, 2nHUSABL  E FUEL 
Xl0X,20HFXT  INSUL  THICKNESS 
rftupn 

15  If  ( IK  15)  .EQ.  C ) RETURN 
kPITC  16,36)  MATTK,  MATPH 
36  FORMAT!  • ERROR  IN  SUPPOUTINE  MATLS 
H FTUPN 

38  IF  ( 11(15)  .EO . 0 ) RETURN 

WRITF  (6,39)  HP 
3Q  FORMAT!  2X,<,?HERRnP 
RFTUPN 


,F10.2,2X,19HTANK  LENGTH  , F9  . 

WE IGHT.F 10.2 ,2X,19HFUEL  HGHT  PAY  LENTH,FQ. 
weight, F10.2,2X,19HFUEL  CONTROL  WEIGHT, F9. 
,fio.2,2x,i9hpressurant  weight 

,F10.2 ,2X,19HBARF  TANK  WEIGHT 
,F 10. A,2X,19HCASF  THICKNESS 
,F10.2,2X,19H8LA0DE«  WEIGHT 
,F10.2,2X,19HEXTERN  INS  WT,TANK 
,F10.2,2X,I9HFUFL  AOJUSTEO  HENS 
,F10.2,2X,I9HUNUSABLE  FUEL 
,Fl0.3,2X,igHBLA00ER  THICKNESS 


,512) 


TRYING  TO  OBTAIN  ATITUDE  DATA, ALT  = ,F8.l) 


F9. 

,Eo  . 
,F9. 
,E9. 
,E9. 
,F9. 
,F9. 
,F9. 


A8 


C ) 


RETURN 


A9 


60 


61 


25 


26 


37 


27 


20  19 


20  15 


TRYING  TO  CONVERGE  ON  N2  BOTTLE  SIZE  I 


0 ) 


RETURN 


IN  susmas  /n 


0 ) 


RETURN 


TANK  LENGTH  LESS  THAN  FMB  ♦ ELIPTICAL  FNDS  +1 


C ) 


0 ) 


RETURN 


RETURN 


IF  ( 11(15)  .EQ. 

WPITF  (6,99) 

FORMAT! 99H  ERROR 
GO  TO  37 
IF  ( IK  15)  .FO. 

WRITE  (6,61) 

FORMAT!  16H  ERROR 
GO  TP  37 

IF  ( IK  15)  .EO. 

WPITF  (6,26) 

FORMAT! 2X, 51HERRQR 
K'D  = 1 

IF  ( I K 15)  .FO 
WPITF  16,27)  TX 
FORMAT! eF15.6 ) 

P FTUPN 

1 F ( I I(  15  ) .FO 
WRITE  (6,2015)  AMACH,ALPHAV 
FORMAT!  /lOX, 39HFAILURE  TRYING 
IlOX,  7HAMACH  = ,F1C.5,  8H  ALFl 
WRITF  (6,595)  BOMB , I ARI ( MUM) 

595  FORMAT  (•  1ST  IND  VAR  I AB LF* • , E12 . 5, • 2ND  INO  VARlAeLE=  *,012. 5, 
lUPTABLF  =',F10.3,'  SUBTABLE  SIZE  **,F10.3/*  THE  VARIABLE  OUT  OF 

a a ai  n r*  n .■  ai  ai t«an 

•» 

RFTUPN 
END 


SLBTOUTIN:  XALPHA  ( NDE  SPT  I 
C PGM*NUK  .CM-CGSM  RKM/GSM  FIV-EBCO  7/11/73 

c 

C TEMPORARY  MOOS.  FOP  PROPULSION  CHECKOUT  ARE  DENOTED  BY- 
C 

COMMON  /FAILUR/  KFAIL 


TO  READ  INLET 
* ,F10.5  ) 


MAP 


2/  SMAS3690 
3/  SMAS3700 
2/  SMAS3710 
2//SMAS3720 
2/  SM AS  3730 
3/  SMA<;3790 
2/  SMAS3750 
2//SMAS3760 
5/  SMAS3770 
2//SMAS3780 
3)  SMAS3790 
SMAS3800 
SMAS3810 
S“ AS3B20 
SMAS3830 
SM  AS389n 
SM AS3R50 
SMAS  3860 
SMAS387n 
SMAS3880 
SM AS3890 
SM  AS3900 
SMAS3910 
SMAS3920 
SMAS3930 
SMAS3990 
SMAS3950 
SMAS3O60 
SM AS3970 
SM AS3980 
)SMAS3990 
SM AS9000 
SMAS9010 
SM AS9020 
SM  AS9030 
SM  AS/^090 
SM  AS9050 
SMAS9060 
SM AS9070 
SM AS90P0 
SM  AS9090 
SSMAS91 00 
PASMAS9110 
S“AS9120 
SMAS91 30 
SMAS91 90 


XAL  FOOlO 
X ALF0020 
X Al  FOO  30 
--XALFn090 
XALF0050 
X AL  F0060 
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r 

C 


r 

c 

c 


rP‘'Mn‘j  /SKlNF/  CnSKNF(lO),  xlbdy,  kmanv 

Commtn  /FXTFRM/  ftp  6(5  )t  AP15(15) 

rrwMpu  //iFRPRp/  rrnnES(iO),  claoes(io) 
rnMMO-g/BrAT/rCPBTl  ,OUMq(  91  ^COflOAT  (101 
roMMrN/cnncxx/  Il(i6l 
ECUlVftL  ENCF  ( I I(  16J,  IPPIX  » 

FPUIVAI  F'4CF  ( 11(13),  lEX  ) 

CnMM',M  /FXXR  J/  F X ( AE) 

EOUtVftl  F^TF  ( PX(  28),  XP  J ) 

Cr''Wf'M/(VLF8LK/  ftMftCH,  A,  ALT,  GAMRAD, 

I AtWT,  ALPHA,  CFNREO,  REG,  CLALFO 
Cr'MMf.N  /INDATA/  CO(ML,XX,yY 

/FJCAT/  XN77(7),  RTSTLI,  BCSTPR 
rnwHOM  /suspAT/  tx(4A) 

FCDIVAIENCE  ( TX(23),  SUSLT  » 

FCUFVALFMrF  ( 4R5(U,  PL  L T » 

NA^'El  IST/XAt  PHl/ACCNl,ACCTl,ACWT, 
lAMACHl,Cnn,  GDI,  CL,  CLl,  DGOTDA, 

2GTFST,  Q,  SRFF,  TCUFSS,  TTEST,  V, 

3f FNTGS 

DATA  CFC/57.2<;67fl/ 

STATEMFMT  FUNCTION  IS  SUBSTITUTED  FOR  FUNCTION 
CTLUI  AMACH,  ALFDEG,  NARGI=  CL ALFD*ALFOEG 


ACCN,  ACCT,  CnO,  0,  SRFF, 


AEROPT,  ALPHD,  ALFHDl,  ALTl, 
GAMOEG,  GOT,  GOT  I , GDTSTP, 
VDCT,  XL,  XLl,  DUD,  CFNPEO, 


SUBPROGRAM 


AHACHUAMACH 
ALTl  = AL  T 

XI  TOT  = BOSTLT  ♦ SUSLT  ♦ PLLT 

IF(  IFX.FO.l)  XLTnT  = SLISLT+PLLT+XR  J 

AP  16{  1)  = XL  TOT 

ACCN l=ArCN 

ACCTUACCT 


X ALF0070 
X ALFOOflO 
XALF0D90 
XALFO  100 
XALFOllO 
X ALF0120 
X ALF0130 
X AL  FOIAO 
XALF0160 
XALFO  160 
XALF0170 
X ALF0180 
X ALF0190 
XALF0200 
XALF0210 
X ALF0220 
YALP0230 
X AL  F0240 
X ALF0250 
X ALF0260 
X ALF0270 
XALF0280 
XALF0290 
XALFO 300 
X ALF0  310 
X ALP0320 
XALF0330 
XALFO  340 
XALF0350 
XALFO  360 
X AL  F0370 


rr (=0 . 

D INn  = 0. 

TTEST=0. 

CFNF  EO  = C. 

CFNTGS=C. 
r=32.  17405 
R = ALT  ♦ 20. 8995656 

CS=0*SP  FF 


X AL  F03flO 
X AL  F0390 
X AL  F0400 
X ALF0410 
XALF0420 
XALF0430 
X AL  F0440 
X AL  F0450 


V = AM  ACH*A 


X ALF0460 


GrTSTP=ACCN*G/V 

X ALF0470 

vcnr  = ACCT  * g 

XALF04P0 

AW  = ACWT  / G 

X ALF04Q0 

AIMV  = 1.  / ( AM  * V ) 

X ALF0500 

XAL  F0510 

X AL  F0520 

REMOVE  Kl  INF  AND  OKLINE 

X ALF0530 

Cro  = r.CODFSINDESPT) 

X AL  F0540 

cco=rnr-coBnAT(NnESPT  ikopbtl 

XALF0550 

CLAl  FC  = CLADES(NDESPT) 

X ALF0560 

NPM  = 1 

XALF0570 

CALL  inlift  ( NPM,  CLAINL,  CDBON  1 

XALF0580 

CLALFO  = CLALFO  ♦ CLAINL 

XALF0590 

CFFR  = CDSKNF(NOESPT)  * XLTOT  / XLBOY 

XALF0600 

cm  > rco  ♦ coiNL  ♦ cpbon  ♦ cofr  - cdsknfinofspt  ) 

X ALF06I0 
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r^PAP  = l./V*(  { V**2/P  l-G  )*CCS(nAMRADJ 

TPAR  = AM  * (V')nT  r,*SIN  (GAMRAD ) I + 05  ♦ COO 

GAMr:Fr,=GA«P  AC*r)FG 

TruESS=TPAP 

ALP  HA=0  . 


LOCP 

600  I 

IFF  A 

TES 

ON 

REOUIREO 

CFN 

rr 

60C 

1 = 1, 

10 

LTCP 

100  1 

TFF  A 

TES 

ON 

ANGLE 

OF 

ATTACK 

ro 

100 

J=l, 

10 

ri 

aOTLU 

( AMA 

FH, ALPHAODEG , 

r A) 

XL 

= Cl  *Q 

s 

r,rT  = Ai»' 

V*l  T 

GLF! 

55*1 

5 IN  (ALPHA 

)*XL)«^G 

GrTFSr  = APS(GCT-GDT«;TR  » 

GTFST=GCTFST*V/G 

TFST'  INPUT  NORMAL  ACTFL FRA TI ON  AGAINST  NORMAL  ACCELERATION 
fALCULATFO  FRO“  THF  GAMMA  DOT  OBTAINED  BY  ITERATING 
THF  ANGl  F OF  ATTACK 

IF  (GTFST  .LF.  l,F-«)  GO  TO  300 

KFWTCN-P APHSON  ITERATION  OF  ANGLE  OF  ATTACK  FOR  GAMMA  OCT 
PALPHA=0.001 
ALPMA1=ALPHA  ♦ DALPHA 
CL  UOTLUI  AMACH,  ALPHA  lADFGt^) 

XL  l=rL  1*0S 

rrTl=  AIMV*f  TGUESS^SINIALPHA1)*XL1)*-GPAR 
CGnTDA=(GOTl-GnT I/OALPHA 
ALPHA=ALPHA+(G0TSTR-GDT| /OGOTOA 
Al  PHn=ALPHA*DEG 
ALPHCl=ALPHA  l^OEG 
ICO  CONTINUE 

IF(  IPRIX.GT.OI  WR  ITE  (6tXALPHn 
IF!  IP^IX.GT.O)  WRITE  (6,2  CO) 

200  FORM  AT(  //•  SUBROUTINE  XALPHA  ITERATION  FOR  ANGLE  OF  ATTACK  FARE 
GO  TH  777 

3CO  CONTINUE 

INrUCFO  CRAG  COEFFICIENT  a CL  * TAN(ALPHA) 

AGO  Cri=CL*TAN(ALPHA) 

EOO  CINn=CDI*OS 

T*( l./COS( ALPHA) )*(TPAR»DIND) 

CFNRFa=T/OS 
CFNTGS=TGUFSS/OS 
TTESTaAPSI CFNREO-CFNTGS) 

TESTS  FOR  CONVERGENCF  OF  CFN  REQUIRED 
IF  (TTEST.LE.  l.F-5)  GO  TO  800 
TGUESS=T 
6C0  CONTINUE 

IF!  IPR IX.GT.O)  MRI TEle.XALPHl) 

IF(  IPRIX.GT.OI  MRITF(  6,200I 

7C0  FORHATI //•  SUBROUTINE  XALPHA  ITERATION  FOR  CFN  REQUIRED  FARED') 
777  KFAR  » 13 
RETURN 


X ALF0620 
XALF0630 
XALFO6A0 
XALF0650 
X AL  F0660 
X ALF0670 
X ALF06B0 
XALF06°0 
XALF0700 
XALF07  10 
XALF0720 
X ALF073n 
X AL  F07<,0 
X ALF07S0 
XALF0760 
XALF0770 
XALF07fi0 
X AL  F07fJ0 
X ALFOBOO 
xalforio 

X Al  F0820 
XALF0830 
XAL  F0R40 
XALF0880 
X ALF0860 
X ALFnR70 
X ALFOBPO 
XALFOBQO 
XALF0900 
XALF09  n 
X ALF0920 
X Al  F0930 
X AL  C09A0 
X AL  F09  50 
• )XALF0960 
XALF0970 
XAL  F09P0 
X AL  F09on 
X AL  FI  non 
X ALFinio 
XALF1020 
XAL FI  030 
XAL  FIO^,0 
X AL  FlO'in 
X ALFI06n 
X AL  Fl07n 
XALF1080 
XALF1090 
XALFl 100 
XALFl  I 10 
XALFl 120 
XALFl 130 
XALFllAO 
XALFl 150 
XALF1160 


HA  20A 


n n 


CPNT !NUf 
IF  ( IPP  IX 
R FTIJRN 
F^C 


» WPI TE(6, XALPHl ) 


SUPPOUTI^F  ADW(  KFfl  IL  ,K  STF  P) 
rnMPiiTF  AFPn  TARLFS 

TARl  F 1 FOR  P.nnSTFR  ON  INLETS  FAIRFO 
TAPLF  2 FOR  RAMJET  HN  ♦ INLETS  OPEN 

rrMMPN  /PFPF/PF7I 7» fNLPHA 7,P502( 502) .NAFRO 120) , I PT Y FF ( 20 ) t P ( 120 ) 
KFAIl  = 0 
rpNT  INIIE 
FONT INUE 

CALI  AERMriP(  KFA  II  , KSTFP) 

PFTUPN 

FMO 


SL'BPnUTINE  AERMOO  ( KFAIL,  KSTFP  ) 
PGM=NUK .fMCGSM  GGJ/RKM  FIV/EBCD 

rrupi  E ppFCisinN  rvv,  cvvt,  cvvw 

OrUPLF  PPFGISION  0,  01,  02,  Al,  A2,  2ZT 
r^M^'^^l/aERO/ 


9/10/73 


1 

ATNSAT 

, ATNSAW 

,RTANA 

,BART 

,BARW 

,PAPT 

2 

R ARW 

,BAPPT 

,BAPPW 

.BETA 

,BFN 

,cft 

3 

CFW 

,cnR 

,CFB 

.CNANAC 

.clabt 

,CLAT 

A 

Cl  AW 

,CL  TV 

,C  KWB 

,CK8W 

,CKBT 

,CKTB 

5 

:L  A TWV 

,3 

,00 

,002 

,OPR 

, DHL 

(■ 

FAFF' 

,F 

,FL 

|FR 

iPI 

.RLD 

7 

PL  OP 

,RnTAMA 

, SI  ETR 

,SLEWP 

.STSREF 

.swspff 

P 

SKRT 

,SKTR 

,SKBW 

,SKWB 

,TRTP1 

,TRWP1 

9 

CF  I 

, TANST 

,TANSW 

, TANSAT 

.TANSAW 

,T ANS2T 

A 

TANS2W 

, XOIR 

,xr>lBT 

, XOl  T 

,xniw 

.xnlcmr 

e 

XNL  CCP 

, ACT 

,Arw 

.XNLCLR 

,BOOYL 

,TA  ILL 

c 

WINGL 

,RL1S0R 

,niSOR 

,FR1 

,FCAP 

,CDPNX 

0 

AC  AP 

, TNI 

, SPN 

,VPN 

,FAFN1 

, PMN 

E 

AN0SF2 

,SWSRF' 

,RN0SF2 

,XLINF 

,CR2 

,NCON( 3) 

F 

CP  fm  ax 

,CR AMax 

,R2 

♦ CNVR 

,B1 

,BZ 

G 

SV2 

,SLF  1 

,SLFZ 

, XVA 

,XVB 

,xvr 

H 

rT2 

,CX 

, VCLN 

,VOLBT 

, VOL  BOO 

.SWPRFF 

1 

PP  AT 

,RnG 

XALFl 170 
X ALP1130 
X ALFl 190 
X ALF1200 


ADM  0010 
ADM  n020 
ADM  0030 
ADM  OOAO 
AOM  0050 
AOM  0060 
ACM  0070 
ADM  OORO 
ADM  OOOO 
ADM  0100 
AOM  0110 


CrMMfIN/ AFR//  CDOfl,CDOW,rnoT,CDOnN,COOOFF,CnRON,CnROFF,CCOI  ,r 
IFPBT ,FPP,NAFRnx( 30) 
common  /ARINDX/  JJRUN,KKReN,ARIN(8) 
common  /FIX/  CVV ,PM,ALPHAn,ALT 
common  /FIXUP/  nA,nni2,F IX8( 0) 

COMMON  /SAVTIM/  CSUM6(6) 

COMMON  /SUMLIF/  OSUMA2(420) 

CTmmON  /SUMOUT/  CSUm56(560) 

COMMON  /TWU/  CPnEr.,ALPTRM,CLATRM,DELTRM 

COMMON  /TWX/  RHLTW,VCHAV,VCHnV,CHVl ,0YNP,ALINW,CN1  M.,WMISX 
OOMmon  /TWY/  chaw, chow, CN0W,CN0T, CHAT, CHDT, CLP, CLRD,CM0,CMAB, 


AoPMOOlO 
AERM0020 
AFOM0030 
AFRMOOAO 
AFRM0n50 
AFPM0060 
AFRM0070 
AFRM0080 
AFPM  OOOO 
A«9  MOlOO 
AFRMO  I 10 
AFRMO  120 
AFRMOl 30 
AFPMOIAO 
AFBMOl 50 
AFRMOlftO 

aoomoitO 

AFRMOiqo 
AFRMO  If'O 
AFPM0200 
ArRM02 10 
AF  RMn220 
AF  PM023n 
IP, AF  OM02A0 
AFomo  750 
AEPM0260 
AFRM0270 
AEPM02R0 
AF  PM  02«0 
AFPM  0300 
AFRM0310 
AFRM0320 
AFPM0330 
AFPM0340 
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r 


I  cyAT,CMAw,cMAr>nT,r  MnnoT 

CrMMHN  /WIV/  SWlNr.  ,rNA,SWX,STS,SLFW,SLET,D6,SFWFT,SETFT 
CrMMPN  /AFTAR/  A R V T, TR VT , R VT ,RC VT ♦ TC VT , TANS VT 
1 , STEVT,  GGMrS(7» 

roMHPN  /BASVAR/  LWnPT,  7XZ19(19I 

CrMMpM/PLKQ7  (31(201,  0(96),  02(96),  FRCTNl(42), 

1 ,FPrTM3(42) 

r.TMVrN  /PYAIP/  ZR  7F,  XZML  1(20)  ,XZML2  (20)  , SMUK(60)  , 

1 COFFL (20),CnFF0(20) fCLUK(60) , 

2 XZ“ni (20) ,XZMD2(20) ,0MUK(60) , 

3 r.f)FFP(2  0,5),CnEFDF(2  0,5)  , COOK  (20,5 ,3  ) 
rpMMfiM  /rnOFXX/  KINO,  IIKINdS) 

CPmmpm/ppg/ 


AFRH0350 
AFRM036O 
AERMO 370 
AFRM0380 
AERM03«0 
FRr,TN2  (90)AFRM0A00 
AFOM0410 
AFPM0A20 
AFP'<0430 
AF9R09AO 
AFPM0A50 
AFPYn460 
AER'‘n<,70 


1 D1  ,THF7AC 

,F  INF 

fRS 

»R1 

,RL1  , 

AFRM0A80 

2 XfYl  ,XTHFPT 

,XRT 

,RL3 

,I  TN 

,AMACW  , 

AEPM0A90 

3 AMAfT  ,THKRT 

,THKRW 

tRLlA 

,IBTL 

,ATCT  , 

AFRMOSnO 

A ATCW  ,nML 

, I TSFCT 

, INSECT 

,RXINT 

, R X I NW  , 

AFRM05  10  ' 

5 RTANST  ,BTANSW 

,RCW 

,fltsew 

,XLENW 

,fltsft  , 

AERMOSZO 

6 XLFM  ,ORATin 

,nN 

.OE 

tn3 

tRCT  , 

AFPM0530  ; 

7 N W , TC  W 

,TCT 

»BT 

,RW 

, art  , 

AFRMnSAO 

e ARW  ,TRT 

,TRW 

,SREF 

,DB 

AFRM0550 

CrMMON  /EXTERN/  ZARZ 

(20) 

AFRM0560 

COMMON  /FflRNOW/  NPM, 

NALT,  RMV 

, ALTV,  FRBIX,  FACTOR 

AFRM0570 

commcn/lft/ 

AERM05R0 

1 ATNS2T  ,ATNS2W 

,SEW 

fSET 

,dmw 

,omt  , 

AERM05Q0  1 

2 RLA  ,RL5 

,ALPHAR 

,RI TWV 

,IART 

,ICNTRL  , 

AERM0600 

3 02  ,PL2 

AERM0610  , 

common  /naerc/  tnozl 

,STE,STFT, 

TRAT,SWF , 

TRAW,OCASE, 

OFCD, ARL6, 

AEPM0620 

1 AL5X,XMSX,  stew. 

XSTA  ,FSOVCW,FSOVCT  , 

WMI SS,SMRL 

,SMRH,  WWING, 

AFRM0630 

2 I7UMP,IPLUML,NCGUML,  thngl,  tnzzl,tlthfci 

AFPM06AO 

COMMON  /PPINTR/  IKP3(3),  lAIR, 

JKP3(3) 

AFPM0650  !] 

COMMon/ROLL/  rnw,rnt 

, IARW,BWH, 

BTH 

AFR“n660  ■' 

COMMON  /5URFX/  StJR  17(17),  SVT, 

SUR7(7) 

AFPM0670  1 

COMMON  /TOVPER/  CUM555(5),  SEXI TZ,0UM666(66) 

AFRM0680 

common  /UPINLT/  PPAMBL(128),  xcpi  , xcxcgo 

AFPM0690  ‘ 

common/vfrt/  svtsrf. 

BARVT, 

TANOVT, 

TAN2VT, 

TANAVT, 

AFRMOTOn 

1 ACVT,  ATN2VT, 

ATCVT, 

AMACVT, 

TMACVT  , 

BTANVT, 

AFPMOTIO 

2 BOCVT,  TRTPVl, 

BAPPVT, 

BAPVT, 

FLVTST  , 

XLENVT, 

AERM0720 

3 CFVT,  TRAVT,  RXINVT,  F SOVVT 

AF9M0730 

COMMON/WLOC/  XDll 

AFRM07A0  ! 

COMMON  /XINERT/  ZZX26(A5),  PANWW,  XXZ71 

(71)  , PANWT,  XXZlAdA) 

AEPM0750  J 

common  /XXXXX/  clalpb,  srefb 

AFRM0760  ; 

C''MMrN/XYZ/Cf'A,XCl  ,CNO 
OIMFNSinN  CnEFM(20),  C0EFX(20) 

DIMENSION  RNV(20),  ALTV(IO),  ALPHAV(IO),  NAEROOO) 

ECUIVAL  ENCE(  XMn,RM  ) , ( R L 6,  XLOFGE  ) ,(HT0T,BINW)  ,(RNI  ,RNLOEG), 
1(  AV,XLD;iV)t  (HRL0,HBL0IV)  ,(SOIV,ABLOIV( 
equivalence  (RL3,XLM) 

EOUIVAL  ENrE(DMN,XMF  ),  (AV.XLDIV) 


AFRM0770 

AFRM0780 

AFPM0790 

AFPMOROO 

AFPR0810 

AFRM0R20 

AFBM0fl30 


1 

FORMAT) //I3, 

2X, 

A6,  6(2H,  ,A6,  2H 

«,  E10.3)) 

AFRM08A0 

18  AO 

FORM  AT(  IH  , 

15X, 

106H  THIS  AN 

A L Y S I S 

I S 

L 1 

M I 

T PAFRM0850 

1C  TO  T 

H E 

F 0 L L 0 M I N 

G CONDI 

T I 0 

N S 

-/ 

) AFRM0860 

18A1 

FORMAT! 39X, 

4 7H1 

, MACH.  NUMBERS  0 

TO  0.9,  1.0, 

AND  1. 

2 TO 

10. 

) AFPMOaTO 

18A2 

FORMAT! 39X, 

55H2 

. ANGLES  OF  ATTACK 

LESS  THAN  OR 

EQUAL 

TO 

30.0 

DEGAERM08B0 

IRFFS  ) 

AERM089n 

HA  206 


IflAJ  FORMAT!  39X,  6 IM  3.  SUPFACF  LEADING  EDGE  SHEEPS  BETWEEN  0.0  AMO  62AF«'10O00 
I .5  DFGPt : S ) A R MOOlO 

lflA4  FrPMAT<29X,  54HA.  SUPFACF  THICKNESS  RATIOS  LFSS  THAN  OR  FCUAL  TP  AFPM0020 


10.  I ) 

FPRWATI39X,  38H5.  ALTITUDE  LIMITED  TO  0 TC  100  K FT./) 
lEAS  PPOMATI  lOX,  42Hr  PNFIGU-ATION  OPTIC  MS, 

1 IPX,  nK'PTIPM  CHOSEN/ 

2 16X,  23HTVPF  OF  NC  SE  (ITN),  25X,  6H  1 TN  = , 11/ 

3 19X,  22HI  = THPEF-FOPTHS  POWFR/iqx,  13H2  = L-O  HAACK/ 

A 19X,  EH3  = Cr)HE/i9x,  13H^  = L-V  HAACK./ 

5 19X,  17H5  = TANGENT  OGIVE  / 19X,  13Hfc  = SPHERICAL, 

6 / 19X,  lf,H7  = RLUNTFO  CONE,  / 19X,  17H8  = BLUNTFD  OCIVF) 

FPR^' ATI  16X,  2^HLL.C  CONDITION  (ILUG),  23X,  7HILUG  = , 11/ 

I  19X,  lEHO  = LUGS  PFTP  ACTE0/19X,  1 7H 1 = LUGS  STANDING  ) 

18A7  FORMAT!  16X,  29HTYPF  OF  BOAT-TAIL  (IBTL),  18X,  7H1BTL  = , I 
1 19X,  13H1  = PAR APPL IC /19X,  8H2  = CONE/igX,  8H3  = ACNE  ) 


AFRM09  30 

afpmooao 

, AFRM09S0 
AFRM0960 
AFRM0970 
ArRM0980 
AFOMOOOO 
AFRMIOOO 
AFRMnio 
AF  RM 1 020 
AERM  1030 
11/  AFR91040 
AFRMIOSO 


18A8  FORMAT!  16X,  32HWIMG  OP  CANAPD  CONDITION 


INHI,  17X,  SHNW  = , T1/ACRM1060 


1 19X,  21H0  = NO  WING  OP  CANAR0/19X,  18H1  = WING  OR  CANARO)  AFPM1070 

FORMAT!  16X,  30HC0NTROI  CONDITION  (ICNTPL),  15X,  9HICNTRL  = , AFR91080 

1 11/  IFX,  16H1  = TAIL  CPNTRnL/19X,  16H2  = WING  CONTROL/  AFRMionO 

2 IFX,  IFH3  = CANAPD  CONTROL)  AFRMllOO 

1851  FORMAT!  16X,  AA,  IPH  ARRANGEMENT  (,  A4,  IH),  20X,  A<, , 3H  = , AFRMIUO 

1 11  /19X,  25H2  = PLANAR  OR  ♦ C RUC I FORM/ 19X , 1 2H3  = TPI -FORM/ 19X , AERM1120 

2 15HA  = y CRUCIFORM  ) AFRM1130 

IP52  FORMAT!  IH  , 9X,1C5HC  ONFIG  URATION  OIMENSICN  AFRM1140 


lengths  in  inches,  all  angles  in  degrees )/// lOX,  AFRMllSO 


2 SHB  n c Y -//20X,  87HCYLIN0eR 
3L  FORWARD  BASF 

A diameter  diameter 


INLET  FORWARD  BOAT -T A I AF Rm 1 1 60 

N0ZZLF/20X,88HCI AMETFP  AFRmiito 

diamftfr  OAFPMiiao 


5IAMETFP// 19X,  AHDl  =,  F6.2,10X,  AHn6  =,  F6.2,  lOX  AHD2  =,  F6 . 2 , AFR M I 190 

610X,  AHr3  =,  F6.2,  ICX.AHDN  =,  F6.2//)  AFRM1200 

1853  FORMAT! 57X,  lAHTAIL  MOUNTI NG /59X , 0HD1 AMFTE R//59X  , SHOMT  =,  AFRM1210 

1 F6.7//)  AFRM1220 

IP*/,  FORMAT!  37X,  lAHTAIL  MOUNTING,  26X,  lAHHING  MOUNTING/  ArRMl2?0 

1 AOX,  RHDIAMETER,  32X,  RHDI AME TE R / /3 9 X , SHDMT  =,  F6.2,  29X,  AFRM12A0 

2 SHFmw  =,  F6.2//)  AFRM1280 

1855  FORMAT!  IPX,  TAHNOSE  LENGTH  INLET  FORWARD  BOAT-TAIL  FnRAFRM12T>0 

IWADD  OVERALL  LFNGTH/20X,  GTHSTATION  STATION  ^frmi270 

2 station  STATI0N//18X,  5HRL1  =,  F7.2,  8X,  5HRL6  A‘'RM12B0 

3=,  F7.2,  8X,  5HRL2  =,  F7.2,  8X , 5HRL3  =,  F7.2//)  AFRmijoo 

lP5fe  FORMAT!  55X,  19HTAIL  LFAClNG  EDGE/60X,  7HSTATI CN//58X,  8HRLA  =,  ACPMIxqo 
1 F7.2///)  /FPMi-,10 

1357  FORMAT!  35X,  19HT  AIL  LEADING  EDGE,  lAX,  31HWING  CR  CANARC  ! E A C f A F'' m i j 20 
♦NC  rnr-F/  af3mi33o 

1 AOX,  7HSTATI0N,  33X,  7H  S lATI  CN/ /38  X,  5HRLA  =,  F7.2,  28x,  8HPL5  =AFp^l-i/,0 

2,  FT. 2///)  AFRmixso 

18  58  FORMAT!  lOX,  A8//21  X,AHRCOT  , 16X,  3HTIP,  lAX,  10  HFOU  IV  AL  FNAE  rm  1 360 

IT,  inx,  qhnI.'MBFP  of,  9X,  12HLEA0ING  FDGE/POX,  5HCHCRC,  15X,  ACRMUTO 

2 5HrHnRD,  UX,  AHSPAN,  15X,  6HPANFLS,  lAX,  5HSWFFP//  ACRMIXPO 

3 18X,  2HPC,  Al,  2H  »,  F6.2,  9X,  2HTC,  Al,  2H  =,  F6.2,  PX,  IMB,  ArRMlJ90 

A Al,  2H  =,  F6.2,10X,  ?HRN,  Al , 2H  =,  F6.2,  7X,  3HSLE,  Al,  2H  =,  AERMIAOO 

5 F6.2//38X,  9HTHICKNFSS,  29X,  13HP01NT  OF  MAX. /AOX,  SHRATIC,  33X , AF rm i q 

b 9HTHirKMFSS//36X,  AHTHKR,  Al,  2H  =,  F6.3,  27X,  AHRXIN,  Al,  2H  =,AFRmia20 

7 E6.3//)  AFPM1A30 


1859  FORMAT! 19X,  3SH5  = HORIZONTAL  AND  VERTICAL  STABILIZERS  ) 


AFRM  LaAO 


HA  207 


AAHG 

M(. 


l«?tO  FPRMATC  <i2H  lINFAP  COEFFICIENTS  -//// 

1 iiiAH  MAfM.  angle  of  ;ero  lift  drag  zerc  lift  r>, 

2 aahrag  total  lift  control  linear  , 

3 AAHCENTFR  / 

U AAH  NO.  ATTACK  POWER  OFF  PCWER  ON, 

5 CURVF  SLOPF  EFF FCT I VF AF S S OF  PRF, 

6 ^AHSSUPE  /// 

7 FS.l,  F8.2,  3*,  A6,  2H  =,  F6.3,  2X,  A6,  2H  =,  F6.3,  2X , A6, 

R 2H  =,  F6.?,  2X,  A6,  2H  =,  F6.3,  2X,  A6 , 2H  =,  F5.2//////// 

S <*3H  TOTAL  COEFFICIENTS  -/ Z / / 

A AAH  MACH.  ANGLE  OF  TOTAL  DRAG  TOTAL  ORA, 

P AAHG  TOTAL  CONTROL  T R I *< , 

r A't.HMFn  CONTROL  TOTAL  CENTFR  / 

r N(..  ATTACK  POWER  OFF  FCWFR  ON, 

F AAH  LIFT  LIFT  LIF, 

F AAHT  DEFLECTION  OF  PRFSSURE  //» 

l?Fl  F00“AT(F5.l,  FB.2,  AX,  7HCDOFF  =,  F6.3,  AX,  6HCDnN  F6.3,  NX, 

1 AHCL  =,  F5.2,  AX,  3HDCL,  Al,  2H  =,  F5.2,  3X,  8HCLTRIM  =,  FN.2, 

2 6X,  IMC,  Al,  2H  =,  F5.1,  AX,  8HTOTXD1  *,  F6.2/) 

1375  FORMAT!  IH  ,18HA  L T I T U D E * ,F7.0,3HKFT) 

187N  Ff'RMAT!  1 6H  MACH.  NUMBER  = , FA.2,  5X , 8HALPHA  = , F5.2, 

1 5H  DEC.,  5X,  IIHALTITUDE  = , FA. I , 6H  K FT.,  lOX, 

2 38HL  IMFAR  AERODYNAMICS) 

2050  FORMAT! 13H  MACH  = , F5.2,  2X,  7HSREF  = , F7.2,  2X,  5HDI  = , 

1 F5.2,  2X,  9HXCG/DI  = , F5.2,2X,5HWT  « ,F5. 0, 1 X ,2H0= , F7.0  ,2X, 

2 5HHL  = ,F5.1,2X, FHSTAIL  * ,F 5 .0 , 2 X , 8HS WI NG  * ,F5.0/ 

3 20X,qMALFMAX  = , F 7. 2, 2X , EHCNMAX  = ,F7.2 

A /A5H  LINEAR  COEFFIC 

51  F M T S //AAH  ALPHA  COO  OFF  COO  ON  CN  ALPHA  CN  n, 

F 79HFLTA  XCP /D  1 C MA  BODY  C MA  TAIL  CMA  WING  Cma  TOTAL 

7r,MQ  CMOT  CMDW/ 

8 2X,  F5.2,  2F<?.3,  F10.3,  2F  1 1 . 3 , F 8.  3 ,F  1 1 .3  ,F  1 2.  3,  F 1 1 . 3 ,5  X , F7. 0 , 

9 2F7.3/  10X,6HCMAOOT,2X,6HCMDOOT,3X,3HC1P,2X,7HC  IDELTA, 

A AX,NHr>/ALF,2X,CHCH/DEL  , 3X , SHOE LTA ,6 X ,3HC MO/ 

P 10X,F6.0,2X,F6.0,  IX ,F 6. 2 , 2X , F6. 3 ,3 X,F6. 3 ,2 X ,F6 . 3 , 

C AX,F6.3,5X,r6.3/» 

2Pf2  FORMAT!  F8.2, F 10.3,F  13.3, 2F 11.3, F 10.3, F 11.3, 2F12.3 ,F9.3 ,F13.3,F I I. 
1) 

23*3  FORMAT!  16X, lAHSK  IN  COND 1 T ION/ 16X ,22H AF RODYNAMl C ALL Y SMOOTH! 


187N  Ff'RMAT! 


CN  n. 


C ♦♦♦♦♦NAMFL  1ST  INPUT  DEFINITIONS 

r 

NAMFL  IST/GEOMET/  Dl,  02,  03,  06,  ON, 

1 RLl,  RL2,  RL3,  RLA,  RL5,  RL6, 

2 ITN,  IBTL  , ILUG,  NW,  J,  ICNTRL,  ESRK 

3,  ICDON,  ICnOF,  ICLTF,  ICLTN,  ICONP,OMAX,OOEL,IPLnT,  WT  , X I NW  , INT  YPE 
A,PNOSE,  RLIA,  ICONOU,  BLCl,  BLC2,  BLC3 , PHIG,  HCD,  WCD,  NCD 
NAMFL  IST/TAIL/  OMT,  PCT,  TCT,  8T,  THKRT,  RXINT,  RNT,  SLET,  lART, 
1 RHLT,  ITSECT,FSnVCT,STETI 

NAMFL  IST/WING/  OMW,  RCW,  TCW,  BW , THKRW,  RXINW,  RNW,  SLEW,  lARW, 
1 RHLW, IWSFCT,FSOVCW,STFWl , lEPW.THKREP ,SLEE ,HE 
NAMFL  IST/MALPHA/NRM,RMV,  NAL PHA, ALPHAV , NALT  ,A LTV , R ICGV 
NAMEL  IST/INTWn/  RL 6A  ,P 7 ,R L7A , RL7B, RL9, RL 10 , BI NW ,DMN ,HBLD,X L I NF 


AFRMl/^50 
AFPMl A60 
AERM1<,70 
AFRM14P0 
AFPM 1390 
AFRMlSnO 
AFRM  15  n 
AFPMl 520 
AFRMI 530 
AFPMl 550 
AFRM 1550 
AFRMI 560 
AFRMI 570 
AFPM 15P0 
AFRM1590 

AFRM 1500 

AERM1610 
AFRM 1620 
AERM1630 
AFRM 1650 
AERM1650 
AFRM1660 
AERMl 670 
AFRM1680 
AERM1690 
AFRMI 700 
AFRM17  10 
AFRM1720 
AFRM1730 
AFRM  IT^^O 
AFPMl 750 
AFRM1760 
AFRM1770 
AERM 1 780 
AFPMl 700 
AFRMI 300 
3AERMIPIC 
AFRMI 320 
AFRM1830 
AFRM1350 
AFRM1R50 
AFPM1360 
AERM 1370 
A PP  M 1 3 fl  0 
AF  PM  I 800 

AFRMI  <?00 

AFRM 1910 
AFRMI 9?0 
AFRM1930 
AFRM1950 
AFRM1950 
AFRM I960 
AERM1970 
AFPM1980 
AFRM 1990 


HA  208 


i 


1 

s: 


fi 


N AM  n IST/ INCH/  ^b,  A7,  A8t  A<;,  AL4,  AL5.  RL6f  RL7  , RL8t  P.L9f 

1 IRTIC,  DR,  01,  DH,  HLD,  OMN , XHLV,  XMS*  AMFR 

2 , Pt,  P7,  PE,  P<;,Pl.V  , DFPT 

NAMFI  IST/POn/  FNPnO.CSTPLT,  TCSTRT,AEA8,BSrpUT,XCL,CLSTA, 

1 PpnoAD.XL IPtPnDCf 0,POCTHF,PnLGTH,RLEPOD,THFTAB,THETAC 
A AMFL  IST/  IA.'PUT/ 

IMSFPO,  BTH.RXINT,  STF,  STFT,  TRT,  TRAT,  BWH,  RXINW,  SWE,  stet, 
ITPW,  TRAW,  CCASF,  DFDO , OF,  THNGL,  TNOZL,  ARL6,  AL5X,  XMSX,  BRAT, 
2FINE,  TLTHFr,  STFW,  RLA,  RL5,  FACTOR,  RNT,  RXINT,  RKW,  NRM,  NALT, 
?AI  TV,  PANWT,  PANWV.,  P M V , XS  T A , FR  B T ,F  SOVCW  , F SCVCT  , XCGO I , WM  1 S S 

I , SMPL , SMRH, WWING 

NAMFI  IST/KINtnC/  PMLn,XDll,XOl,WWlNG,WMISS,OCGDX,SPLr,SMRl, 

1 CFL  XW,P  LS, XLFW, XnZ, XCGO 1 ,SMHI  , SMRH , OC PD X , PMH I ,RM 
NAMFI  IST/FOPCFS/Al  PHAP  ,CL,DYNP,OI  ,OZEPn,OTnT,VLIFT  .ALO,  AMI  F 
C 

RATA  PTPO/  C.Cl 7AS3292S2  / 

PPLY  tX,C0,Cl,C2,C'i)  = X * IX*(C3*X  ♦ C2)  ♦ Cll  CO 
'O  CPNTINUF 

r<«<*****SFT  CHNF IGUP ATION  COPF  VALUFS****** 

MAFPnxi  15 1 = lA  IR 
Cn  97<,P  lA  = I,  20 
NAFPriI  I A ) = NAFROXI  I A > 

97AB  CONTINUE 

J = NAFPni  15  ) 

IF  I NPM  .GT.  19  ) NPM  = 19 

STFVTR  = STEVT  / 57.296 
Rl  5SAV  = PI  5 

PL5  = RL5  * .01  * TLTHFP 
MFM  = 10 

HM15S=ZAPZ( 5) 

K INDP  = MOni  K INDfNTEN) 

C FIX  xcrni 
XCGOl  = 5. 

TN'/ZL  = TNOZL 
PI  = 2.1915C3 

PF  = SORT  ( 576.  * SEXITZ  / PI  I 

CFOC  = PF 

ITN  = NAFPPI  1 ) 

IPTL  = NAFPPIZ) 

IlUG  = NAFROI 31 
NW  = NAFPOIA) 

IFNT  PL  = N AFROI 5 1 
lART  = NAERPiei 
lAPW  = MAFRO ( 7) 

ITSEf  T=NAFRn(  10  1 
IWSFrT=NAEROI  111 
IPIOT  = NAEPOI  161 
NCGV AR  3 NAFROI 30) 

C*««***  FAIL-SAFE  CHECKS 

r 

IFINAEPOI  10).E0.2.AND.FSOVCW.EQ.0.l  FSOVCW  = .7 
tPINAEPOI  11).EC.3.4NP.FS0VCT.F0.0.I  FSOVCT  = .7 
I F(  NAFROI  11  1 .LT  .3)  FSOVr.T*0.0 
IFINAFROI 10) .LT.3)  FSOVCW^O.O 
IF( NAEPOI 10) .EO.C)  NAERO(IO)  » I 


AFRMZOOO 
AFRM2010 
4FRM20?0 
AFRM20  30 
AFRM20<,0 
AFPM2050 
Af  RM2060 
APRM2070 
ACRM2080 
AFRM2090 
AFPM2 100 
AFRM?  110 
AFPM2120 
ARPM2  1 30 
AFRM2 I AO 
AFRM2 1 90 
AFP«2160 
AERM2 170 
.'‘FPMZiaO 
AFDM2190 
AFRM22C0 
AFRM22 10 
AFPM2220 
AFRM?  230 
AFRM22A0 
AFRM2750 
AFRM2260 
AF  PM2770 
AFRM2280 
AFRM22PO 
AFRM2300 
AFPM2310 
AFRM2320 
AT  PM  2 330 
4r PM23A0 
4PPM2350 
AERM2360 
AFPM2370 
AFRM23'n 
AF  RM2  jOO 
AFPM2A00 
AFPM2A  10 
4PPM2A20 
A FPM2A30 
^FRM2 AAO 
AF  PM2A50 
AFRM2A60 
AFRM2A70 
AFRM2AB0 
AFRM2ACI0 
AFPH2500 
AFRM25 1 0 
AFRM2520 
AFRM2530 
AERM2bA0 


HA  2 09 


IFCNAEPf-c  11  ) .EO.C)  NAEROJll)  = 1 
RMW  = 2. 

I F(  I ARW  .FO  .A  ) RNW=A.O 
P 1 = 3.  uis*; 

CPK  = 57.29578 

r ♦♦♦♦♦♦♦♦♦pcnv  GECME TRY********** 

01  = OCASF 
BLN  = FINF 
RLl  = PLN*Ol 
RL2  = TLTHFO 
R|  3 = TLTHED 
C2  = CFA^E 
03  = OfASE 
CLF  = nCASE 
CTF  = PCASE 

TFNf-L  = Tl  THFH  -i.  -.5  * RC  T 
Bl  ^ = TLTHEO  -1.  - RCT 
XSTA  = TLTMFO  -1.  - RCVT 
RHLT  = THNGl 
R 1 = 0. 5*01 
R 1S0  = R l*R  I 
R5;=R  l*PRAT 

Tl-FTAr.  = ATAN(  I./CFINE  ♦ FINE)) 

CrNANG=THFTAC*DPR 

TN=CnNANG 

SREF  = 7AR7( 12)  * 144. 

ANUM  = A. 

1F(  I ART  .E0.2  ) ANUM  = 3. 

XWTV  = PANWT/ANUM 
PNU"  =4. 

IF(  I ARW.EQ.3)  BNUM  = 3. 
tF(NW.F0.?)  8NIJM  = 2. 

XWTW  = PANWW/BNUW 
TFKR  T = TRAT 
TFKRW  = TRAW 
TPKRVT  = TRAVT 
C“T  = CCASE 
CMNX=0.C 
CRN=nMMX 

IF(NACrC(5)  .NE.  3 ) DMW^OCASE 
r6  = OCASE 

IFlNAFRni  12).E0.3)  OMN  = OMNX 
XMF  = XMSX 
R16  ^ AL5X 
RL7A  = ARL6 

tF(lTN.LT.A)  XLN«FINE*Dl 

IF  { J .FO.  1 ) HPITE(6»INPUT) 

IF(  IPTL  .EO.O)  go  to  20E 

C BOATTAIL  GEOMETRY 

XBT=FRBT*01 

CB*0 EOn*F ACTOR* ( nCASE-OE 00) 

I F( XBT.GT  .TNOZL*  1. ) XBT  = TNOZL*l. 
IF(  CB.LT.nCASF)  GO  TO  205 
CP=CCASE 
GO  Tn  2C7 


! HA  210 

I 


AERM2550 
AFRW2560 
APRM2570 
AFRM25flO 
AFRM2590 
AFRM26nO 
AERM2610 
flFRM2620 
AFRM2630 
AFR»^2640 
AFRM2650 
AFRM26fiO 
AFRM2570 
AERM2680 
AFRM2690 
AFRM2700 
AER“2710 
AFBM2720 
AFOM2730 
AFRM2740 
AERM2750 
AFRM2  760 
AFR'<2770 
AER'<2733 

AERM2790  I 

AFRM2300 

AFRM28  10  ^ 

APRM2820 

AFR'^2830 

AFRM2R40  j 

AFRM2B50 

AFRM2360 

AFPM287n  ' 

AFRM2«B0 

AFRM2890  ! 

AFBM29nn  ! 

A‘^RM2910 

A F R M 2 9 2 0 .1 

AFRM2930 

AFR92qA0  j 

AFRM2950  I 

AFRM2967  , 

AFRM2970 

APRM2980 

ArRM2999 

APR'^3000  1 

AFRM30in  j 

AFPM3020  j 

AFRM30  30  ] 

aprmboao  i 

APRM3050 

APRM3060  I 

APRMJ070  i| 

APRM30fl0  ' I 

AERM3090  i 


2CS  CnNTINUF 

RL2=0L  3-XBT 

TaNRT=( rCASE-nP )*0. 5/«RL3-RL2) 
rF«  TANPT.r,f  .0.28<J  TArjflT  = 0.286 

C MAXIMUM  BOATTAIL  ANGLF  IS  10  OEG 

TI-FTnT  = ATAN(  ( H l-OP  ) / ( 2 . * XB  T ) ) 

XTHERT  = PI/TAN(THFTBT  ) 

Gr  TO  207 
2C6  GGNTINUF 
TPETBT=0.0 
XPT  = 0 .0 
7ANPT=0  .0 
TFETP  T = C.O 
XTHFP  7 = 0. 0 

cp=ni 

2C7  rCNTINUF 

PL  2=RL  3-XBT 

ie(pla.lf.rl2)  hlf  = m 

IKPFLT.LF.RL2J  OMT  = 01 

IF( PHLT .GT  .RL 2)  OMT  = D 1- I TA NB T* { RHL T-RL2 ) I *2 . 

220  CONTINUE 

BTH  = PT  / 2.  ♦ OMT  / 2. 
step  = STET/57.2S6 

SIFT  = ATAN(2.*(RrT+.5*PT*TAN(  STF0)-TCT)/BT)*57.296 
1F(  IBTL  .FO.3  ) OLF  = Dl 
IF(NW.LF.O)  GO  TO  221 
PWH  = BW/2.  ♦ nCASF/2. 

SWEP  = STEW/57. 2S6 

SLFW  = ATANI 2.*(RCWf.5*PW*TAN(SWED)-TCW)/BW)*57.296 

221  CONTINUE 

IF(  ITN.LE  .31  GO  TO  1111 
I F(  ITM.EO  I GO  TO  1211 
1F( ITN.E0.5)  GO  TO  1311 
[E<  ITN.EC.6)  GO  TO  lAll 
nil  PL1A  = PL1 

800=0.25*01  ♦ (RL1**2)/D1 
GO  TO  1A12 
1211  RL1A=R1 

GO  TO  1^12 
1311  RS  = epaT*Pi 

PL  1 = 01/12.0* TAN  I THETAC  1 ) 

XCAP  = RS*{  l.C-SIN(  THFTACn 
YCAP  = RS*C0S(  THETAC,  » 

XNEG=YCAP/TAN( THETAC ) 

PL1A  = RL  1-XNFG+XC AP 
XLNT=RL  1 
xlfrc=rli-xneg 

CC  TO  1412 

1411  PrG=0.?5*Dl  ♦(RL1**2)/D1 
P S=BP AT*R  1 
PX=POG-PS 
PX2=RX*RX 
PY=ROG-P 1 
ry?=py*py 
PP=S0RT(PX2-RY2) 


AFRH3100 
AFPM31 10 
AFPH3120 
AFRM3130 
aFRM3140 
AFBM3150 
aFRM3l60 
aFPM3l 70 
AFR*31P0 
AFPM3190 
aEPM3200 
APRM32in 
AERM  3220 
A FPM3230 
ACOM3240 
AFRM325n 
AEPM3260 
AFRM3270 
AFRM320O 
AFRM3290 
aFRM33nO 
AFRM3310 
AERM3320 
aERM3330 
AERM3340 
AEOM3350 
AERM33fcO 

aFRM3370 

AFRM3380 
aFRM33O0 
aERM3400 
AFPM341 0 
AERM3420 
AEPM3470 
aFPM3440 
AFR'«345n 
AFPM3460 
AFPM3470 
AFPM3480 
AFRM34O0 
aEPM3500 
AFRM3510 
aFRM3S20 
fiFRM-^BTO 
aFPM3540 
AFPM3PS0 
aFPM3S60  \ 

AFRW3570  I 

AEPM35R0  j 

AFRM35qo  j 

AFRM3ftOO  ] 

aF0M36I0  ] 

AFRM36?n  j 

AERM3(S30  \ 

488*3840  3 


HA  211 


ANC-=ARrnS|PY/RX  ) 

AFRM3650 

xrAPO=PS*(  l.-SINIANG)) 

AFRM36ftO 

YCAPr=P  S*COSI  AMG  ) 

AFRM3670 

PI  1 A=RP  R S 

AFRM3680 

lA  12 

rONT INUF 

AFPM3690 

FAFN  1 = 1 RL3-RL 1) /RL  lA 

AFRM3700 

CNOSF  = RL  1-RL  lA 

AFRM37  10 

Fr,AP=P  S/P  1 

AFRM37?n 

IF(  ITM.FO.A)  XLN=n.5*ni 

AFPM3730 

1F( ITN.FO.A)  FCAP=1.0 

AFRM37A0 

IF(  ITN.  FO.A)  RRAT=1.0 

AFRM3750 

I^I  ITN.GF.A)  CALL  «LTGEO 

AFRM3760 

xrYL=RL  ?-PL  lA-XBT-DNOSF 

AFO''3770 

IFI  ITN.FO.  n GO  TP  AAlC 

AEPM3  7R0 

IF( ITN. EC .2)  GO  TP  A16 

AFRH3790 

IFI  ITN  .FC  .3  ) GO  TP  AOl 

AFRM3BnO 

I F(  ITN.FO  .A)  GO  TC  A02 

AF«M3R 10 

IFI  ITN.FP.  «»  GO  TP  A15 

A ERM3820 

IF( ITN. EC. t)  GO  TP  AAll 

AFRM3830 

C ♦« ♦** 

COMPUTF  volume  OF  CONE****** 

AFRM38An 

ACl 

V0LC=0.25*PI*01*ni*RL 1 /3.0 

AFRM3850 

VOLN=VOLC 

AFPM3a50 

GO  TP  AAO 

AFRM3870 

AC2 

VnLS=2.*Pl*Rl**3/3. 

AFRM3880 

VCLN=VOLS 

AFRM3890 

GC  TP  AAO 

AFRM3900 

A Ift 

V0LVK=0  .5*PI*R1*R1*RL1 

AFRM3910 

VCLN=VOLVK 

AFPM3Q20 

GP  TO  AAO 

AFPM3930 

A 15 

VPLFC  = ( (PI*ni*Dl/12.0)/( XLNT**2) ) * I XLNT**3-XNEG**3 ) 

AFRM39A0 

VPLSP=P I*RS*RS*XCAP-0.3333*PI*XCAP**3 

AFRM3R50 

VPL8r=VPLSP*VnLFC 

AFP«13960 

VPLN=VCLRC 

AERM3970 

GP  TO  AAO 

AFR»1^QflO 

C ♦•♦** 

CPMPUTF  VOLUME  OF  OGIVE  NOSE  FROM  NOSF  TANGENCY  POINT 

TC  CYLINOER  AFRM3990 

C 

TANGFNCY  POINT**** 

AFRM<fOOO 

AA  11 

XLN=PL  1 A 

AFOMAOIO 

C***CCPPUTF  PAOIUS  OF  OGIVE*** 

AFRMA020 

prr,=  ( Rl**2*  XLN*(XLN-2.*RS)  ) / I 2.  *R  1-2.*R  S ) 

AFRM<v030 

RrG2=BnG*RnG 


flFPM40A0 


C*’*«*TANGEMCY  point  of  sphere*** 

XTaMP=XLN-RS  ♦ (RS*(XLN-RS> )/(ROG-RS» 

YTANP  = ( RS*I ROG-R  ll)/(ROG-RS) 

XT ANP2=XTANP*XTANP 

XL NT  = SORT ( 0l*R0G-0. 25*01*01 1 

PHIMAX=ARSINI XLNT/ROGI 

PI-  I = ARS  INI  XTANP/RCGl 

TFRMA  = S INIPHIJ*!  2.  ♦ COS  I PHI  1 **2  ) /3. 

TFRM8=CnS(PHIMAX»*(SIN(PHI  )*COSIPHn  ♦ PHI) 

TFRMC=C0S(PHIMAX)*C0SIPHIMAX)*SIN<PHI  ) 

VCLOGF=(P I*R0G**3)*( TERMA  - TERHB  ♦ TERMC) 

VrLSPH=PI *RS*RS*IXLN-XTANP )-0. 333*PI * I XLN**3-XTANP**3) 

vriN^VPN 

CO  TO  ^40 

AA 10  XLNT*S0RTini*R0G-0. 25*01*01) 


AER'^AOFO 
Aroy4n60 
AEPMA070 
ftEPMAOnn 
AFRMA090 
AFR'^A  ino 
AFRMA  I 10 
AFRNA120 
AFRMAI30 
AFRMAl AO 
AFRMAI 50 
AERMAl^n 
AER'iAlTO 
AFRMA180 
AFRMA190 
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■ 

r 

• 

FPNT  = tl  ^■T/^  1 

AFR»A4200 

TfPM 1 =l .-P 1 /ROC 

AFRH<,210 

TrRM?=TFPMi*TFPMl 

AER«4?20 

TFFP  j=)ti  NT/ttfir. 

AFR'I4230 

VrLN  = P I ♦Fnr.*  ♦ 3*  ( Tf  RM3*  TFRMP/3.  ♦ 2.^TFPM3/3. 

AFR'<4240 

l-AP  S IN(  TFDM3  j*tfRP  1 J 

AF  RM4250 

CD  TP  aAO 

AFOM4260 

r «♦  «»cr‘'PUT  F fYiiNcoiCAi  ^frrinN  volumc**** 

AF  RMi,  270 

vPLC  Yi  =c.  ?F*p  i*ni*ni*xrYL 

AFR''4280 

f ♦♦♦♦CPPPUTF  rr'MCAl  BPATTAIl  VOLL'MF**** 

AFP*44290 

1 F(  IPTl  .FQ  .0  1 r.C  TP  ASC 

AERH<,300 

VPl  PT  = I (P  I *0  l*n  1/ 1 2.  1 / ( XTHFPT**2  » )*(XTHFBT**3-(XTHFPT-XRT»**3)  APR “4313 

■ 

Qr  TP  A'l 

AF  R‘'4  320 

CONT  TNUF 

AFRM«T30 

vn  MT=o.O 

4FR«4340 

; ^51 

vri.prn=vPLN  ♦vnifYi  + vplbt 

fiFPM^3S0 

IF( MAFRP(  P ) .FO.O  ) NAFRO(P)  = 1 

AFPM4  360 

IF(  NAFRtHO  » . FO.O  ) NAFPO(TJ)  = 1 

AEP“4  3 70 

ITSFF  T = NAERfU  10) 

AFOM43P0 

IWSFC  T = NAFROl  1 1) 

AF»M43°0 

r 

tPTYPF  = 0 

AFrtN4400 

iriNAFFPC  12)  .FO.  1)  1MYPF  = 21 

AFRMiVi,  10 

> i 

IF(  NAFPPl  12) .E0.2)  1NTYPF*22 

AFPH4420 

IFINAFRPC 12).F0.3)  INTYPF=ll 

AFPM4,430 

i 

IF(FjaEPO(  12)  .EO.A)  INTYPF  =A 

ACR«<<,<,40 

IF{  F'AEPni  12)  .FO  .5)  INTYPF  = 5 

AFRM<,450 

; ; 

ICONOI)  = NAFROI  13) 

AF  fl“446() 

i , 

1^7  = NAEROI 14) 

AER*344  70 

' 1 

J = NAFROI  15) 

afrm<,<,bo 

1 

ICDON  = NAFROI  17) 

AFRM<,490 

IFPW  = NAERni26) 

AEP‘34500 

? 

TPTL  r = F AFRO  122) 

ATrv^s  1 0 

i 

1 

irONP  = NAERO 121) 

AF»'3  4 5<r'') 

IfLTN  = NAFROI  20) 

AFR«4530 

^ 1 

f CLT  F = NAFROI  19  ) 

AF  R>34540 

s 

irOOF  = NAFROI IP) 

AFRM<iS60 

ftCRMi^SftO 

/«FRmaS70 

; C^^^o^PrciN  AiriTUDE  LOOP 

AFRM^SSO 

f. 

AFRM4SO0 

i 

I SWT=-l 

AFRM4f,nO 

t 

II  IM  = C 

AFR‘34610 

77 

CONT I NUF 

AFRM^620 

IF  I KSTFP  .NE.  2 ) GO  TO  1174 

AroMA6  30 

rr  1173  ij  = 1,  NPM 

AFDM^64fO 

X7ML  H IJ )=PMVI IJ  ) 

AFP‘^4650 

X7MI  21  1 J)=PMVI  IJ  ) 

AER‘Ai,660 

X7M0H  1 J)*RMV(  IJ  ) 

AFRM4*670 

X7Mn2I  I J )*RWV( 1 J ) 

ArRMA6B0 

1173 

CENT INUF 

AE>»M<i690 

117A 

FONT  INUF 

ACRM4  700 

IF  I K5TFP  .GT.  2 ) GO  TO  699 

AFRMA710 

1153 

CONTINUE 

AFRM4720 

IF  I ) .FO.  0 ) GO  TO  9021 

AFPM47'30 

POZl 

CENT INUF 

HA  213 

AFR«4  740 

L k 

V 

^ 

CO  ion  KK  = 1,  MALT 
KKRIIM=KK 
I AL  T=KK 

COFFTl  1,KK  ) * Al TV(KK ) 
r(?rFOF(  l,KK  J=  AL  TVIKK  ) 

Al  T=ALTV(<K) 

AIT  = ALT  / 1000. 

«««**PFGT»'  f'ACH  NIJWPFR  LdCP 

[ cn  ?nn  jj=i,nrm 

JJDIJN'  = JJ 
ALPHA  = 0. 

Al  PHAR  = 0 . 

Ar'FTDA  = n. 

aoiaaw  = n. 

' ATI TWV  = 0. 

AOCMW  = 0. 

ATNWF  =0. 

ACNVW  = 0. 

ACLWV  = 0. 

ACLWP  = 0. 

ACLPW  = 0. 

ACLW  = 0. 

ClAT  = C. 

CNA  = 0. 
i CM  = 0. 

* char  = 0. 

: CM  AT  = 0. 

CMAW  = 0. 

j CMA  = 0. 

S CTRCLT  = 0.0 

j trnswT.iT.o)  rm*rmv(jji 

J PATS  = 2ll6.6-76.3568*ALT+l.08896'*ALT**2-7.1106F-3*ALT**3+ 

i 1 1.7613E-5*AIT**A 

OPATin  = l. 

CYNP*0.7*P  ATS*RM**2 
' IF( NAFPni  12»  .GT  .3  ) PL  = 1. 

IF( NAEROl 12» .GT.3)  XML  = RM 
IFINAFPOI  5).NE.3)  GO  TO  335 
' ORATIO  s PL/DYNP 

IF(OR  AT  lO.FO.O.  ) CRATIO  * 1. 

335  CONTINUE 

NFIVF  = NAERa(5» 

IF! MAFPOl 5) .EQ.3 ) NAEP0(5I  * 2 
ISNTRL  * ICNTRL 
IF( ICNTRL .FQ.3)  ICNTRL  ■ 2 
XMACH  * RM 

3A0  SPEF*0.25*P I*0l**2 
P A*SR  EF 
ITRIP  * 2 

IF(RM.LF..9)  ITRIP  « -1 
IFIRM.EQ.  1.1  ITRIP  » 0 
IF(RM.GE.1.2)  ITRIP  = I 
ALPHAO  * 0. 


AERM^TSO 
AFRM4  7(Sn 
AERM4770 
AFHM4780 
AFRH47<10 
AFHMA800 
AFRM48  10 
AEP.M4320 
AFPM4B3n 
APPMAPAO 
AFRMAflSO 
AFRMA860 
AERM4870 
AFP map RO 
AFPM4890 
AppmaOOO 

acpmaoio 

apPMAoPO 
AFRMA930 
AFRMA9A0 
AFRMA950 
AFPMA960 
AFRMA970 
AFRHA9flO 
AFBMA990 
AFPM5000 
AFRM5010 
eFPM502n 
AFPM5030 
AFRMSOAO 
AFR«5050 
AFRM5060 
AFRMAOTO 
AFRMSOPO 
APPMSOm 
APP'^SIOO 
arpM«i  1 0 
aPBMsi20 
AFRM5 130 
apPMSKtO 
AEPM5150 
AFPM51 50 
AEPMSl 70 
AFPM51P0 
AFPMS 190 
AEPM52nO 
APPM5210 
AFRM5220 
AFRM5230 
AFRM52A0 
AFPM5250 
AFR'»5260 
AERM5270 
AFRMSPaO 
AFRM5290 
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y 


I 


I 

i 


« ■ 


1 


) 


I 

1 


IF(J.EO.l)  WR  ITF  (6,  IB76)  RM,  ALPHAOf  ALT 
FPsRL  l/Cl 

FPB  = (RL3  - (PLl  - PLlA|)/ni 
m =PM/FP 
rpL  = nwT 

1F(  KMRL  .FQ  .2)  DHL  = 

RL  n=x  RT/ri 
I = I 

IF(J.FO.I)  WRITF(e,n  I,  qi(l»,  Q(  TJ,  SREF  , 0(13),  FR 
1 0(21),  FRP  , 0(  1),  nHL  , 0(92»t  dHL  . 0(  2»,  RLH 

Rl DR  = 0. 

PFTA  = SORT(ARS(PN**2-l.  JJ 


AFRM5300 
AFRM5310 
AFR'<5320 
AFRM5330 
AFOMSTAd 
AFPM«;i50 
AFPM53frO 
AERM5  370 
A‘^DMS380 
ATOMS  500 
AFPMSAOO 
AFOMSAIO 


iFiRM.rr.i.n  RLnp=2.’*'RLn/BFTA 

tF(  (OM.rr.l.D.CR  .(PP-.LF.l.O)  ) GO  TO  3A3 

BFTA  = SORT(  AHS(  I .1**2  - 1.)  ) 

PLOP  = 2.*RLC/BFTA 
5A3  CONTINUE 

FA  = (FL3-RL  I )/ni 
FA  = RL 3 / 120. 
r=np+0A4ciA 
cr=np/ccASE 
I = 2 

IF(J.FO.l)  WRITF(tfl)  If  OKU,  0(571,  RLDB  , 0(  51,  RFTA 
I 0(Q3»,  FA,  0(10»,  OA,  0(1AI,  0,  0(3),  DO 

rr2  = nr**2 
rri2  = (n/ou  **2 

FAFN  = FA/FR 
PFN  = PFTA/FR 
I - 3 

IF(j.FO.I)  WR(TF(e,l)  1,  OKU,  0(A),  002,  0(9),  0012, 

I 0(OA),  FAFN,  0(95),  BFN 


AFom5<v20 
AFRMSA30 
ArpM5/,^0 
AFRMSA50 
AE‘’MSA60 
ftFRMSA  70 
ACRM5A80 
AFRM5A90 
AFRMSSOO 
AFRMSS  10 
AFRMS520 
AFPMSS30 
AFRM55A0 
AFRMS550 
AFPMSSftO 
AF  PM5S70 
AFRMS5P0 
AFRMSSOO 
AERMSSOO 
AFPMSSIO 


C**  ******  TAIL  VARIABLES  *»«4i*4***«*4i*4i********4>****«****«******#*4i*«**4AFRMSS20 


r aFOm5(S30 

r*****  LFAriA'G  EOfE  SWEEP  TAN  NFVFR  BE  LESS  THAN  0.1  DEGPEF  *•♦♦♦♦♦*♦*  AFP«SSAO 


SVAL  = SLET 

IF( SLET  .EO.0.0)  SVAL  = 0.  I 
SLETP  = SVAL/OPP 
TANST  * TAN(SLETR| 

STETP  = STET/OPR 
TA  NOT  = TANI  STFTR) 

TAMS2T  = IRCT-TCT)/PT  ♦ TANnT 
TANSAT  = 1.5*(RCT-TCT) /BT  ♦ TANOT 
ACT  = (TCT4RCT)/2. 

IF  I lART  .EO.  1 ) RNT  * 2. 

ST  = RN T*ACT*BT/2. 

1 = A 

IF(J.EO.I)  WRITE(6,l)  I,  OKU,  02(3),  SLETR,  02(A), 
1 TANS2T,  02(6),  TANSAT,  02(9),  ACT  , 02(10),  ST 
STSPFF  * ST/SREF 
SFT  * 2.*ST/RNT 
STAIL  = SFT/2.n 
part  * PFTA*ART 
I = 5 

IFIJ.FO.U  WRITE(6,U  I,  OKU,  02(15),  ART,  02(16), 


AFRM56S0 
AFRMSS60 
AFPMSS70 
AFRMS6R0 
AFRMF<,90 
A P MS  700 
AFR  MS  7 10 
AEPMS720 
AFPMST’O 
AF««5  7A0 
AEPM57S0 
AFPM5  760 
TANST,  02I5),AFPmS770 
AFRM5780 
AF0MS790 
AERMS800 
AFRMS81 0 
AF  RM5820 
AF  PMS830 
BART,  Q2(  IU.AFRMSbAO 
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(->  r»  n n 


I STSKEFt  Oi(l7).  THKPT,  Q2(13»,  RXlNTt  Q2(14)t  SET 
4TNS2T  = ART*TftNS?T 
ATNS^T  = ART*TANS<iT 
«TCT  = aRT*Tt-KPT 

AMAfT  = .6666*(R  CT+TC  T-PCT*TCT/(RCT«-TCT)  I 
T^'ACT  = THKRT*Rf  T/AMACT 
ATCT  = APT*THACT 
150  continue 

PTANST  = RFTA/TANST 
FCCT  = pfta*dmt/rct 
TPT  = TCT/RCT 
TPTPl  = l.+TRT 
I = 6 

irU.FO.l)  WRFTFI6,1»  I,  Ql(l),  02(7),  ATNS2T,  02(8), 
I 02(18),  RTANST,  02(1«)),  BOCT,  02(20),  TRTPl 
OAPPT  = .25*ART*TP TP1*TANST 
PAPT  = 0, 

IF(RM.NE.n  BAPT  = B AR  T*  TR  TP  !♦  ( I .♦!. /B  TANST ) 

1 = 7 

IF(J.EO.l)  WRITE(6,1)  T,  01(1),  02(22),  BAPT,  02(21), 
1,  TRT,  02(  18),  BTANST 
FLTSFT  = FSPVCT^RCT 
XLFNT  = RX1NT*RCT 
8 T\NSW  * 0. 

ALSRT  « 0. 

AISRW  = 0. 

CNAST  = 0. 

ALPT  = 0. 

AlPW  = 0. 

ATE  = 0. 

SWEPSR  * 0. 

IF  (RP.lF.l.)  GO  T(7  AlC 
IP  ( BTANST. LE.  1.  ) GO  TO  410 
IF  (NAEPOI 8) .E0,2)  GO  TO  410 
410  IF  (NW.NF.l)  GO  TO  48C 


ATNS4T, 


BAPPT,  01 


AFRMSBSO 
AFRM5e60 
AERM5870 
AFRM5980 
AFRM5890 
AFRM5900 
AERB5910 
AFRM5<J20 
AFRM5910 
afpmspao 
AE  PMBqSO 
AFRM5960 
AFRM5970 
AFR85900 
AFRHpoqo 
AF9M6000 
AFRM6010 
AFRM6020 
AER96080 
3) AFB96040 
AEPM60S0 
AFRM6060 
AFR16070 
AR  8ftORO 
AFRM6090 
AFPM6100 
AFPM6110 
AFRM6 120 
AFPN6130 
AFRM(S140 
AFRM61 50 
APRM6160 
AFR‘16  170 
AFR*<6  IPO 
ArRH6190 
AFP.»<6?0n 


• «4****«  WINC  VARIABLES  *****4i*«*4t************4i**4>****«*«*********«*4*4AFRM62 10 


LFAOING  FOGE  SWFFP  CAN  NEVER  BE  LESS  THAN  0.1  OEGPFE 
IF(  TART .NF. 1)  GO  TO  9887 
SVTSPF=SVT/SRFF 
P ARVT=RFTA*AR VT 
TANnVT  = TAN( STEVTR  ) 

TAN2VT*C.5*(RCVT  - TCVT)/RVT  ♦ TANOVT 
T AN4VT=0. 75*(RCVT  - TCVT)/8VT  ♦ TANOVT 
ACVT»(TCVT  ♦ RCVT)/2. 

ATN2VT*ARVT*TAN2VT 
ATN4VT*AP  VTATAN4VT 
ATCVT*ARVT*THKR  VT 

AmaCVT*0.6666*(RCVT  ♦ TC VT  -RC VT4TC VT/ ( RC VT* TC VT ) ) 

TMACVT*THKRVT*BCVT/AMACVT 

ATCVT=ARVT*TMACVT 

PTANVT»BETA/TANSVT 

PrCVT*BETA*OMT/RCVT 

TPTPV1=1.0  ♦ TRVT 


AFRMftppO 
«PR'^62''0 
AFRMf>240 
AEP''F.250 
AFRM6?f,0 
AEPM6270 
APPH6  7R0 
AFRH6290 
AFRM6  300 
AFRH6310 
AEPM6320 
AFRM6330 
AFRM6340 
AERM63S0 
AER‘*436n 
AERM6370 
AERM63R0 
AER'^6390 


it. 


HA 
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k. 

L 


f 

I 

t 


f 


I 


a«PP  VT  = 0.2S*ARVT*TPTPVl*  TANSVT 
PAPVT  =0.0 

IP(PM.rF.  1. )aAPVT  = P«P VT*TRTPVl*(l.*l./BTANVTI 
FI VT  ST=FSnvVT*BC VT 
XI FNVT=PXlNVT*RrVT 
S8S7  CPMTINUF 

SVAL  = SLFW 

1F(  EW  .FO.C.CI  SVAL  = O.l 
SLfWP  = SVAL /OPP 
TANSW  = TAN(SLFWR) 

STFWP  = STEW/OPP 
TANOW  = TAM  (STFWP) 

TAMS?W  = (Rrw-TCW)/PW  ♦ TANCW 
TAMSAW  = l.S*(RrW-TCW)/BW  4-  TANOW 
I = P 

(••(J.FC.l)  WR1TF(F,1)  It  Qllllt  02(21),  BAPPT,  02(22),  BAPT, 

1 02(23),  SLEWS,  Q^(2A),  TANSW,  Q2(25),  TANS2W,  02(26),  TANSAW 
ACW  = ( TCW+RCWl/2. 

5VI  = RMV>*ACW*PW/ 2. 

SWSPFF  = SW/SPFF 
SFW  = ?.*SW/RNW 
SWING  = SFW/2.0 
1 = P 

IF(J.EO.l)  WRITE(C,l)  1,  OKI),  02(33),  RXINW  , Q2(3A),  SFW, 

1 02(2P),  ACW,  02(30),  SW , 02(31),  SWSREF  , 02  (37),  THKRW 
C 

All  EAOW  = eFTA*ARW 

ATNS2W  = ARW*TANS?W 
ATNSAW  = ABW*TANSAW 
ATCW  = APW*THKRW 

AMACW  = .6666*(RCW*TCW-RCW*TCW/(RCW4-TCW)  ) 

TM&CW  = THKR W*R CW/AMACW 
ATCW  = APW*T*<ACW 
A20  CONTINUE 

PTANSW  = BFTA/TANSW 
1=10 

IF(J.FQ.l)  WRITE(6,1)  I,  01(1),  02(27),  ATNS2W,  02  (28  ),  ATNSAW, 
1 02(351,  ARW,  02(381,  BAPW,  02(381,  BTANSW 

PCCW  = PFTA*nMW/RCW 
TPW  = TCW2RCW 
TPWPl  = 1.4-TRW 
RAPPW  = .25*ABW*TRWP1*TANSW 
BAPW  = 0. 

IF(PM.NE.l)  BAPW  = BARW*TRWP1*(1, 4-1, /BTANSW) 

I = I I 

IF(J.EQ.l)  WRtTF(6,l)  I,  01(1),  02(39),  BDCW,  02(40),  TRWPl, 

1 02(41),  BAPPW,  02(42),  BAPW,  0(43),  TRT,  0(47),  TRW 
FITSEW  = FSnVCW*PCW 
XLENW  = PXINW*PCW 
ALSRW  = 0. 

CNASW  * 0. 

ALPW  * 0. 

IF  (RM.L  E.  1.  ) GO  TO  480 
IF  ( PTANSW.LE.l.  ) GO  TO  400 
IF  (NAERO(9).E0.2)  GO  TO  480 


AERM6400 
AF  PM6410 
AFRM6420 
AFRM6430 
AFR'<6440 
AFRM6450 
AFRM6460 
AFRM6470 
AER'«6480 
AERB6490 
AFRH6500 
AFPMftSlO 
AFRM6520 
AFPM6530 
AER'«6540 
AFPM65S0 
AFP'^FSfiO 
AFRM6570 
AER‘<65eO 
AF  RM^SPO 
AFRMftftOO 
AFP‘16610 
A FR ’36 6 20 
AFRM6630 
AFPM6640 
AFR’36650 
AFPM6660 
AERM6670 
AFR‘366C0 
AT PM6600 
AFOM6  700 
APRM671 0 
AFQMf,720 
AFP*36730 
AFPM6740 
AFR'<67S0 
AFOB6760 
AFOM(t,770 
AEPB678n 
ftc  OMf,  7no 
AFPBFBm 

AFPMf,^  10 

AFRM6P20 
AFR'36P‘3n 
AE'’‘36840 
AFPB6B50 
AFP'36H6n 
AFP'36H70 
AFB '46880 
AFRB6HP0 
AEPM6P00 
AER'4691  0 
AERB6920 
AERB6P30 
AFR'46940 


4 


i 
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APO 

CONT  INIIF 

AFRM69S0 

AERM6960 

CA|  L ORAG  ( ALT,  f- »*,  KSTEP,  COOB,  COOS  1 

AFRM6970 

fALl  L IFT(BH,CNA,KSTEP) 

AERM6980 

IF  ( KSTFP  , FO  . 1 1 CDOB  = 0.0 

t EPM69O0 

PPAMPLl  1281  = r.NA 

AFRM70no 

!F{  ISWT  ) 920,770,779 

AFOM70  10 

920 

rPNTlNUF 

AFRM7020 

rPFFM(  J J |=f.MA 

AFRM7030 

rPFFX(jj)=xni 

AERM  7040 

r.nFFC(jj)  = CNA  / opp 

AFRM7O50 

OrFFl t JJ) =rNA  / OPP 

AFRM7060 

IF  ( kI^DB  .EO.  3 1 CPFFl(JJ)  = COFFL(JJ)  ♦ CLALPP 

AEPM7070 

JJJJ  = JJ  ♦ 1 

AERM70PO 

rPFFOFlJJJJjKK ) = COOS 

AFRM70O0 

CrFFO  (JJJJ,KK)  = ropp 

ArRM71  00 

nZtRP=CCOnN*CYNP*SREF/ 1^4. 

AF‘<M7  110 

**** 

♦BEGIN  ALPHA  LOOP******* 

AFPM7120 

A alpha  = 1 

AFRM7  130 

ALPHAVI  1)  = 0.0 

AFRM7  140 

OP  2000  LL=l,NALPHA 

AFRM7150 

ALPHAR  = ALPHAV(LL  1/57.3 

AFPM7160 

rL=CNA*Al  PHAR 

AFRM7170 

CT  = CL ♦TAN( ALPHAR  |*OYNP*SRFF / 144. 

AFPM71R0 

CTOT=OZFRn  ♦ 01 

AERM7  190 

VL  lFT=CL*nYNP*SRFF/144. 

AFRM7200 

ALn=VL  IFT/OTOT 

aERM72I0 

AMLF  = VL  IFT/WMISS 

AFRM7220 

IF  ( J .EO.  1 1 WP  ITF  (6,FCRCESl 

AFRM7230 

2CCf) 

CPMT INUF 

4FRM7240 

200 

rPNT I NOE 

AFPM7250 

IF  ( J .FO.  0 1 GO  TO  9160 

ArRM7260 

CALL  PAGE 

AFPM7270 

91'fl 

FORMAT!  Ill  1 

ArRM72P0 

WP ITE(6,9158  ) 

AFRM7290 

WP!TE(6,9150) 

AFRM73O0 

9 1*0 

FPPM AT!  17X3HALT,  6X4HKACH,  2X  8HC00-SUST,  1 X9HC00-P0nST  , 

AFRM7310 

1 7X3HCIA  //  1 

AFRM7320 

9 156 

FORMAT! lOX.FlC.Cl 

AFRM7330 

9157 

FORMAT! 20X,F 10.2,  3F10.3  1 

AERM7  340 

WPITF  !6,  9156  1 ALTVIKKI 

AFPM7390 

CP  9350  ISAX=  1,  NRM 

AFR''7360 

1 

ISA  = ISAX  ♦ 1 

AERM7370 

i 

WPITF!6, 91571  RMV!  lSAX),COEFOFtlSA,KKl  , COEF 0 ( I S A, KK 1 , COEFO ! 1 S AX  1 AFRM7 080 

1 

1 

9 3 50 

CONTINUE 

aFR‘'7390 

1 

9 UO 

CCNT INUF 

AFRM7400 

1 

ICO 

CONT  INUE 

AEPM7410 

1 

699 

CONT INUE 

AFBM7420 

i 

IF  ! KSEFP  .LT.  3 ) GO  TO  1184 

AFRM7430 

RM|  0*0.8 

AFPM7440 

RM*PMLO 

aFRM7490 

i 

ISWT=0 

AFRM7460 

1. 

GC  TP  1183 

AFPM7470 

770 

IF!  IL  IM  .NF  .0)  GO  TO  771 

AFPM7480 

,1 

rrpnx*xrii  - xoi 

aFRM7490 

i! 
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Ik 


rcrrDx=wwi\jG/w»iiss 

771  5;MLn=xrrni  -xoi 

IF(  ILIM.NE.CI  GO  TO  772 

!F( I SMKL-SMLO ).GE.-. 1)  GO  TO  5000 

nELXW=<  SMPl-SMLP) /(DCGOX-OCPDX) 

Gr  TP  5010 
5CC0  rFLXW=0.0 
5010  XIEW=  FL5  ♦ CELX»«*P1 

772  WPITFl  (-.WIMLOC  ) 

I R»'HI  = ?.0 

PM=:PMH  I 
ISWT=  1 
CP  TP  77 

775  IF(  !l  IM  .NF  .0 ) GO  TO  6RC0 

nrPDx  =xci  1-xci 
xP2=xoi  4-  nELxw*rrpnx 
XCGni=XCGOl  ♦ nCGDX*OELXk 
77(S  SMHI-XGGDl-  Xn2 

, I F(  II  IM  .NF  .0  ) GO  TO  68C0 

1 F(  ( SMP  F-SMHII.GF.-.  n GO  TO  6600 
' CFLXW=( SMRH-SMHI ) / ( OC GOX-OC PO X J 

CO  TO  6C10 
66C0  r:FLXW  = 0.0 

I 60  10  XLEW=XIEW  ♦ OELXW*Ol 

I XLFWL*0.0 

, 1F((PCW  ♦ XLFW).GT.(TLTHF0-RCT-6. 1 ) GO  TO  6700 

• GC  TO  6 POO 

1 e7C0  Xl EWl =TLTHFn-RCT-6.0-PCW 

rFLXW=XLEWL-XLEW 
XLEW=XL  FWl 

i XCG01=XCGni  ♦ DFLXW*DrGDX/ni 

xni=xni  4 OELxw^ncpox 

ILIM=1 

xr2=xC2  4 DEL XW*DCPOX/Ol 
j S*‘HI  = XCGni-XC2 

GO  TP  659 

i 6flC0  CONTINUE 

IF  ( J .NF.  1 1 GO  TO  AOO 

* WR  ITF(6,WlNL0r I 

TF(  11  IM.EO.H  WR  1TF(  6,  50r0l 
90C0  FORM  ATI  lOX,  23H  mqst  AFT  WING  LOCATION  I 
WRITF  (6,9CC1»  XLFW 

9CC1  FCRMAT  ( 10X17HW1NG  LOCATION  AT  . F6.2t  6H  IN. 

1186  CONTlNUr 

IF  ( J .NE.  1 ) GO  TO  6CC 

call  WPTOUTI'MACH  NUM',RPV,20,l,l,NRM,l,l) 

CALL  WP  TOUT  I • AL  T-KFT.  • , ALTV f 10 , 1 1 1 1 NAL T 1 1 1 1 1 
CALL  WPTOUTI  'ALPHA  • , ALPHA V , 10 1 1 f I f NALPHA 1 1 1 1 ) 
CALL  WPTOUTI 'CDO-PON  • ,COEFD , 20 1 5 , I ,NR M , NA LT , 1 1 
CALL  WRTOUTI • CDO-POFF • .COEFDF , 20 t 5 t I #NRM ,NALT , I ) 
CALL  WRTOUTI 'CL  ALPHA  • «COFF  L t 20«  1 1 1 f NRN  ,1  f 1 ) 

CALI  WPTOUTI 'CMALPHA  • «C  OFF  H ,2  Ct  1 1 1 1 NRM,  1 t U 
CALL  WPTOUTI 'CPLOC  • .COEF  X , 20t  I t NRM,  I , H 
CALL  WRTOUTI  'CMC  • ,COEFO  , 20,  I , I , NR  M,  I , 1 ) 

600  continue 


AFRM7500 
AFRM7510 
AFRM7520 
AFOM7530 
AFRM7560 
AFRM7550 
AFRM7560‘ 
AFRM7570 
ArRM75flO 
ftFOM7soo 
AFRMTfcOO 
AFRM761 0 
AFRM7620 
APOM7f,-?0 
AFPM7660 
AFRM7650 
6FOM-7(s^r) 
AF1’M7670 

ACRM7600 

AFPM76<’0 
AFRM7700 
AFRM77  10 
AERM7720 
ACBM7730 
AERM7760 
ACRM7750 
AFRM7760 
AFRM7770 
AFRM77R0 
a FPM77QO 

afrmtroo 

/'FRM7m;-) 

AFPM7R20 
AFPM7830 
AFRM7867 
AFRM7fl  90 
AEPM7860 
AFRM7P70 
AFPM7RR0 
ftFRy7?)O0 
AFP'<  7000 

AFOM79n 

AFPM7920 
aFRM7O30 
AFPM7960 
AFRM7'»90  I, 
AFRM7<160 

AFRM7Q70 

AERM7980 

AERM7Q90 

AERMROOO 

AFR*'B010 

AFRMRn20 

AFRM8030 

AFRMB060 
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Ch  \r> 


Rl  S = PI 5S^V 

R FTIipn 

F^r 


AFR'IPOSO 

AFP«<8r>ftO 

flFR'^«07n 


^UBPrUTlNF  PPAG(  alt.ph.kstep, 

cooB.cnns 

I 

ro  A GOO  IP 

Pr.H  = Ni)K  .rMCG«;M  GGJ/RKM 

FI V/EBCO 

9/10/73 

np  AGon/o 

priJPLF  PR  EF  I SION  C,01, 

02,A1  ,A2 

,ZZ  T.CVV.CVVT ,CVVW 

po  AG0030 

rnFFD(20,S) 

OR AGOOAO 

ri^ENSIOM  PASECP(2n) 

OP AGonso 

DfMFMSirM  WPV(2C),  AITVJIOI,  ALPHAV(10>, 

NAFROOO) 

OR  AGOOftO 

rrMMPN  /PHAT/  COLllMP.CnPPTL  tOUHiei  18) 

OR  AGOOTO 

rrMMON/ AF°o/ 

OP  AGOOPO 

ATNSAT  ,ATNS4M 

,P  TANA 

.BART 

,BARW 

.BAPT 

f 

OP  AGOOOO 

PAPW  , RAPPT 

.BAPPW 

.BETA 

,BFN 

,CFT 

t 

OP  AGO  100 

tfW  .COP 

,CFB 

.CNANAC 

.CLABT 

,CLAT 

f 

OP  AGO  1 10 

CLAW  .CLTV 

,r  KWB 

.CKBW 

,CKBT 

.CKTB 

• 

OR  AGO  120 

CLATWV  ,0 

,00 

.002 

.OPR 

.DHL 

OP  AGO  130 

FAFF'  ,F 

,FL 

.FR 

.PI 

. RLO 

f 

CR  A GO  1 AO 

RIOP  .PBTAA'A 

,?>LETR 

.SLEWR 

.stsref 

.SWSREF 

t 

OP  AGO  ISO 

SKRT  ,SKTB 

.SKRW 

. SKHB 

.TRTPl 

.TRWPl 

f 

PP AGO  160 

CFl  .TANST 

.TANSW 

.TAN  SAT 

.TANSAW 

.TANSZT 

f 

ORAGOITO 

TAMS2W  ,XD1B 

♦XOIBT 

.XOl  T 

.XOIW 

.XNLCMP 

f 

OR AGOlaO 

XNLCCP  .ACT 

.ACW 

.XNLCLB 

.BODYL 

.TAILL 

f 

OP  AGO IQO 

WINGL  .RLISOR 

.niSOR 

.FRl 

.FCAP 

.COPNX 

« 

OP  A GO  20  0 

AfAP  .TNI 

, SPN 

.VPN 

.FAFNl 

,PMN 

f 

OP  AGO 2 10 

ANn5;F2  .SWSRN 

,PNnSE2 

.XL  INF 

,CR2 

.NCCN(  3) 

t 

OP  AG0220 

CRFPAX  .CRAMAX 

,B2 

.CNVR 

.BI 

.RZ 

t 

OR  AGO/TO 

SV2  .SLEI 

,SLFZ 

.XVA 

.XVB 

,xvc 

9 

OP  AOn2A0 

CT2  .CX 

, VOLN 

.VOLBT 

. VOLBOO 

.SW  PRFF 

f 

OP  AG0250 

BRAT  .POG 

OR  AGO  260 

c^MM^^i/AFR7/  COOP. enow 

.CDOT.COOON.COOOFF 

.COBCN.COBCFF.CnxX  , 

ITR  fP 

, OP  AGn27vT 

FPPT.FPP 

OP  AG0280 

. NAFPO 

OP  AGn290 

FOUrvAL  FNCE  ( NAFRn(  3) 

, (LUG  1 

f'R  AG0300 

Cr'^MPN  /AFTAP/  ARVT,  AFT13(13) 

OR AG03  10 

EOUJVAIFNCE  ( AFT13(5) 

, TANSVT 

) 

OP  AGO  .)20 

FCDfVALFNCF  ( ArTI3(3) 

, RCVT  ) 

OP  AG0  3'>0 

Cr'-MnN/APINTX/  JJ.ARtNCP) 

OP  AGO  lAO 

fPMMrN/PASnPG/  BA?;EP(59) 

OP  AG03S0 

rPMMPM/pPTAP/  NPnNF.NPRX.NRWX, 

NC  CNF  X.NPRXX.NRMXX 

OR  AGO 3 60 

CrMF'PN/RlKO/  01(201,  0 

(06),  02(96), 

FRCTNl ( 

A2).  FRCTN2(90)nRAr,0  3 7n 

,FPrTF'3(  ^2) 

OP  Ar,n3P0 

crMMPN/croExx/  kino,  it 

VPF  , ZIGYd  A) 

OP  AGO  10  3 

cpmf/pn/ppg/ 

OP  AGOi,no 

01  .THETAC 

.FINE 

.RS 

.Rl 

.RLl 

t 

OP  AGOA  10 

XFYl  .XTHEBT 

,XRT 

.RL3 

.ITN 

. AMACW 

f 

OP  AGO<*20 

amact  .thkrt 

.THKRW 

.RLIA 

.1  BTL 

.ATCT 

» 

OR  AGOABO 

ATCW  ,OMl 

,I TSECT 

.INSECT 

.RXINT 

.RXINM 

9 

OP  AGOAAO 

PTAN5T  .PTANSW 

,RCW 

.fltsew 

.XLENW 

.fltset 

9 

OP  AGO  A 60 

XIFNT  ,ORATin 

.ON 

.OE 

.03 

.RCT 

9 

OP  AGO  A 60 

NW  ,TCW 

,TCT 

.BT 

,BW 

. ART 

9 

OP  A GOA  70 

APW  ,TRT 

.TRW 

.SREF 

,0B 

OP  agoaro 

CrMMOfg  /FXTFPN/  ZARZ(2 

C) 

OR  AG0A90 
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COf'Mr’^/rpBnL  / kiARD(7e) 

FPUIVSLFNrF  (WAPr)(71),TR  ),  <WARn(7^),  TB) 

CrMMPN/ IM DAT  A / rcoit  PLALF, WEIGHT 
rrMMfN/ INOATX/  ZAP (2  3) 

CrvMPN/ INSFP  T/  IN?1<5(1G),  RBE,  INSlO(lO)f  TBLt  INS?(2) 
rpMMpu  /let/  XI.FT  10(10),  [APT,  XLF3(3) 
frMyp»j/NAFRC  / NAZ6(6),  PCASF,  NAZlBdB) 
rrMMPN/ruTP 1 / nuTP ( 15) , outoumczo) 

FCiiivAi  Fr.'CF  (nuTP(i),  rnsKFN) 

FPUIVALF^TE  (nUTP(?),  r.npniV)  , (0UTP(3),  cncowL), 

I  (nuTP(^),  rnFoiv),  (ruTF{6),  cdffwo) 

EPUIVAIFNCC  (nUTP(4),  CPPAFT) 

FCUIVAL  Fr-CE  ( nUTP(15),  CPPFWO  ) 

CrMMPN/PjnAT/  R jr.^(4  ) ,ACA  3,R  JD2(  2)  , XLBST.FTZLX 
COMMON/ SAV T I M/  K CL  A , SA VT ( 5 ) 

CPMMPN/SUMnuT/  PPPCDl/C),  XINrn(20),  WNGCn(20),  TAILCn(20), 

1 TAXLCn(?0),  FRir.Cn(20),  CDODNAIZO),  CD00FA(20),  CDFNAR(20), 
2CrFXRl(20),  C0FXR2(20),  C0BTAR(20),  C0LAR(20),  BnRCA(20), 

3rrpppn(20),  plovap(2o),  cpcwl(20),  frgcd(20) , cnPiAx(20), 

A CPPINT(20),  CnPWAR(20(,  CnHTAR(20),  CDVTAP(20),  CCTLAR(20), 
5CrPLSA(20),  BnROFF(20),  CnPTAR(20),  CnP0FA(20) 

CCMMCN/TDVPFR/  nUM(5),  SFXIT,DUMX(5)  , 7A(<»)  , FXTRA(57) 
FCUIVALFNCE  ( nUM(/,),  PEXIT  ) 

CPMMON/VERT/  SVTSRF,  BARVT,  TANOVT,  TAN2VT,  TAN<,VT, 

1 ACVT,  ATM2VT,  ATCVT,  AMACVT,  TMACVT  , BTAWT, 

2 pnrvT,  TRTPVl,  PAPPVT,  BAPVT,  FLVTST,  XLFNVT, 

3 CFVT,  TRAVT,  RXfNVT,  FSOVVT 
ECDIVALFNCF  ( THKRVT,  TRAVT  ) 

CrMMrN/7 7Z /r OP 51 ( 2 0),CDP5C( 20 ),C0P53 (28)  ,CnNnG(58)  , CONGO) 58) , 
lCnPN5(^A),r.nPMl(  52),CnNVK(58)  ,CDABT6  ('»30  ) ,FLRM7(22)  ,C0P70(2  2a)  , 
2CrP71(  228  ),CDSPHR{ 30) 

NAM  Ft  fST/RUG/POPN,CPPPTL  ,CFR , COL , COOP, C DPW ,GFW ,000 W , 

I GPP T, GET, CnCT.r PRPFF,GnR  ON ,GD OON, GO  OOF F 
NAMEL  rST  /NAMVFP/  CDOVT,  COPVT, 

1 SVTSRF,  BARVT,  TANOVT  , TAK2VT,  TANAVT, 


1 ACVT,  ATN2VT,  ATGVT,  AMAGVT,  TMAGVT, 

2 BOCVT,  TRTPVl,  PAPPVT,  BAPVT,  FLVTST, 

3 OFVT,  TRAVT,  RXINVT,  FSOVVT 

MAM  Ft.  IST/npG/THKRW,  THKRT,STSRFF  , S W SRFF  , ( TS  EG  T , I WS  F CT 


PTANVT  , 
XLFMVT, 


PP  AGOSOn 
DPAGOS 10 
DR AGO  520 
OR  AGO  5 30 
OP  AGO5A0 
n*’  AG05  5 0 
OP AG0S60 
DP  AG0S70 
PP  AGO S 80 
PR  AGO  800 
PR  AGOf-00 
no  AGOA 1 0 
no  AG062  0 

no  AG0fi3n 

00 AG0640 
CO  AGn650 
po  AG0660 
no  AGOGTO 
OP  AGOhBO 

no AG08PO 
no  AGO  700 
po AGO  7 10 
GO  AGO  7 20 
po  AGO730 
DO  AGO  ZAO 
OR  AG0750 
no  AG0760 
OR  AGO  770 
PR  A GO  7 80 
PP  AGO  700 
CO  AGOROO 
OP  AGP  8 I 0 
DP  AG0820 
no  AGO 8 30 
PR  AGO  840 
PR  AG0880 
f'o  *00  8 60 
PO  AGOOZO 
DO  AG08  80 
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FCOM  AT(  //  I 3, 

2X, 

6H 

AFRO, 

2H, 

9 

no  AGOROO 

1 

6H  rnpN, 

2H 

- f 

E 10. 3, 

2H, 

9 

6HCDPRTL, 

2H 

- f 

E10.3, 

2H, 

t 

DR AGOOOO 

2 

6H  GFP, 

2H 

- f 

E10.3, 

2H, 

9 

6H 

GDL  , 

2H 

- f 

Ein.3, 

2H, 

t 

DO  A GOO  10 

2 

6H 

GOOB, 

2H 

F 10.3) 

OP  A GO  0 20 

123 

FORM  AT(  //  I 3, 

2X, 

AFRO, 

2H, 

9 

po  AGOO  30 

1 

6H  rnwM2, 

2H 

- t 

E 1C. 3, 

2H, 

9 

6H 

GDA, 

2H 

* 9 

E10.3, 

2H, 

« 

no  AG0O40 

2 

6H  ALSRT, 

2F 

- ♦ 

E 10. 1, 

2H, 

9 

6H 

ALPT, 

2H 

= 9 

E10.3, 

2H, 

f 

no  ^ GOO 8 0 

3 

6H  CNAST, 

2H 

“ 9 

F 10.  3) 

00  AG0O60 

1 24 

FCRMATt  //[ X, 

2X, 

6H 

AERO  , 

2H, 

9 

PR  AGO070 

1 

6H  TN , 

2H 

“ f 

F 1C.3, 

2H, 

9 

6HCDPBT1 , 

2H 

* f 

E10.3, 

2H, 

f 

PR  AG008O 

2 

6H  CnPTl, 

2H 

“ ♦ 

F 1C. 3, 

2H, 

9 

6H 

GOPWl  , 

2H 

* t 

E 10.3, 

2H, 

f 

po  AGOOOO 

3 

«;t-  THCRT  =, 

F 10 

• 3) 

OP  AGI  oOO 

125 

FPrm  AT(  //  13, 

2X, 

6H 

AFRO, 

2H, 

9 

noAGioio 

1 

6H  cnpw. 

2H 

* # 

E 10.  3, 

2H, 

9 

6H 

CFW, 

2H 

® f 

E10.3, 

2H, 

t 

no  AG  1020 

2 

6H  enow. 

2H 

• # 

E 10. 3, 

2H  , 

9 

6H 

GOPT, 

2H 

* t 

F10.3  , 

2H, 

9 

no  AG  10 30 

1 

6H  GFT, 

2F 

E 10.3, 

2H, 

9 

6H 

GnOT, 

2H 

* f 

F10.3) 

no  AG  10  40 

HA  221 


we 

FORMAT!  //W,  2X, 

AERO, 

2H, 

, 

TR  AG1050 

i 

f,HCC«nFF,  2F 

- * 

F 1C. 3, 

2H, 

, 6H 

CDBON, 

2H  =,  E10.3,  2H, 

# 

HR AGl 060 

2 

5F  COOI,  2F 

• f 

F 1C. 3, 

2H, 

, 6H 

cnooN, 

2H  * , Fio,3,  2H, 

t 

OR  AGl 070 

3 

fHCrOOFF,  2F 

= f 

F 10.3) 

OR  AGl 080 

TATA  PASFCP/ 

OP  AGIOPO 

1 

C.O,  -.137 

f 

0«  8 f “ • 

137, 

0.9, 

-. 145, 

l.O,  -.195,  1.2, 

101 

, PR  AGllOO 

1 

1.5,  -.172, 

2. 

0,  -.141,  3 

• 0 , — . 

092,  4 

• Of  '“•065*  5»0f  ■“ 

.043/ 

OP  AGl  110 

pf'i  V (y,co,ci,c2. 

C3)  = X ♦ 

I X^IC3*X 

♦ C2) 

♦ cn  ♦ CO 

OP  AGl 120 

T4K  F HIT  L aTER 
JJ  = 1 

xr'IMLT=ITYPE 

J = NAFPnt  !■’) 
IF  ( lAOT  .ro. 
IF  ( .1  .FO.  1 


ER  noAGlUO 

no  Ar.i 
'IR  AG  I I 50 

) r'RaGll60 

T.  I ) ATMAVT  = ARVT  * TAN4VT  TRAGI  WO 

1 ) WPITE<6tD0G)  TRAGllflO 

FRICTION  DRAG  ***  ALL  MACH  NUMBERS  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦TP  Ad  lor) 

OP  AG  I ?00 


call  fpctNI AL  T, FCFBtFCFT.FCFW, SWEPSRfRM) 
rrppn  = o. 

FL  = 0. 

rpA  = 0. 

CTPPTL  = 0. 

CTPT  = 0. 

CTPW  = 0. 
fCPPTl  = 0. 

COPWl  = 0. 

TFl  = 0. 
crPVT=o.o 
CTPV  1=0  .0 
pnccri JJ i=CFP 
WF’GrCI  JJ)=CFH 
TAIL  rc(  JJ)=CFT 
TAXI rni jj)=rFTT 
^co  CONTINUE 

IF(  ITN.E0.3)  TN  = ATAN 1 1./ IFR  + FR ) I^DPR 

IFI  ITN.LF.P.OR.  ITN.GT.3)  TN  = ASI Nl FR/ I ,25  + FR^FR ) ) ♦TPR 
IF!  ITR  IP  I 500,  510,  61C 


TP  AG  W 10 
OP  AG  W?0 
OR  AG  I 2 30 
TW  AG  1 240 
OP  AG  12  50 
OP  AG1260 
OR  AG  I 2 70 
[)R  AG  12 80 
nPAG12P0 
TR  AG  1 300 
TP  AGl  3 10 
TP  AG1320 
OR  AGl 330 
OP  AGl 340 
OR AGl 350 
PR  AG  1 3(S0 
AG13  70 
TO  AG1380 
OR  AGl 300 
OR  AGl 400 


C PP AGl 410 

C^4  <♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦  DRAG  CALCULATIONS  FOR  r*. IE. 0.9  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦op  AGl  420 
C OR  AG  I 4 30 

5C0  IF(ITN.E0.4)  GO  TO  501  rRAGl440 

CPPN  = CFR^  I 1. 5/FRR^^l  .54-7. /FRBP^3)  0PAG1450 

TP  TP  502  rRAGl460 

5C1  CALL  L IMF!  l5,RM,CnSPHR ( 1 ) ,CnPNI  nPAGl470 

5C2  COOT  = CFT^I  1.  + 2.^THKPT+100.*THKRT^P4)  0PAG1480 

CnOVT=CFVT^<  1.0  ♦ P.O^THKRVT  ♦ 1 00. 0*TH KR VT^^4 I CRAG1490 

IF  ( lART  .NE.  1 ) COOVT  * 0.  nPAG1500 

CrPVT=CCOVT-CFVT  TRAG1510 

IF  ( lART  .NE.  1 ) COPVT  = 0.  ooAGl52n 

5C6  IF(NW.FO.l)  COOW  = T FW^  I 1.  + 2.*THKRW+100.  ♦THKRW^^4l  nPAGl530 

CDPT  = CDOT-CFT  nRAGl540 

IFINW.FO.U  COPW  = CDOW-CFW  DPAGISSO 

5CR  GC  TP  RFO  opaGISAO 

C OP  AG  WTO 

C ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦  DRAG  CALCULATIONS  FOR  M = l.O  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦no AGl 580 
C OP AGl 590 


HA  222 


o n o 


i 

I; 


5in  IF(ITN.rT.A)  GO  TC  5AO 
I F(  fTN  .EC  .A  ) GO  TP  SAG 
|r(  ITN.P0.3)  GO  TP  52C 
CALI  I INF(  1C.TN,CI)P5C(  n,cnPN) 
GO  TP  S50 

S?n  gall  I I^'F(  lO.TN.rpPSK  1)  ,cnPN) 
CP  TO  550 
SAO  CPNTINUF 

EP 1=PL 1 fl/Cl 

PDPN  = FP 1*(E0 !♦(-. OC? 1*FR 1 ♦ 
T T'"  SEO 

5A5  CALL  1.  INF  ( 1S,RM  .CPSPHP  ( 1)  ,CDPN» 
CPNTIMIIF 


PR  flGl hOO 
PPftGlMP 
CP  AG1A20 
FR  601630 
PP  6G1 6A0 
PR  AGi 550 
FP  AG  1660 
OP.  AG  1 670 
PP  AG  1680 

038)  - .210)  ♦ .A08  ^PAG1600 

OP  AG1700 
CPAGl7in 

Oft  AGi  r?n 


TEC8T  = 0.0 

If  (IRTl.rjF.C)  THDR  r = A T AN  ( ( I .-DO  ) / ( R I D+ R LD ) ) 
IF ( IPTL  .FO.C)  GO  TP  SBC 
IF(  I«Tl  .NF.C)  GP  TP  56C 
StO  NPTS  = lA 

570  r.Ail  LINF(NPTS,  nD2,C0P53(  n.COPBTl) 

CCPPTL  = 0.0 

IF  I THCPT  .LF . 0.0  ) GO  TO  580 

CPPRTL  = ( CDP8Tl*8.0) /(P  Lr)*RLO*THORT*OPR) 

seo  in  It  uc.Fo.i  j fl  = i8.6 

ir( MAFPCI 8 ) .FQ.  1 ) GP  TO  5S0 
ses  continue 

SSO  CALL  LlNr(26,  ATNS  AT  ,rPP  PI  ( I ) , CDPTl) 

COPT  = CnPTl»ATCT*STSREF 

IF{  lAPT.NE.l)  GO  TO  593 

gall  L INF!  26,  ATNAVT.rOPPK  1)  .CPPVl) 

CPPVT  =CnPVl*ATCVT*SVTSPF 
SS3  IF(MAFRn(9  ) .FQ.  1 ) GO  TO  59A 
5F6  CPNTINUF 

SSA  IF(MW.FO.O)  GO  TP  600 

CALL  LINn26,  A TN  S AW  ,0  OP  P I ( 1 ) , COPWl) 

CDPK  = CDPW1*ATG,W*SWSPFF 


pP  AGI 730 
OP  AGI 7A0 
no  AGI  ^50 
GP  AGI  760 
OP  AGI 770 
GO  AGI  780 
no  AGI  TOO 
0PAG1800 
PRAG18  10 
PPAG  1H?0 
CP  AG1830 
OP  AGI 8A0 
OR  AGI 850 
DP AGI 860 
po AGI 370 
CO  AG  I 880 
po  AG18F0 
no  AG1900 
PP  A G 1 9 I 0 
Fft  AG  1020 
PP AGI 030 
o:R  AG1O60 


600  I = 12 

IFIJ.FC.l)  WR1TE(6,UA) 
CP  TP  890 


I,  TN,  COPBTl,  CDPTl,  COPWl, THPBT 


610  CGMTINUF 

IF  ( J .FO. 


nPAG  CALCULATIONS  FOR  M.GE.  1.2 


I ) WPITf(6,D0G) 


c 44444***4>4*««**  “ACH  NO.  A. 000  USES  SUPERSONIC  ROUTINES 
C 

IF  IPM.LF.A.)  GO  TO  620 
620  GP  TP  (670,  6A0,  650,  720,  725,  725), ITN 
6A0  CALL  L INF(  29,nML  ,GnNVKU  ) ,C0WP2) 

GO  TP  700 


pp  A G n 50 
PP  AG  I 0 60 

PP  A G,  1 F.  7 ,) 

FR  AG  10  80 
OP  AG  1900 
OP  AG2nOO 
Oft  AG?0  10 
GR  A ~.2  120 
CP  AG2  0 3n 
******4****4*noAG2 )An 
PP  AG2P50 
PP  AG2060 
PP  AG 20  7 0 
HP  VG203O 
pP AG2090 


650 

CALL  L INF( 29,nML ,CONCOl 1 ) ,CDWN2I 

PP AG2100 

GO  TO  700 

OP  AG21 1 0 

6 70 

call  L INF!  29,nML  ,cnNrG(  1 ) ,C0W*<2) 

nPAG2l20 

7C0 

CONTINUE 

HP  AG2 1 30 

COPN  = GnwM2/PM**2 

OP  Ar,2  1 AO 

HA  223 


rr  Tr,  7 20 

7?0  tF(ITN.rr.A)  CALL  L I NF ( 1 5 .RM.COSPHR (1) ,CDPN» 
cr  rr  7 20 
725  crNTINUF 
r^w^'?  = 0. 

r/'Li.  PL  TwntcM.cppN  I 

730  IF  (IPTI.FO.OI  GO  ro  76C 
in  IPTL  .MF  .0  ) GO  TO  7=0 

750  CALI  '’IINFIIO,  ?l,C0APT6(l)  tRLOB.OnZ,  COflJ 
CCPPTL  = .■’5<'C.nA*(  l./PLO  )<‘*2 
I F(  CCPF  Tl  .LT  .0.0  )CnPPTL  = 0.0 
770  Cr'NTINUF 

1F(  II  lie  .FO.  1 ) CALL  LIF'FIll,  R'^.FLRMTdl,  FL) 

IF|  FI  .L  T.O.  ) FL  = 0. 

I FI  ITSFCT .MF  . I )G0  TO  77C 

CCPT  = TH'<','JT*THKPT/(ofTA*(RXIAT-RXINT*PXINT)  )*STSRFF 
IF  ( P Tf.MST.L  T . l.C  ) C[1PT=THKRT*THKRT/(TANST*(  PXINT-PX  INT^RX  INT  I 1 
I ♦FT  GF  FF 

IF ( I ART  .MC. 1 ) GO  TO  77C 

CPPVT=THKP VT*THKRVT/I PF  TA*( R XI NVT-R  XI NVT*RXI NVT  J ) *SVTFRF 
IF  (P  TMXVT.lt.  l.O)  C.nPVT  = THKR  VT*THKRVT/  I T AN  SV  T * ( R X I A V T-R  X I NVT 
I ♦PX  INVT  I »*FVTSR  F 
770  CONTINUF 

IF( 1TSFCT.NE.2)  GO  TO  780 

COPT  = THKPT*THKRT*5.333/8ETA*STSREF 

IF ( PTANST .LT.  1. 0 » COPT  = THKR T* TH KR T*5. 333 /T ANS !♦$ T SR FF 

I FI  I ART .NF. 1 I GO  TO  780 

CrFVT  = TFKR VT^THK RVT*S.333 /BETA*  SVTSRF 

I F( ptamvT.lt.  1.  )CnPVT=THKRVT*THKRVr*6.333/TANSVT#SVTSPE 
7F0  roMTIMur 

IFI  I TSFCT.NF .3)  GO  TO  820 

AKnMS=PCT*lRCT-FLTSFT)/(  XLFNT*  (R  C T- X LF  NT-F  LT  SE  T ) I 
CnDT=  THKPT*THKRT*AKnMS/PE  TA*STSRFF 

IFI PTAMST.I  T.  1. ) CnPT=THKRT*THKRT*AKONS/TAMST*STSREF 
IFI  I APT  .rjF  . 1 ) GO  TO  82  0 

Ai^nMFV  = PCVT*|RC  VT-FL  VIST  ) / (XLFNVT^IRCVT-XLFNVT-ELVTST  ) ) 
CrPVT=TFKP  VT*THKRVT*AK0NSV/BETA*SVTSRF 

IFI  PTANVT.lt. l.»CnPVT= THKR VT*THKRVT*AKnNSV/TANS VT*S VTSR  F 
820  CCMTINUF 

ir(7'W.NF.  1)  GO  TC  EPO 
IF(  IwSLCT  .NF  . n GO  TP  830 

rrPW  = THKRW*THKRW/ (PFTA*(RXINW-RXINV.*RXINWI  )*SWSREF 
I E(  PTANSW.L  T . 1.0  ) COPW  = THKRW*THKRW/(  TANSW^-IRXINW-RXINW^RX  TNV>'  ) I 
I •SWSREF 
R20  CCNTINUE 

IFI  IWSFCT.NF  .2)  GO  TO  e^fO 

CFPW  = THKRW*THKPW*5.333/8ETA*SHSReF 

IFI PTANFW.LT.  I .0  ) COPW  = THKPW*THKRW*5.333/TANSW*SWSRFF 
SAO  CONTINUF 

I F(  IWSFCT  .NF  .3  ) GO  TC  860 

AKOMS  = PCW»{RCW-FLTSFW)/(XLFNW*(RCW-XLFNW-FLTSEWM 
rcpw  = THKRW*THKRW*AKrNS/BFTA*SWSREF 

IFIPTANSH.LT.  1.0)  COPW  = THKRW*THKRW*AKnNS/TANSW*SWSRFr 
8 60  CF'NT  INUF 

IF  ( J .EO.  1 ) WPITF(6,nCG) 


PP  AG2 150 
CP  AG2160 
OP  AG21 70 
OP  AG2 1 80 
OP  AG? I QO 
Po  AG220n 
CP  AC, 2?  10 
rt  AG2  2 20 
pp  AG22  LO 
OP  AG?7  '4l 
^R  AC, 22  50 
OP  AG? 2 60 
pp  AG? 2 70 
PR  AG? 2 op 
pp  AG? 2 on 
OP  AG2  8')0 
OR  AG2  310 
OP  AG 2 8 2 0 
PR  AG2320 
pp  AG2340 
CP  AG2  3 50 
PP  AG?  8 60 
PP  AG237n 
PPAG2380 
0PAG23O0 
po  AG2400 
OP  AG26 10 
PP  AC.2A2  0 
ro  302430 
PP  AG2440 
pp  AG2450 
p P A G 2 4 f,0 
PR  AG247n 
pp  AG248n 
no  aG2;,ot 
np  AC,2  800 
PP  AG25  n 
pp  Ar,2S?0 
pp  AG25  ■<0 
CP  AG2F  40 
CP  AO? 55  0 

PC  A02550 
OP  A025  70 
OP  AG?  5 00 
OP  AOPSNO 
pp  AG2500 
fo  AG25  10 
CP  AG?  IS?  0 
pp  AG2  63n 
OP  AG2640 
PP  AG26S0 
pp  Ar,2f,(,o 
CP  AG2670 
PR  AG268 0 
pp  AC, 2690 


22 


eso 


q<;o 


<700 


r 

c 

r < ' 

c 


CHN  T INVIF 
1=12 

ir(j.FC.l)  WRITF(t,123)  I.  Cnwy2,  CDA,  ALSRT,  ALPT,  CNAST 

rrNTiNijF 

crPFT=o  .0 

TP(  f ART  .rn  . 1 J COPHT=rnPT 

CFP^  AO ( jj  ) =r  npM 
rn  AP  ( jj » =crL 
rnow  AP ( JJ ) =cnpw 
crHTAR( JJ  >=rnPHT 
CrVT  AR{ JJ  1=CDPVT 

cftl  ap I JJ  )=rnpT 
crPLS=cnPw  4 rnPT  ♦ cnpvr 
CFPL  SA( JJ )=CnPL  s 
creT  AO ( JJ I =cnpR  n 

:***«#♦*♦  lug  PRFSSUPF  DPA^j  ♦♦♦  ALL  MACH.  NUMBERS 


CCL  = FL/SREF 

cm  i=n .0 

rCFL  2 = 0.0 
rONT INUF 

CFFXR  l(  JJ  )=CnFL  I 
CTFXP  2(  JJ  )=r  r)FL2 


OP  AG2  TOT 
CT  Ar27l0 
op  AG2  7 20 
OR  A G2  7 JO 
CP  AG2  7A0 
op  AG;>750 
DP  AG2  7f-,0 
OP AG2  770 

no AG^reo 

CP  AG? 700 
CP  AG?ROO 
OP  AG?B  1 0 
OR  AG?  <520 
PP AG2n30 
np  AG?eAO 
PP  AG?R5n 


TPTAL  BODY  DRAG  *♦*  ALL  MACH.  NUMBERS 


rroR  = rroN+crPETL ♦CFP+cnL 
cpop=rpnB  ♦ CPFL  i + cnFL2 
CCPBOCl JJ )=f OOR-CFB 
I = lA 

ir(j.FO.n  KR  ITE  (7^,  12?)  1, 


CDPN,  COPBTLt  CFB,  CDL, 


0C2 


rrow=CDPw  4 cfw 


rPNT  INUF 

C.POT  = CDPT  + CFT 


qc6 


crovT  = 0.0 
IF(  lAPT.NF.n 
CrOVT=rCPVT  ♦ 
CONTINUE 


CP  AG?  3 70 
PP AG2BP0 
PP  AG?  A 90 
DP  AG? 000 
pP  AG?9  10 
op AG?O?0 
PP  AG2O0n 
CP AG?9A0 
PR  AG?95n 

pD AG?P70 
op  AG29RJ 
FP  AG? 090 
PP  AG’OOO 
PR  AGJOIO 
CPOR  PPAG30?0 

CP  AG 4 140 
ACI  AO 
PP  A G 7 1 F 0 
FP  AGJ1A0 
OP  A G7  170 
pp  AGO  180 

THTAL  TAIL  DRAG  ALL  MACH.  NUMBERS  ♦♦*•♦♦**♦***♦  *110  AG  imo 

pp  AG  11 00 
rPAG3  1 10 
CO  AG3  1?0 
CP  AG1  130 

noAG3lSO 
pp  AG3 1 FP 

GO  TO  906  OR  y 70 

CFVT  PPAG31H0 

PP AG3  190 


TOTAL  WING  PRAG  ♦**  ALL  MACH.  NUMPEOS 


BASF  PRESSURE  DRAG  (POWER  CN/POWER 


IF  ( KSTEP  .LF . I ) GO  TO  915 
KSYS  = 1 
NTFN  = 10 

K INPP  = MODI  K INC, NTFN  ) 

IF  ( KINPH  .NF.  3 ) GO  TO  8A97 


HA  225 


pp  AG3200 
PR  AG32in 
pp  AG3220 
PP  AG3?30 
PP  AG32A0 


CALI  Brrsrnj  rm,  alt,  cobst  ) 

CrPnM  = CORST 
CrPOFF  = CDBON 
cr  TP  1 177 
BA97  CPNTnUF 

FXIT  = PFX IT 
9rB  c^^'TIN^J^ 


crBOP=n  .0 
rrBnFF=o  ,o 

IF  ( KSTFP 


IF  ( KSTFP  .LE  . I ) GO  TO  1177 
CF  = SOFT  ( 576.  * EXIT  / PI  » 

fiP  = ( CP«*2  - nF**2  ) / Dl**2 

CALL  L IN'FI  10,PM,  PASFCPI  I ) .CPRASF  ) 
rrBrFF=-rpRASF»DP»*i/ni** j 
C^BO^'=-CPP  ASF*AP  ♦PR/n  1 
l 1 77  C^^T  INUF 

POP-  FF(  JJ  )=CnPOFF 
ppppN ( J J )=cnPON 
1 = 15 

IF(j.FC.I)  WPITF(6,125J  I,  CPPW,  CFW,  CPOW,  COPT, 


9 10  CONTINUE 

cm  1=0.0 

IF  I KSTFP  .LE.  1 ) GO  TP  1199 

IF  ( KINO  .LT.  30  ) GO  TO  1199 

ZAP! 23)=ALT*1C0C. 

ZASAV  = ZARZ ( 16) 

ZAP? ( 16  ) = RM 
CALL  CPINLT 
FPGCOI JJ)=C0PAFT/ACA3 
CrCWl  (JJ)=CDCOWL  ZACA3 
BinvARI JJ )=CnPDI V/ACA3 

CCP  IML=CPPP1 V ♦ CPPAFT  ♦ CDCOWL  ♦ COPFHO 
CCP  IT'XI  JJ  )=cr)PlNL 
CCP INTI JJ  )=COPINL*XNINLT 
X IMC n J J )=CPSK IN  * XNINLT 
Z AOZ ( 16)=  ZASAV 

CrFTOT  = CFP  CFW  4 CFT  ♦ CFVT4  fCOSKIN  + COFOIV  ♦ 
FP  ICC C( JJ )=CDFTOT 
1199  CONTINUE 
966  CPNTINUF 
r 

C*^***^************  TOTAL  ZERO  LIFT  DRAG  (POWER  ON)  **• 

C 

CnOON=rCOB  ♦ coot  ♦CDOV  ♦ COOI  + coovt  * copon 

c 

04«4*4*«*«***«*«>***  TOTAL  ZERO  LIFT  DRAG  (POWER  OFF)  *** 

c 

CCOOFF  = CDOON-rOPON^-CDBOFF 
977  CONTINUE 

IF  I K SYS  .5  T.  1 ) 3 C TO  923 

crpB  = cnooN 

9 15  CONTINUE 
KSYS  = 2 
FXIT  = SFXIT 


OR  AG3250 
CP  AG376(1 
PP  AG32  7 0 
PP  Ar,42P0 
PP  AG3290 
00  AGO  300 
PP  AGO  3 in 
CP  AG0320 
OP  AG3  03n 
PO AGO  040 
po AG305n 
OR  AGO  0 60 
po A GO  0 70 
Oo AGJ3P0 
PP  AGOOoo 
00  aG34('0 
OP  AGJ4  10 
po  AG3420 
00  AG  3 4 00 

CFT,  COOT  roAG3440 

OP  AG3450 
OP  AG3460 
OR  AG0470 
no  AG0  4P0 
PP  AG04'’n 

po  AG05no 
P0AGJ5  10 
00  AG052O 
PP AG353n 
op  AG  3 540 
OR  AG3‘^‘'0 
05  AGOSf  0 
no  AG0570 
op  AG’ 5 PO 
oo  AG05o>G 
PR  AG0600 
po AG3610 

OCFFWC)  *XMNLT  oR/vr.0620 
o=  AG0630 
op  AG3640 
no  AG3650 
05  AG0460 

ALL  PACH.  NUNRERMP  AG3670 
OT  A G0  6PO 
nRAG36O0 
PR  AGO 700 
ALL  PAi.H.  NUYPFPP  AG07  10 
po  AG3720 
OP  AG3730 
DP  AG3  740 
PT  AG3  75  0 
PR AG3760 
PP  AG3  r to 
OR  AG37Bn 
OP  AG3  790 
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Gn  TO  QOfi 
S2n  COMTINUP 

rnns  = rnooN 

I = 16 

IF(J.EO.l)  W«ITE(6,126)  1,  COBOFF  , COBON,  CDOIt  CDOC6,  COOGFF 
IF  ( J .Fy . 1 » WF  rTE(6,BUG) 

IF  ( j .FO.  1 ) WPITF  ( 6,  KABVEP  ) 

CPPTnT=  rOPN  ♦ COPW  ♦ CDPT  *■  COPVT  CDFLl  ♦ CnFL2  ♦ COPR^L 
1 ♦ rnpcr:  ♦ r cp  i ml* XN i Mi  T ♦ col 

CPPTAP( JJ  »=CnPTnT 

rrptiFF=cr'PTrT  - cdbon  ♦ coboff 

CPPDF  JJ  |=COPnFF 

rro^'r'  A(  JJ  )=rnoOM 
f rnpf  A(  JJ  ) =cnonFF 

PFTtIFM 

FKn 


nP  AG3BOO 
GR  4G3RIO 
PR AG3B20 
nP  AGjR  JO 
pp  AGBR40 
OP  Ar,385n 
OP  AG  JR 60 
pp  AG3R70 
PP  AG3RP0 
PP  AGJaOO 
pp  AP.JOOO 
pp  AGJP  10 

pp  AG7P?n 

no  AGJ030 

OP  AG 3 0^,0 

no  AGIO  GO 


SLRPPUT  IMF  IMLIFX  ( MPP,  CLAlNLt  COBON  ) 

NUK.C^-rrS*'  P .K.MGOnNOUGH  FIV/E8C0  10/18/73 
CPMMUN  /AFR7/  AZLinil),  NAEROOO) 

PGM=MIJK  .GM-CGSM  GGJ/RKM  FIV-EBCD  7/11/73 
GLINT  ANOMALY 
RFA(*A  KAR.KM 
riMFMSIPM  RASECP(20I 

fPMMPN  /INSERT/  ZXl7(17lt  TNOZL,  2X15(15) 
common  /FORNOW/  NRZ,NALT,RMV(20» fALTV(lO) fFRBTfFACTCR 
COMMf'N  /IMCOMM/XLPLMP,  XFFRNG.XINLET.XTI  PCLt  STFRM,  TNC 
FCUIVALFNCE  ( XFFRNG,  XFWOA  ) 

COMMON  /EXTFRN/7 AP ( 20) 

FOUrVALFMGF  IZAPI17),  XMRJTO  ) , ( Z AR ( 6 ) , XTOT AL ) 
FQUIVALFNCF  ( XCPU  PPAMBL(12q)  ) 

FOUIVAl  FNCFIPRAMBl  (09)  , CMAN)  , ( PR  AMBL  ( 1 00  ) , CNBN) 
COMMON  /C30FXX/  INIZ.ITYPE,  114(14) 

POmmoM  /INPATX/7X9(9)»XCHECK,XFRNG,  2X12(12) 

COMMON  /PJOAT/  ZX3( 3) , A6A3,ACAi,  2X4(4) 

COMMON  /BASVAP/  ZA7(7),  'WI , STI , ARW,  ZAIO(IO) 

COMMON  /UPINLT/  PRAMBL(129)  , XCGDl 
COMMON  /ALFRLK/  AMACH,  AMFX13(13) 

COMMON /LFT/ 


(ML  r 0010 
IN  I I 0020 
I ML  I on  30 
IML  10040 
lA'L  10050 
INI  10060 
IML 10070 
IML I 00 BO 
IML  fOPPiO 
r'L 10  100 
IM)  10  I in 
INL  10  120 
IMt ini^n 
I ml  I 0140 
r'L  I 01  5 1 
P'l  10160 
INL 10171 
IMl  iO  IRO 
INI  10  If’O 
INL 10200 
INI  10210 
I NL I 022  0 


1 

ATMS2T 

, ATN  S2R 

f SFW 

.SET 

.OMW 

.DMT 

» 

INI  1 0230 

2 

PI  4 

,RL  5 

, ALPHAR 

.R.I  TWV 

.1  ART 

. ICNTRI 

f 

IMl.  102AO 

3 

02 

,PL  2 

IML  10250 

COMMPN/CPG/ 

INI  10260 

1 

ni 

, THF  TAC 

.fine 

. RS 

.Rl 

.RLl 

f 

I ^'L  I 02  70 

2 

XCYl 

, XTHEBT 

.xbt 

.RL3 

.1  TN 

, AMACW 

f 

INL 1 02R0 

2 

AM  act 

, THKRT 

.THKRW 

.RLIA 

.IBTL 

. AT  CT 

♦ 

IMLin2nO 

4 

ATCW 

.OML 

, I TSFCT 

.IWSECT 

,RXI  NT 

. RXINW 

9 

INL  in  300 

5 

btanst 

,flTANSW 

.RCW 

.fltsew 

.XLENW 

.FI  TSFT 

9 

INL  10  J 10 

6 

XI  ENT 

,QR  ATin 

,on 

.OE 

.03 

.RCT 

9 

INL 10320 

7 

NW 

, TCW 

,TCT 

.BT 

,BW 

.ART 

9 

INL  I 0030 

8 

ARWX 

, TR  T 

.TRW 

. SREF 

.08 

INI  I 0 340 

COMMON /AFRO/ 

1NLI0350 

1 

ATNS4T 

, ATN  S4W 

.BTANA 

.BART 

.BARW 

.PART 

9 

INL  10  360 
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2 

H APVl 

, BAPPT 

,BAPPW 

,RETA 

,RFN 

,CFT 

t 

INI  10  370 

3 

r rw 

,cnB 

,CFB 

,CNANAC 

,CLA8T 

,CLAT 

t 

r^'l  10380 

4 

ri  AW 

,CLTV 

,C  KWR 

, CX8W 

,CKBT 

,CKTB 

t 

IML 10390 

c 

n ATWV 

,0 

,DD 

,nD2 

,nPR 

,dhl 

9 

IML! 0400 

t 

FA  F*'' 

,F 

,FL 

,FR 

,PI 

,RLD 

f 

IML 10410 

7 

PLOP 

,D8T  AA'A 

, SLFTP 

, S L F WR 

,STSRFF 

,SWSRFF 

9 

r'L  10420 

8 

SKPT 

, SKTP 

, SKBW 

, SKWR 

,TRTP1 

,TRWPl 

9 

IML  104  30 

9 

r FI 

, TAMST 

, TANSW 

,TANS4T 

,TANS4W 

,T ANS2T 

9 

IMl 10440 

A 

T AMS2W 

,XD  IB 

,XD1PT 

, XUl  T 

, XOIW 

,XNLG"R 

9 

IMl  I 0650 

8 

XML  G FB 

, ACT 

,ACW 

, XNLCLB 

,80r)YL 

,TA  IlL 

9 

I Ml  I 0460 

C 

W I M 01 

,PL iSOR 

,D1S')R 

,FRl 

,FCAP 

,cnPMx 

9 

IMl 10470 

C 

AG  AP 

, TN  1 

,SPM 

, VPN 

,F  AFNl 

,PWN 

9 

IMl  10  400 

F 

^ ^|  n c p 2 

, SWSBM 

,RNnSF2 

, XLI  NF 

,CR2 

,NCCM( 31 

9 

IMl  104^0 

F 

GP  FM  AX 

,CP AMAX 

,62 

,CNVR 

,BI 

,HZ 

9 

lAM  10500 

G 

SV2 

,SLF  I 

, SLEZ 

, XVA 

,XVB 

,xvc 

9 

IML  T05  10 

H 

C T2 

,CX 

,VnLN 

, vnLRT 

, VnLBPO 

,SWRRFF 

9 

I Ml  I 052  0 

I 

FR  AT 

,RnG 

P'l  1 0530 

rr>-‘MnM/CHK/CnM  1 ,KAR 

,KM 

IMl  I 054  0 

^ AMFL  IST/OHECK/  APM 

, SFN , TRM, A TMS2N  ,8APN 

,aicln,thkrn 

, R X I N'N , 

IML  10550 

ISl FM, OTAMSN, 

CMP.M,nFLNN,  CnNl 

,KM,KAR 

IMl  10560 

rs  T/nijTPUT/BN-,RCM,TCNt  SLF^^f  XCPI  tCLAM  ,ARNt 
I rPROFF, FL  ATWV,PM,CLAIWV»CMANtCNBN 
Nf*^FL  IST/INPLT/  >MP  JTO  ,STER  M ,X  I NLE  T,  XLOUMP,  XFRNG  .XTCTAL,  03, 
i*Ca3, Ai.SPEF.XTIPCL, I TYPE , XFWDA , XOl T ,C LA T,  RHV, Cl ,XCHFCK, 

2SrT, FRBT, «T, TRT, TNOZL , FACTOR  , A6A 3 , XCGOl , ART 


IMl 
1 ML 


ICC2  FrpMAT(//l3, 

2X, 

6HINTW0D, 

2H, 

1 6N 

XCPI  , 

2H 

=,  E1C.3, 

2H, 

9 

6H 

CLAN, 

2H  =, 

E 10.3, 

2H 

‘ 2 6H 

CLAM, 

2H 

=,  F1C.3, 

2H, 

f 

6H 

CKNB  , 

2H  = , 

E10.3, 

2H 

' 3 6H 

CKBN  , 

2H 

=,  E1C.3, 

2H, 

9 

6HCLAINL  , 

2H  =, 

E10.3  ) 

; TATA  PA,  SFGP/ 

; 1 

1 

o 

• 

o 

.137 

t 0 • fl  f ~ • 

137, 

0. 

9, 

-.145, 

1.0, 

-. 195, 

1.2 

1 l.F,  -.172,  2.0,  -.141,  3.0,  -.092,  4.0,  -.065,  5.0,  -.048/ 

PI  = 3.141593 
C = PI  / IRO. 

CPP  = 57.29578 

/M  T=  I . 

A1  PHAR=C. 

^PWX  = APV 
'"nNPTL  = C.O 
A ’ = /AP(  121 
irilT  = NAFP.C  ( 15  ) 

AT  = A3  * 144. 

SPFF  = A3 
53  = Z API  3 ) 

n = 03 
pi=ni/2. 

PL  3 = XTOTAL 

IF  ( inUT.EO.l)  HPITF(6, INPUT) 
cr  100  J=l,NPM 
RM=RMV( J ) 

IF  ( F'RM  .LE.  1 ) RM  a AMACH 

IF(  ITypF.NF.2)  go  to  5000 
IF(f<»'.LT.XMRJTn)  GO  TO  5100 
RM=STEPM*2.C 

PrN=»  INLET  ♦ XLDUMP  ♦ 0.5*XFRNG 


10570 
I 05  8 0 
IML I 0500 
IMl 10600 
IML  10610 
IML  10  6 20 
IML 106  30 
IML 10660 
P'L  I 0650 
IMl 1 0660 
IML 10670 
IML  I06H0 
IMl  I 0 590 
IML  10700 
IML  10710 
I^L I 07T0 
IML 10730 
IMl  I 0740 
IMl  I :)  7 50 
IMl  rO  760 
IML 10770 
IMl  10  7,5  0 

I M|  1070  0 

IML I 0«00 
IML  I OH  10 
IML  100  20 
If.'l  I0R30 
IMl IOP40 
IMl  109  50 
IM'L  I 0060 
IMl  10870 
IMl  IOH80 
I'll  IOH<JO 

IMl  lOooO 
IMl  10910 


HA  228 


1 


1 


TrM=pf.r' 

INI 

10020 

SL  FN  =0  .n 

IXl 

I0P30 

THK  PM=n.05 

IN’L 

109^0 

OXlNN-0.5 

INL 

109  SO 

vro  [ =:  xcHECK  / n? 

INL 

10960 

SrN  = ? .p*f'C.N*STFPM 

INL 

I )970 

n AM  = ?.  r*ACA  3*A  3/(  ‘57.  SRFF  > 

INI 

I09O0 

rn  in  r>3oo 

INI 

I 0990 

50C0 

IF{FM.LT.XMPjT0)  n(1  TP  5200 

INL 

I 1 TOO 

ri A!ML=C.O 

INI 

I 19  10 

CL A«= 2.0* AC A 3*A2/(57.2S6*SREF) 

INI 

I 1020 

Rrr'=xU'LFT  ♦ xLnuMD  + C.5*XERNG  + XTfPCL 

INL 

11030 

TrM  = HC^  - XT  IRC  L 

INL 

! 1 040 

St  EM=ATAfJ(  STFPM/XT  tPCi  i 

INI 

I 1050 

CPMT irm  f 

INL 

I 1060 

THKPM-0.05 

INL 

I 1J70 

R X I NN  = n . 5 

INI 

I lOPO 

XfPl  = XCHFCK  / 03 

IM( 

I 1090 

XELUR'I  = ( XTPTAl  - XINIET  - XLOUMP  - XFRNG 

) / 03 

INL 

I 1 100 

IF  ( ITVPE  .FO.  1 .AND.  RM.GT.XMRJTO  ) 

XCPl  = xrLl)“w 

I N| 

11  1 1 0 

SFN=  (RCN  ♦ TCN)*STFRM 

INI 

11130 

PN  =2.*STERM 

INL 

I 1 130 

flRM=RN*eE'/SEN 

INL 

11140 

GO  TP  5200 

INI 

I 1 150 

51C0 

fLAM=O.C 

INL 

11160 

prN=XlA'LFT  ♦ XLOUVP  ♦ XFWOA  ♦ 0.5*XFRNG 

|ML 

11170 

TrN  = Rr7J  - XFWOA 

INI 

I 1 IRO 

P7:  = STFPM*2.0 

I Nl 

11190 

SlE»J  = O.C 

P'L 

I 1 200 

IF(  XFWf'A  .GT.O.O)  SLFN=ATAN(  S TERM /XFWOA) 

INI 

11210 

THKPM=0 .05 

INL 

11220 

RX  IWA!=0  .5 

IM 

112^0 

RX IMP  =0  .5 

1 NL 

I 1740 

xrPI  = XCHECX  / 03 

INL 

n 7cn 

SFN  = 0.5*|RCN  TCNIORN 

INL 

I 1 260 

GP  TP  53Pn 

INL 

11270 

^?C0 

ri  A‘^  = o.n 

INL 

M2R0 

• 

C 

II 

<r 

INL 

I 1 2f'0 

RrN=XlNLFT  4 XLOUMP  ♦0.5*XFRNG  *■  XFWOA 

INI 

I 1 3.00 

TrM  = P CF'-XFWOA 

TNI 

1131) 

SL  EN  = 0.0 

INI 

I 1 320 

IF( XFWOA. GT.O.O)  SLEN=ATAN(  STEP W/ XFWOA) 

IM| 

11331 

GP  TP  5C50 

1"  1 

I I 340 

>5300 

iRN=RN*EN/SEN 

INI 

HOF) 

r 

SWFEP  ANGLE  LIMIT  CF  62.5  DEG.  *♦ 

,^^***************t 

♦ * ♦ « 1 ►iL 

I I 360 

r 

p , 

I I 3 70 

IF(  SI  EN.r-T.l.OOOP)  SLEN  = l.OSOR 

INL 

I I 3P0 

TPN  = TEN /PCM 

INI 

I 1 390 

SVAL  = SLEN 

INL 

I 1400 

IF  (SVAL.EO.C.O)  SVAL=C.Ol 

INI 

I 14  10 

TANSN  = TANISVAL) 

INI 

11420 

TANS2N  = TANSN*  ( TfN-RCN) /RN 

INI 

11430 

ATNS2N  = ARN*TANS2N 

INL 

I 1440 

PFTA  = SOR T( APS(RM*RM-1.0)) 

I Nl 

I 1 4 P 0 

PAPN  = flFTA*ARN 

INM 

I 1460 

Hft  ??q 


I 


'I 

/I 

11 

ji 


I 

I' 


PTANSN  = BFTA/TANSN 
Al  ‘iKN  = 0. 

= 0. 

ALPT  = C. 

Cr\i  = 0. 

V^'M  = RW^SOP  T(  1 .-(  SIN(  SLFN)**2)  ) 
TDELN  = ATAAM  THKRA'/(  PXINN+RXINN)  ) 
PFLAJA'  = nP-^^noELN/COSi  SLFN) 


INLI1470 
INL  1 1<»80 
!A'L  I IA90 
tN|  I 1900 
IN!  11510 
I*'LI  1520 
INL I 15  30 
INI,  n5A0 


INt 1 1550 

LINEAR  LIFT  0|)F  TC  NACELLES  ♦♦♦♦♦**********************1NL  I 1 560 

INL 1 1570 

r Al I L I FT  I ( ARN, SFN, TP N , A TN S 2N , BAR N , A I C LN , THK RN , RX I KK,SLEN,  INL  T I 500 

1 PTANSN, CNRN.OFLNN, CLAN, RM)  P'L11590 

IF  ( IPUT.EC.l)  WPITE(6, CHECK!  INL  I 1600 

IF(PM.r.F.1.0.AND.PN.LF.1.65)  KM  = 0.35+  l.^IRM-l.)  INLII610 

IFrPN.GT.1.65.ANn.RM.LE.2.1l  KM=1.  INLI1620 

IF(Pn.CT.7.1.AN0.PH.LF.3.65)  KV=1.-0.  51  5*(RM-2. 1 1 INLI1630 

ir( PP  .GT. 3.65. ANO.Rm.LF. 5.0)  KM=  . 2-. I AB* ( RM-3 . 65  I INL116A0 

IF(RM.gT.5.)  KH=C.  INLI1650 

KAR=-.2A68  ♦ .2A63/APN  INL 11660 

CLAN  I = CLAN/(  1.  ♦ KM*KAR)  INLI1670 

TPNPl  = TRN+1.0  1A'LI1680 

PAPM  = 0.0  INL I 1690 

IF  (RM.NE.1.0)  PAPN=BARN*TRNP1*(  l.O«-l.O/BTANSN)  INLI1700 

RLLN=XrHECK  -XFWDA  INLI1710 

IFIRM.CF.XMRJTn)  PLLN=XCHECK  1NL11720 

DMNN  = 03  IMl  117  30 

r INL 1 1740 

C 4 44«***««*«*««*  CARRYOVER  TERMS  ***************************************!f‘H  f I 750 
C INL I 1760 

CALL  L IFT2(BTANSN,TRNP1,RCN,DMNN.ARN,BN,BAPN,BARN,CLAN,AICLN,  INI  11770 

I RLLN,CKNR,CKBN,RM)  INLI17riO 

r INI  I 1 190 

G 4 4 44  4 44*t44i4*44>  TOTAL  LINEAR  NACELLE  LIFT  ♦♦♦♦♦4-*4i*4i**4i44*4i*44<**4**4444  I^:L  I IPOO 
C INI.  I 18  10 

FL  A INL=rL  an  I4>(CKNP  ♦ CKBN)  ♦ CLAM  1NlII8?0 

IF!  ITYPF.FQ.  I ) CLAINL  =CLAM  INLI1P30 

IP  ( ITYPF  .FQ.  1 ) CLAINL  * CLAM  INL11840 

I = 3 INI  I 13  50 

IF  ( inUT.FG.il  WP ITF 16, 1002)  1 , XCPl  ,C L AN  ,C L AM, C KK B, CKBN, CL  A INL  INI11P60 
CL  I = 0 . INL  11870 

CNNF  = 0.  INL I 1 8R0 

CNAAN  =0.  INI  I 1 890 

IV=2  INLI1900 

1 INF  AR=1  I^'l  I IP  10 

rwi=0.  INLI1920 

CMW=n2  INL  I 1P30 

rMT=n3  INI  1 1040 

AFL=XCFECK  1NLI1950 

I FI  ITYPF.FQ  . 1 ) GO  TO  202  INI  11960 

IF(  ITYPE  .FO.  2)  C YBl  <LAM  I'ILI1970 

IF!  ITYPE.E0.2  I XCPIY=XCHECK  INLI1980 

GO  TO  203  INL  I 19Q0 

2C2  CONTINUE  Inl  12000 

CLATWVxO.O  1NLI2010 


HA  230 


IF«  ITYPF.FQ.U  XCPIY  = XCPI 

IF( ITYPF.EQ.l)  CYPI=0.5*CLAN*(CKBN  ♦ CKNB)  ♦ CLAM 

C BOATTAIL  GEOMETRY 

?C^  CONTIMUF 

CMAN=CLAINL*(XCGD1-Xf Pr )*57.296 
CMRM  = r,YPI*(  XCGD  l-XCPI  Y)*5  7.  296 
X PT  = FRPT*ni 

CF  = SORT  ( A.  ♦ A6A3  • A3  / PI  ) 

r:p=nF  + factor^c  c?-de  ) 

IFF XPT  .CT .TMOZL*  l. ) XRT  = 7Nn7L»l. 

!F(  CP  .LT.P  21  GO  TO  2C5 
CP  = D3 
I p TL  = n 
Gr  TO  2C7 
2C5  CPNTINUF 

IF(  IPTL  .FQ.C)  GO  TP  206 
PL2=XTPTAL-XRT 

TANPT=( Cl-CB )*0. 5/( XTnTAL-RL2l 
IFITANPT.GF. 0.286)  TANPT=C.296 
IF!  TAMPT.LT. 0.0525)  GO  TC  2C6 

C MAXIMUM  BOATTAIL  ANGLE  IS  17  OEG 

rP=ni-2  .*(  XTnTAL-FL2)*TANBT 
TPFTRT=ATAN( IDl-nP)/(2.*XBT)) 
p l=ni/2. 

XTPFPT=R I/TAN( THFTBT) 

GP  TP  2C7 
2C6  CPNTINUF 
I PTl  =0 
THFTPT=C.O 
XRT=0.0 
06  = 0 I 

2C7  PPNTINUF 

AR  = ( PP**2-DF**2)  /n3**  2 

CALI  L INF(  lO.RM.BASECPI  1)  .CPBASE ) 

CnRnN=-CPRASE*AR*nfl/D3 

Crn''FF  = -rPB  ASF*rP**3/P3**3 

IF  ( IPUT.EO.l)  WP ITE(6, OUTPUT) 

ICO  continue 
R FTLIRN 
FPP 


SUPPPUTINF  L IFT (RM.CNA.KSTEP) 

PCm  = M(|k  .CMCGSM  GGJ/RKM  FIV/EBCD  P/10/73 

COUPLE  PRECISION  0 t Q 1 102  f A I , A2  , ZZ  T ,C  VV»  C VVT  , CVVW 

common/ AA/CP  3 7Al  I <»5  ) ,CP 3 14A  ( 45 ) ,C  P27AL  ( 45)  . CP21 4 A 145  ) , XCPRF N ( 36  ) , 
4XrPPPP(  36)  ,XCP74(  133)  t XCP64(45)  ,XCP65(45)  ,xr.P75U33)  ,CNA21  (OO)  , 
5CNA22(7e)fCNA23(  10  5) ,CNA24(77) ,VQLRA(78) tFKFRB(34) 

A,CNA72(  152),CNA73(  152) 


COMMON/ AERO/ 


1 

A TNS4T 

f ATNS4W 

fBTANA 

,BART 

,BARW 

,RAPT 

2 

RAPW 

,RAPPT 

fBAPPW 

tBETA 

tRFN 

,CFT 

3 

CFW 

f COB 

,CFR 

fCNANAC 

,CL A8T 

,CLAT 

4 

CL  AW 

,CLTV 

tCKwa 

tCKBW 

,CKRT 

,CKTP 

INLI202O 
TNI  12030 
I»“L  12040 
INI.  I 20  50 
IML 12060 
I NL I 2070 
INI  I 2080 
I NL I 2090 
INL I 2 100 
INL  I 21  10 
IML  12120 
INI  12130 
IML 12140 
IML 12150 
INL I 2160 
INL 12170 
INL I 2l«0 
INL I 2190 
IML I 2200 
INL 12210 
INL I 2220 
INI  12730 
INL 12740 
INL  12250 
INL 12260 
INL I 2270 
I^'L  I22P0 
INI  I 27C0 
INL 12300 
INI  12311 
INL 1 2320 
INI  1233'' 
INI  I 2 340 
INL I 2360 
INI  1 2 360 
INL  1 2370 
INL  !23"0 
INI  I 230  1 
IML [ 2^03 
INI  124  10 


I I F TOO  10 
L I '■TOOPO 
L I PT0030 
I I FTOOAO 
\ T FToo  60 
L I 630060 
I 1 FT0070 
L I FTOOpO 
L I cTonoo 
L IFTOlOO 
I I PTOl  1 3 
L IFTO 120 
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c 

Cl  A7hV 

,0 

,DD 

,002 

,OPR 

,OHL 

t 

1 IF70130 

6 

r A FN 

,F 

.FL 

,fr 

.PI 

,RLD 

f 

L 1 FT0140 

7 

FI  PR 

,RR7  AF'A 

,SLETR 

, SLEMR 

,STSREF 

,SWSREF 

* 

L! FT0150 

P 

SK  R7 

, SK7B 

,SKRW 

, SKMB 

,TRTPl 

,TRWPl 

f 

1 IFT0160 

c 

ff  I 

, 7AN  S7 

,7ANSH 

,7ANS4T 

,TANS4M 

,7 ANS27 

t 

LIF70170 

A 

7 AMS 

,xn  IR 

,X016T 

,xniT 

,X01W 

,XNLCMP 

L rF7ni80 

P 

XMLC  OP 

, AC  7 

,ACW 

,XNLCLB 

,RCDYL 

,7A1LL 

« 

1 IF701O0 

c 

K INOl 

tPLlSOR 

,ni SOR 

,fri 

,FCAP 

,COPNX 

1 I F702n0 

c 

ACAP 

,TN1 

,SPN 

, VPN 

,FAFNl 

,PMN 

f 

LI  F70210 

F 

A‘''iSr2 

, SWSR7' 

,RNnSF2 

, XLl NF 

,CR2 

,NCCN( 3) 

» 

1 I F70220 

F 

CP  FM AX 

, CP  A MAX 

,R2 

,CNVR 

,Bl 

,R7 

t 

LI  F70230 

G 

7V? 

, SLE  I 

,SLF7 

,XVA 

,XVB 

,XVC 

t 

1 IF70240 

F 

772 

,rx 

, VOLN 

,VOLRT 

,VPLROn 

,SWPREF 

t 

L IF70250 

I 

PP  A’’ 

,Rnr, 

1 177027.0 

rpMMOM/AFP  7/ 

cnoR,r,now 

,C007,COOON,Cr)OOFF 

,CDP0N,CnRCFF,Cn01  , 

TTR  IP 

,l  TF70270 

1 FPPT , FF  P.N&FRn 

CCmmom  /ALFPLK/  AKUNCH,  AMEx(13) 
CPMMDN/AR  INTX/  JJ,ARIN(9) 
CrMMnN/PLKO/  Ql(?C),  0(96J,  Q2(96), 
I ,FPrTr'3(42) 

CrMMfiN  /CnOEXX/  KfNO,  IIKKISI 
CrMM(1N/DFLTA/DFLALPtCMDW,CMDT 
COMMON /OR G/ 


L! FT02BO 
I rFTn290 
I 1FT0300 

FRCTNl{42Jt  FRCTN2(90)LfFT03l0 

I IFT0320 
L IFT0330 
1.  IFT0340 
LI FT0350 


1 

ni 

, THETAC 

,FINE 

.RS 

.R1 

,RL1 

f 

L IFT0360 

2 

XCYL 

,XTHFRT 

,XBT 

,RL3 

,1TN 

,AMACW 

f 

LIFT0370 

3 

AMACT 

, THKRT 

,THKRW 

,RL1A 

,I8TL 

,ATCT 

f 

L IFT0380 

4 

ATCW 

,DML 

, I TSECT 

,!WSECT 

,RXINT 

, RX INW 

f 

L IFT0390 

5 

P 7 AN  ST 

,RTANSW 

,RCW 

,FLTSEH 

,XLENW 

,FLTSFT 

f 

L IF70400 

6 

XI  FNT 

,0R ATin 

,0N 

.OE 

,03 

,RCT 

f 

L 1 F70410 

7 

MW 

,TCW 

,TCT 

.BT 

,BW 

, ART 

f 

1 IF70420 

P 

APW 

, TRT 

,TRW 

,SREF 

,0B 

LI FT0430 

COMMON/EX TFRN/  ARP(20) 

EOUIVAl  EMCFI ARR( 5),  WMISS) 

COMMOKj/f  ixop/  OA,  Oni2iFIX8(8» 

COMMPN/HING/RHLTXX  tRHLW 

cpmmpn/lft/ 

1 ATNS2T  ,ATNS?W  ,SEW  , SE T .HMW  ,0MT 

2 PI  4 ,RL5  ,ALPHAR  ,RITWV  ,IAPT  ,ICMTRL 

2 02  ,PL2 

COM^PN/NAERC/  RNA6(6),  OCASF,  RNA15(15).  RHLT,  RNA2(2) 
COMMON/ ROLL/  RNW,RNT» 1ARW|BMH,BTH 
COMMON/SAVTIM/  KCLA,SAVT(5) 


L rFT0440 
I I FTOAFn 
L I FT046f) 
I I FTOA70 
L I FTflABO 
I I FT0490 
I I FT0SO9 
1 tFTOSin 
L t 070420 
L I FT0S30 
I I FT05A0 


COMMPM/SUMLlF/CNANOS(20IfCNAFl(20),CNABl(20) ,CNAF2 ( 20  I ♦ CNAP 2 ( 20  I,  I IFTOFSO 
lCMABT(20)t  CNAPn(20»,CLAWAR(20) , rLAWBA(20l,  CLABCC(20»t  ItFTOS^O 

2CIWBAR(20I,  CLATAP(20I,  CLATflA(20l,  CLATC0(20I,  CLAWVA(20I,  11770470 

3  CLTWAP(20),  CLATPT(20»f  CLDUMXIBO)  L!F7pSB0 

C0MMPN/7WU/  GPOFG,  ALf'TRM,CLATRM,DELTRM  LT  770400 

COMMON/TWX/  PHLTW,VCHAVtVCHOVfCHVl,OYNP,ALINW,CNINW,WMlSX  I FF70600 

COMMON/ 7WY/CHAW,  CHOW,  C NOW, C NO  T,CH  AT,  CHDT»CLP»CLRDrC  MO  ,C  *•  A«>  , CMA7  , L I F7  06  10 
I CMAW.CMAnOT.CMDOOT  I IF70420 

CCMMPN/UPINL T/  PRAMRL(128),  XCPI,  XCGDl  LIF70430 

CPMMPN/VFRT/  SVTSPF,  BARVT,  TANOVT,  TAN2VT,  TAN4VT,  LIF70440 

1 ACVT,  ATN2VT,  ATCVT,  AMACVT,  TMACVT,  BTANVT,  tIF7064o 

2 RGCVT,  TRTPVl,  BAPPVT,  BAPVT,  FLVTST  , XLFNV7,  I1F70640 

3 CFVT,  TRAVT,  RXINVT,  FSOVVT  I IFT0/.70 
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CPMMf'N/ V^^LOC  / FSDPFR  ( 57)  ,F  SUR(57) 

/wn:  / on 

rrMyrv/YAwr/  CNP ffN^FTA  ,CYHETA 
fOMMr^  /XXX/  AIf  (0(3CU,AtC6l(301),CN«66(90),CNP67(A2», 

IXSKAK  26  I , AAJL  A7(2P»,ANL4a(  30»  , ANL49  ( 30  > ,SXK17  (85  » , XAC78  (219  J , 
2XAr7C(  2 lo  ) , XArp.  ie(  R5)  ,XAC2  7l  ( 50  . XAC28  ( 177  I ,XAC29l  (6) 
CrMN'r»]/xY//rMA,XCl  ,CMO 

FPUIVAL  F^'CF(  P^AMRL  ( 99)  , C'^AN),  ( PP  AMP  L ( I 00  J i CN  RN  ) 

(M'ltN'iinM  0MV(2C),  ALTV(IO),  ALPHAV(IO),  NAFRCOO) 

^A**fL  IST/FLPRMG/  FMAFLlt  CNA  F L 2 , C A AR  Y , F L POUT  , NF  L P * K F L P , N I N V , ^;V  AP  , 

1 CNARun.CN ANGS.CNAF  l.CNAR l,CNAF2  fCNAB2  tCNABT 

2 t F''A  FF,  FPPF  , f.NA  AR  , X 

FI  IST/P'JG/n3,  F2,PTL  , VPSL  t SRASF  , SPFP  , ALPHAP  , VQLN  ,VCLP  AT  , 

1 FPTI  V,  CF'ANAr.C^'AHTL  f VSBLtCPRAT,XDlB,Pll),n,RL2,xniPTL 

AA«Fl  IFT/SLC^*/  TFPMA,TFR^'B,TFPMC  rTERMn.TERHE.TFRRF.TFRMG, 

I TFRMH,  T Ft-  >•'  I f CNP  , FNPFTA.C  YRF  TA 
A'A^Fl  IFT/p-IL/  RV^.PCWf  TCW,0'*W,APMYW,PKRWtnA'T,PT,Rr.T,TCT, 

1 PKE  T,  ri  As'.CL  AT  ,CL  PW  ,CLPT,CLA  AV<V  tCLP  tSPANP  ,CMO,  PKf  FkK, 

2 PKW  TO,  TF  T,  SK  TR  ,RNT  ,RMk<  ,C  MADOTf  ARMYT,  XCTMT  ,XOTMW 


take  nUT  LATER 
JJ  = 1 
r3Fv=r3 
C3  = rR 

J = AJAEPfU  15  ) 
fMAPTL  = 0. 

RPTPM  = 0. 

(F(  IRTI  .EO  .0  » GO  TO  PRO 

trr  = n3/n2 

VPSI  = PHI  Y I Ann,  .339,  .312,  . 501, -.  152) 

9 AO  rON'^INUE 

SPASF  = PI  *(r3/2.)**? 

RTL  = Rl 3 - RL2 

VPT  = VPSL  ♦ RTL  » SBASE  ♦ (D2/03J**2 
VPLRAT  » VRT  * ( l.-SPASF /SREF  ) /VCLN 
call  PL  IM*"  (6,6,Vr’LRA  ( 1)  ,ALPHAR,VnLRAT,RBTON) 
9*0  CGNTINUF 


L I FT06P0 
L I FTn6C'0 
I IFT0700 
L I FT07  in 
L I FTn720 
I I FTf!730 
L I FT07A0 
L IF’-OT'^O 
L ! PTn  7F'A 
I I O ' 7 70 
L I eTn7'-'0 
I I FTC7''n 

L I PTmoT 
L r F T n 'U  0 
L 

I t PTOo  Ti 

L I PT  n.-U.  0 
I I F P T ri  F 0 
I I PP03An 


I 

FTRAf  AT(  //I  3, 

?x. 

A6, 

6(2H, 

,A6, 

2H 

= , ElO. 

3)  ) 

1 

1 ftoRTO 

1 10 

F^y^  aT(  //  1 a. 

IX, 

6H 

AERO, 

2H  , 

1 

1 CTOiTPR 

1 6H  ONM, 

2H 

* f 

E 1C.3, 

2H, 

6H 

CNNMO, 

2H 

= 

E10.3  , 

2H, 

f 

1 

I ftORfit 

2 6H  CMMMn, 

2H 

= f 

E1C.3, 

2H, 

6H 

cnni , 

2H 

= 

ElO. 3, 

2H, 

f 

L 1 FTOPiOO 

3 6H  lEn, 

2H 

= f 

E IC. 3, 

2H, 

6)H 

CHin, 

2H 

= 

F 10.3) 

1 r FT09  10 

127 

F^'R^' AT(  //  I 3, 

2X, 

tH 

AERO, 

2H, 

1 

I FT0920 

1 CHIP, 

2H 

* f 

E 10. 3, 

2H, 

6H 

CMAT, 

2H 

= 

FIO.3, 

2H, 

t 

L 1 FTOORO 

2 6U  TMAW, 

2E 

= ♦ 

E 10. 3, 

2H, 

6H 

CMA, 

2H 

ElO. 3, 

2H, 

♦ 

1 

1 FT09A0 

J F FI  Cmo, 

2E 

- f 

F 10. 3, 

?H, 

6H 

CMPI  , 

2H 

= 

ElO. 3 , 

2H, 

/ 

1 

J C T .T  0 F 0 

A19X,6H  r.LPP, 

2E 

- » 

E 1C.3, 

2H, 

6H 

PKRTO  , 

2H 

= 

EIO.3  , 

2H, 

f 

1 

1 F T f J 16  9 

5 6H  r^i. 

7H 

- f 

F 1C.3) 

1 

1 FT0<1  79 

6C25 

Fr^^*'  AT(  //  I 3, 

2x, 

fH 

AERO, 

2H, 

1 

I Ftqtpt 

1 AHOFLTPO, 

2H 

• ♦ 

E 1C. 3, 

2H, 

5H 

C N TD  T , 

2H 

F 10.3  , 

2H, 

f 

1 

1 FT  0'9'9f9 

2 GH  FOOT, 

2H 

* f 

E IC. 3, 

2H, 

6H 

ONMT, 

2H 

•= 

FIO.3) 

L 

I CT 1 OHT 

6C25 

FPPP  AT(  // I 3, 

2X, 

f H 

AERO, 

2H, 

1 

I FT  1 9 10 

1 E’JPFLTRO, 

2H 

= f 

FIO.3, 

2H, 

6H 

CNinw, 

2H 

= 

FIO.3, 

2^, 

» 

1 

I FT  1 9 T 9 

2 GH  CNOW, 

2H 

• f 

F10.3, 

2H, 

6H 

nNMW  , 

2H 

= 

FIO.3) 

L 

I F T 1 T o 

PGLY  (X,C0,C1 

,C2 

*r3) 

= X * 

( X*(C  3*X 

* C2) 

♦ Cl) 

♦ CO 

L 

I r T 1 n A 0 

I I rr  ] 

I I PP  1 ■' 

I I r T 1 1 -- 1 
I 1 P P 1 0 'I  ■) 
I I rr  1 If.  1 
I 1 F’-  1 If'T 

L ! pp  1 n ’> 

I I F T 11 2 n 
L I PPI  1 ’9 

It  FT  1 n 'I 
I ’FT  1 1 *0 
I I PT  1 W 9 
1 T FT  I 17  1 
I T fti  IPO 

I T FT  n «)n 

I TFT  i2Pn 
l I FT  1210 
I TFT  1220 


m 
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r 


p<r,  cir,  q«c 


IFl  IT'-ilPt 

<;eo  crNTi-jup 

c 

ran  LIMr(l7,  FPP,  EKFRR(l),EK) 
raaaiAr,  = (fk4-fk)/dph 


BODY  LIFT  (NPSF  AND  rvLlNDEO) 


f, 

r 4 


M.LE.  O.q  BODY  LIFT  (BOAT-TAIL) 


r^!aPTL  = PR  TON  * ENANAC 
I = 1 (■ 

IF{  J.EO.l)  WPITF(6,  1) 

I fNARTL,  0(21),  Fpn 
IP  ( .1  .FC.  1 
GO  TO  1020 
rn^T  IMUP 


I,  OKI),  0(6),  FK,  0(3),  GNANAC,  0(12), 


) WRI  TF(6,BUr,) 


**  *******”)’**:****  M = 1.0  *♦*  BODY  LIFT  (NOSE  AND  CYLINOEP) 
G 

C^AMAG  = .0A2 
G 

r 44<**4*444444*****  M = 1.0  BODY  LIFT  (BOAT-TAIL) 


0(8),  CNANAG,  0(10),  GA,  0(K) 


L I FT1230 
L I FTl 740 
***♦*♦1  I ET1250 
I 1 ft  1260 

I I FT1770 
L I FT  1 2flO 
L (FT  1 ?00 
I FT  1 300 
L I FT  13  n 
L I FTl 320 
LIFT1330 
L I ft  1 340 
L I ft  1 3 50 
L T FT  1360 
L I fti 370 

570  roNTINUF  t I FT13R0 

I I FTl 303 
44444444*1 JCT 1400 

I IFT 1410 
I IFT 1420 
L 1 FT  1430 

4 4***44444*444*44|  TFT1440 
r L1FT14S0 

CNABTI  = PPTPN  * CNANAG 
I = 18 

IF(J.FO.l)  WPITE(C,I)  I,  OKI), 

1 0(9),  DP12,  0(  12),  CNABTL 
GP  TP  1020 
9F0  rrNTINPE 

c 44  4444444*44«4444>*  M .CF.  1.2  ***  BODY  LIFT  (NPSF  AND  C YL  I NPE  » ) 

G 

gall  LIFT4(PFN,  GA'ANAC,RM) 

rvA  =0. 

rF(  IBTl  .EO  .0  ) on  TP 

G 

r 4 4 4 44 4444 44444444*  H .GF , 

r 

IF(Rl  rP,Gf.A.75)  GP 

p^'A=-(o.l*PLne*♦2-c. 

GP  TP  1000 
S50  FA'A=  2.0 

loco  CGAPTL  = -BNA*(  1.0-Dn2)/DPR 
10  10  CCNTINUE 
I = 19 

IF(J.FO.I)  WPITE(6,1)  I,  01(1),  0(B), 

I GNARTl 
1020  CPNTTNUE 
r 

r 44 44 44*4*444444*4*  LINFAR  LIFT  DUE  TP  THE  tail 

G 

IFINAEPOI  8).E0.2)  GO  TO  1025 

GAL  I I lFTl(APT,SET,TPT,ATNS2T,BART,AICLT,THKRT,R*tKT,<;iFTP,PTAN<;T,i  TFT  I 7^.0 

1 G‘'PT,OFLNT,CLAT,RM)  I (FT  1750 

C LIFT1760 


ICIO 

, 1.2  ***  BODY  lift  (RPAT-TAIL) 
TP  990 

, q4RLnB-0.0  1) 


CNANAG,  U(ll ) , PNA,  0(12), 


(ALL  PACH  NIJPPEPS) 


K FT  1460 
L IFT 1470 
r,K  FT  1430 
I T FT  1490 
1 I FTIFOO 
L I FTl 510 

*4444*1  [FT  is^o 

1 1 FT  1530 
I I FT  15  40 

I T FT  1 S50 

I I ft  1660 
I TFT  15 70 
(FT  15H0 
I ' ft  1 •jn-i 
I I ft  1 0 0 

I I ft  1 0 

1 ! ft  1620 

I I FTi,^  TO 
I r ft  1 640 
I I ft  1 660 
I 1 ET 1660 
LIFT  16  70 
1.  I FT  1SP3 
I T FT 15Q0 
L I FT1790 
♦LI  fti 710 
L T ft  1 720 
L I FT  1 730 


(■*4  44****44444**44*  LINEAR  LIFT  DUE  TO  the  WING 
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(ALL  path  NUMRFos)  •IIFTITTO 


I 

L 


L 1 FT  1 

lo?*!  rrMriiic  iifti7'>o 

FLAW  = C.T  lIFTi^nn 

A If.l  W = n.O  1 IFT  IR  p 

IF  (^Jw.^^.l)  F/i  Tr  103C  I.  iftir^o 

1F(  Uf  P(  O I .PQ.  p ( cn  TH  103C  LTFTtgsn 

call  I IFTU  ARW,5;FW,TPw,ATNS2W,RARW,Air,LW,THKRW,RXIKW,SLFWRfPTANSW,t  IFtira^ 


1 RV  , OFLMW.CL AF ,RM  ) 

fL  AU.  = Cl  Aw*QR  A T ir 

CL  XW  = rL  AW*P  F ♦01**2/<f./SRFF 
Cl  AW AR  ( JJ  1=C I XW 
l-T)  r^^'TI^|llF 
I = 20 

IfIJ.Fr.t)  WRITflf.l)  I,  01(1),  0(27), 

1 C(?«),  AiriW,  0(62),  CLAW 


AT  Cl  T , 0 (6  1 ) , CLAT  , 


LIORAR  nnOY-TATL  (NT.  LIFT  *>l<*  ALL  MACH.  NU^RF^S 


L I FT  1 R SO 
I I ^T  130  0 
L IFT  1070 
L 1 ft lORO 
L I FT  1 3<A0 
I I ft  1900 
I T ft  1 01  0 
I I FTlopo 

1 I FT  1 . 42  9 

♦ ♦♦♦I  T ft  in/,  3 


I I CT 

CAl  L L [FTT(  o tans  I,  TRTP  I ,pr  r ,OMT,  AR  T,  R T,RAPT  ,BART  ,F(  AT  , A ICLT.RIA,  LIFTinAO 
lCKTri,f‘<:oT,P»)  I1FT1970 

L I FT  I UR  9 


r^t^********^******  TOTAl  LINEAR  LIFT  OUF  TC  THF  TAIL «LL  MACH  NU ''P  FR  L I FT  1 no  9 

C LICTtooO 

Cl ATHA( JJ  )=CLAT*CKTR  IIFT2O10 

Cl ATCni JJ  ) = CL AT*CKRT  LIFT2020 

n XT  = r|  AT*P  1*0  1*0  1/ A.  IIFT2030 

CLX  T = r.l  XT/SR  FF  IIFT2OA0 

CLATARI JJ  ) = CLXT  I IFT20S0 

Cl  ATP  T Cl  AT*(  CKBT4-CK  TR  ) IIFT2060 

Cl  ATWV  = r.  I TFT20  70 

Cl  AWB  = 0.  LI  FT203  ) 

CKWH  =0.  II FT20O0 

CKRW  = 0.  LIFT'’|n9 

Fr(Nw.rc.O)  m TP  1040  IIfT2110 

C 1 I ft  2 120 

r 1 IMF7R  RnOY-WINO  INT.  LIFT  ***  ALL  “'Ch.  M)«RrRS  * * * *1  I ft  2 1 0 0 

C I TFT  2 140 

CALL  L IFTp(PTANSV<,TRWPl,RCW,OMv,,ARW,BW,PAPW,RARW,CLAw,AirLW,o|  s,  I 1ftti<^  ) 
1 rKW“,CKRW,RM  J LIFTpif.T 

C 1 I FT t 1 70 

c*»  <**************  TOTAL  LINEAR  LIFT  DLF  TO  THE  WING ALL  MACH  Nil  *p  FRt  I Ft  .->  1 o t 

C I I FT  21  no 

CLAWP.  A(  JJ  ( =CL  AW*CH  WR  I I ft  2 009 

Cl APCni JJ  l=ri  AW*CKRW  LI  ft  22  1 3 

ClAWP  = CL AW*(CKWP*CKRW ) L’FT2220 

CLWP  AR  ( JJ  |=f  L AWP  LIFT2  22'' 

C I 1 FT2240 

r,  •««**««*«*«**«***  LINEAR  wing-tail  INT.  LIFT  ***  ALL  “aCH.  NIImbfrs  j ct  7 2^.9 

C 110X2260 

IV  = 2 L ’FT227  ) 

L INFAR  = 1 II FT22R0 

rwi  = 0.  LIFT2290 

CALL  LIFT3(TRT,  BT , OMT,  XOIT,  GAMMAT,  nwi , LINEAR,  IV,  R I T MV v AHL , L I T T? 3 00 
I RMl  LI  FT  23 10 

FMnMW2  * F-CMW/2.  LIFT2320 


CALL  L IFT2(PTANSW,TRWPl,RCW,0MW,ARW,BW,PAPW,RARW,CL''W,AirLN,O|  S, 
1 rKW“,f  KRW,RM  J 


IV  = 2 
L INFAR  = 1 

rwi  = 0. 

CALL  LIFT3(TRT,  BT  , OMT,  XOIT,  GAMMAT,  OWl  , LINEAR, 
I RMl 

FM0MW2  * F-CMW/2. 
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IF(FMnf'W?.FC.C.  ) FM0MW2  = .002 
Cl  ATwv  =irLAW*CLAT*r.  KWB*R1  TWV»BT 
I ) ♦ SF  FF  / SET 
CL AWVAlJJ )=CLATWV 
lOAO  rrNTlNUE 
I = 21 


/(4.*PI*ART»FMnMW2 


LIFT2330 
LT  FT23^0 
LF  FT2  350 
L IFT23ftO 
LI FT2370 
L IF-^2380 


FF(  J .F(?.  IlWPf  TF(t,  I > f,  OKU,  02(57>,  CKTB,  02(58),  CKBT,  C2  ( 59  ) , ( F FT23P0 
I CLATR,  021F.0),  C.KWB,  02(tl),  CKRH,  02(62),  CLAWB  I1FT2A00 

<■  LIFT2A10 

r 4 4 LIMFAP  LIFT  DUE  TC  INTAKES  ***  ALL  MACH.  NU^'R^PS  ♦♦♦♦L  I FT?<V?0 


C 44  4#«4**«»4-*4<*«>AL  R EAOY  AVAILARLE  FRCM  INLET  S/R 
KEDl  = C.O 
'■LAI=O.C 

IF  ( kstfp  .if.  1 ) r,n  TO  1188 

IF  ( Kiwn  .LT.  30  ) GO  TO  1188 

r>  = RM 

f\JOM  = 1 

CALL  INL  IFX(  NRM  ,C1  A I ,CDBnN  ) 

IIPR  CrNTINUF 

CA  AFL  l = C.O 
CN'AFI  2=0.0 
CNAAB  1*0.0 
CNAAP2  = 0 .0 

10A6  CK'AP  = ( CNANAC  ♦ CNAFL  1 ♦ CNAABl  ♦ CNAFL2  ♦ 
CN ABPC=CN AR/OPR 
CKAPni JJ )=CNAePD 
CAAWnS( JJ)-CNANAC 
CNAFK  JJ  )*CNAFL  I 
CN'ABI(JJ)*CNAAB1 
CA'AF2(  JJ  ) = CNAFL2 
CVAB2(JJ)=CNAA92 
CNAPTI JJ)=CNARTL 
IF(J  .EC.  1)  WR ITF(6,FLPBUG) 


r «44«4«««*4>*****4>«  TOTAl 


c 


FFT2A30 
LIETP^AO 
LIFT?^50 
LIFT2A60 
L I ft2^70 
LI fT2^80 
< I FT2<,90 
LIFT2500 
L IFT2510 
L IFT2520 
L I FT2530 
L IFT2540 
LI FT2550 
LIFT2560 
LIFT2570 
LIFT2580 
L rFT2S90 
L I F-F2600 
LIFT2610 
I TFT2620 
LIFT2630 
L IFT2640 
L1FT2650 
L IET2660 
L IFT2670 

LINFAP  lift  ALL  MACH.  NUM8F  PS  ♦♦♦**4>****44.*n  FT2680 

LIFT2690 


CNAAB2  ♦ CNABTL)*DPR 


CrST  = l. 

IF  ( I APT.FO.3)  cost  = .750 
C.rSW  = 1. 

IF  (IAPV».FQ.2)  COSW  * .750 
ri  AAwV  = CLATWV 


C 

C 


cummy 

KFIXk  = 1 

1F(  (NW.FO.O) 


.AND.  (KFIXK. GT.O)  ) CLAAWV=0.0 


1 I FT  2 700 
LTFT2710 
L TFT2720 
1 I FT2730 
L I FT2  7^0 
I 1 FT2750 
LIFT276a 
LTFT2770 
L I FT27PO 
L IFT2790 
L IFT2800 
L I f'F2bio 
I tFT2820 
LI FT2830 
LIFT2RA0 
I I FT2nF0 
L IFT2R60 

CONTROL  LIFT  ***  ALL  MACH.  NUMBERS  •♦♦♦♦♦♦♦♦♦•♦♦♦♦♦♦•L I FT2B70 


CNA  = ( CNANAC+CNABTL+CLA  I4(CLATB*-CLAAWV)  •CnST4-CLAWR*CnSW)*OPR 

CA'A*CNA  ♦ (CNAFL  1 ♦ CNAAPl  ♦ CNAAB2  ♦ CNAF12)*0PR 

CL  ATOT( JJ ) »CN A/OPP 

CNAT  * I CL ATB*CLATWV)*COST 

CLTWAR ( JJ )=CNAT 


J 
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c 


[r(  ir^iTPL  .'"C  . 1 ) Gn  in  1050 

fAll  LIFT‘MPVs',TAOV«,CKW«,rtCHW,CLAW,CMnW,SKWP,SK’BWJ 
I = 2P 

tF(  J .rn  . l)wu  t TP  ( f , n I,  CUD,  02(63),  CLATWV,  02(6^),  CNA, 

1 "^KWG,  02(66),  5;K3W,  02  ( 72 ) , TNOW 

cr  T('  ln^o 

CML  L (P  T6(  P T , UR  T ,c  KTB  ,C  KH  T,C  LA  T,C  NOT,  GKT  P,SKPT  ) 

1=2?  : 
IF(  J .FC  .DWR  1 TP  ( 6,  n (,  ODD,  02(63),  TLATWV,  02  ( 6A  ) , CNA, 

1 02(P‘D,  SKTR,  02(  56),  SKBT,  Q2(7D,  CNOT 
10  60  CP'fJTTVHF 
r 

r <«♦«♦«  PITCHING  wpMENTS  AND  CFN'TFRS  OF  PPFSSURF  **♦**♦♦♦♦♦*♦ 

C 

p*:»***#^«*#***««r*<>tt**Nn5E  AND  CYLINDER  **♦  M IE  1 . O*****  ♦*•♦♦♦******  *♦♦ 

C 

IF  ( ITF  IP.GT.C)  GP  TO  IlOO 
CPFA-P  = 1. 

Air’p  = Fp 

IP(  ITM.CTU  ) ALOn  = FPl 
?F( ALnp.GT.P. ) ALOD  = 5. 
ir(  ALtir.LT.  1 .)  AUTD  = 1. 

APAFN  = FAF»' 

IF(ITN.CT.A)  AFAFN  = FAFNl 

IF(  ITfj.FO  .2)  AFAEN  = FAFNl 

u(  UN  .Nr  .3  .n«  . itn.n'f  . 5)  r,n  to  io70 

CPRCl  = pni  Y(  AFAFN,  .97fl,  .090,-. O0<5,.  0003) 

CPRC5  = POLY) AFAFM, .906,. A2 7,-.045,.0013) 
rnofij  ~ CPOC  !♦(  CPPCfi-CPRCl) /4.*(ALnD  -1.) 
pp  T'''  lOPO 

1070  fropi  = rri  Y( AFAFN, .955,  .295,-.C21 ,. COOOl ) 
rPRri5  = P0LY(  AFAFN, .935,. <V98,-. 009, -.002) 

CPRAT  = fPRP  l*(CRPn5-CPRri) /^.*( ALGO  -1.) 

IF(R“.r(:.l.)  CPRAT  = CPRAT  • 1.2 

1000  CrNTINIir 

ir(  ITN  .GT  . <i)  GO  TO  1C90 
VSBl  =VPU'/(  RL  1*SRFF) 

YPIP  = FL  l*(  1 .-V5BL ) /D1*CPP AT 
Cr  TP  1110 
ipcp  CCMTINUr 

VSoi  =VrLN/(RL  l*5REF) 

xriR  = PL  1*(  l.-VSPL )/Dl*CPRAT 

IF  ( J .FQ.  I ) WRITF(6,RUGI 

cr  TP  1110 

1 ICO  CPNT  INUF 


23 


xriKTL  = n.  LIFT3^»50 

I »■(  I PTL  .FO  .0  I Gn  TO  1130  L1FT3^60 

1F(  ITR  IP.L F .0  I GD  TO  1 1 ?0  11FT3470 

^ LIFT  3480 

.CF.  1.2  BODY  BOAT-TAIL  1 «^T  3490 

r LlFT35on 

xriPTL  = 0 .82*RLD-*-PL  2/01  LIft3810 

GO  TO  1130  LIFT3S20 

1120  opntInjUF  LirT3830 

LIFT3S40 

r*4444*4<'«**4*»44«4  M .IF.  0.9  AND  MACH  1.  BODY  ♦♦PCAT-TAIL  ♦ ♦♦L I t^T  Bs  50 

r LI  ft  3560 

yrioTL  = RLn*(ni  + 2.*n ) /( 3.*(ni>n) )+RL2/ni  li^tbsto 

IF  ( J .FO.  l ) WRITF(6,RUGI  LIFtb^^PO 

I 1 20  font  IM|)F  I T FT  3500 

r L I FT3600 

r *«  SURFACES  *♦*  TAIL  A NO  RODY/TAIL  INT.  •**  ALL  MATH  Mi)LIFT3610 

<■  I.  IFT  3620 

IFINAEPri R ) .EO. 2 ) on  TO  1135  L1FT3630 

1135  rONTINUE  LIFT3640 

CALI  P^‘OMNT^  DMT,  RrCT,TRT,Rr.  T »RL4fBTANST, BART,  BAPPT  ,XD1T  tXOlPT,  i 1FT3650 

1 AT''JS2T,  PM  ) LIFT3660 

xriw  = C.  I IFT3670 

xriRW  = 0.  LIFT3680 

IF(^W.MF.l)  GO  TC  1140  LIFT3690 

1F(MAEP0(9).E0.2)  go  TO  1140  LIFT3700 

'•  LI‘'T37io 

r SURFACES  WING  AND  BODY/WING  INT.  ***  ALL  “ach  MM1ft37?0 

C LI  FT  3 730 

CALI  PMCMNTI CM W, PPG W, TRW  ,RCW,R  L 5 , BTA NS W ,B APW » B A RPW , XCl W, XOl PW,  L I FT  3 74  0 

1ATMS2W,RM)  LIFTB750 

1140  CCMTINUF  LIFTB760 

liftbtto 

r 4 < <**4*444*44**  C.P.  OF  INLFT,  ALREADY  AVAILABLE  FROM  INLET  S/ R********l  1 FT378O 
XCP=0  .0  1 T FT3790 

xcp=xr,P  I LI  Ftb  qno 

IF  ( KSTFP  .FO.  I 1 XCP  = XCGDl  LIFT3810 

r L IFT3B20 

P44  4***4**********  total  C.ENTFP  of  PRESSURE  ♦**  ALL  MACH.  NUMBERS  I FT3830 

r L1FT3R40 

1141  CONT INUF  I I FT3B50 

xn  = ( CNANAC*XDlP*CNAflTL*X01BTL*-CLAW*CKWB*xniW*C0SW*CLAW*CKRW*  ltFT3P6.0 

IXCl  RW*C0SW  tCL  AT*CKTB*X01T*C0ST+C  L A T*CkBT*  XD  I B T *00 S T4-CL  A AWV*  XDl  T ♦ I I FT  B8  70 

2 COST  ♦CLA  I*XCP» /CNA*OPR  IIFT38PD 

IF  I NW  .NE  . I ) GO  TO  2754  LIFT39O0 

PLX  = RL  5 *01  LI FT300O 

CALL  PMOMNTI nMw,RPCW,TRW,PCW,RLX,BTANSW,BAPW,BAPPW,XDXW,  LI  FT  3910 

IxrxBW,  A TNS2W,RM  ) LIFT3920 

xnil=  ( CNANAC<'X01B-*-CNABTL*XDIBTL^CLAW*CKWB*XOXW*CCSW4CL  AW*CKBW*  I IFT3q30 
lXDXHW*CnSW-*-CLAT*CKTB*xniT*COST+CLAT*CKRT*XPl«T*COST*ri  AAWV*xniT*  1 IFT3940 
2 COST  ♦CLAI4XCP) /CNA*DPR  IIFTB950 

2754  IF  ( NW  .NE.  I ) XDll  = XOl  LIFT3Q6O 

1 = 24  LIFT3970 
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ir(  J .FC  .1)  WR  ITF  (6,1) 
I C?{  7S)  , xn  IT,  Q?A  70) 


, Cl(l),  0^(7j),  XCIH,  02(7^),  xoibtl, 
Q2(77),  xniW,  02(73),  X 01 3W 


L 1 FT  39B0 

L 1 FT'xino 


^♦♦♦*TPTAl  RlfCHlNT,  mpmfmt  aNO  DAMPING  COEFFICIFNT  - ALL  MACH  NPS.**** 

C 

CM  A*"  =(  rNANAC*(  xrro  i-xniR  ) + rNA3TL*(  xcGDi-xni  rtl  ) ) *npD 
^WA^'  = ri.  A i«(  xcon  i-xc  P ) ♦opr 

r'’Al  = ( (Cl  AAWV+Cl  A T*r  KTR)  ♦COST*  ( XCGDl -XOI  T)  ♦cl  AT  ♦fPST  ♦CkRT* 

K yrr  i'  1-xn  (RT  ) ) «dpf 
C^'Ai-'  = C. 

C'AW  = 0. 
rMnroT  = 0. 
rMApoT  = p. 
fl  PW  = C. 

CHC  = c.n 

1 I'P  IP  (►w.FP.P)  GP  TP  U6C 

CMAk  = (CL  AW^CnSW^CKWn*  ( XCGOl-XO  lW)vCLAW*rPSW<'CKBW*(XCGOl  -xrifiw  ) ) 


L IFT^noo 
L I FT/,0  n 
L IFT4020 
L I pt/.OT'T 

I I 

L Ipt/^ofO 
I t FT  A PfeP 
I IcT<,07n 

I I cT/.noo 
t T CT/.Oon 
L I ft/,1 
I I F T /,  I I 0 
I iFT^i^n 

L 1 FT  /,  1 3q 

I T CT/i  i/,n 


C 

C*** 


I ♦'^pi 

CMAW  = (CLAW^CnSW^r  KWP+CLAW*CCSW*CKBV«)  *PPR 
XCT''T  = ( «L /!♦(  5.*FCT-3.*  TC  T ) /3.  ) /01 
XCT^W  = ( PI  5+(5  .♦PCW-3.*TCW) /R.  ) /D1 

ri-AnPT  = 2.*CLAAv,V*Cn5:T*(XCGOl-XOTMT)*(XOTMW-XOTMT)*OPR 
APMYW  = n'/W/2.^RV<*(PCW^2.*  TCW)/(6.*(RCW^TCW)  ) 

NElLSf’N  POLL  CAMPING  FACTORS 


L IFTi.lS,') 
I t r T I f r> 
I I FT/,1  70 
L I ft/,  I op 
I I ft/,  1 pp 
L I FT/,?!-! 
L IFT/,2  10 
I CT/,7?D 


PKRW  = .59 

IF  (P\'U,.FQ.2I  PKPW  = l.O 
IF  (PNt-'.F0.3)  PKRW  a l./,l 
IF  (PW'.rO.A)  DKPV  = 1.65 

Cl  PW  = PKPMX-ARMVW^I  l.+RW/(2.*DMW)  lOCLAWtDPR/ni 
1160  CMA  = CVAR+CMAT+CMAW+CMAN 

APVVT  = n»T/2.+RT*(RCT+2.*TCT) /(6.*( RCT+TCTl) 


I I F’-/,2X/> 

I I FT  /,2/,0 
I 1 f^/,250 
I IFT426P 
I I FT/,?7P 
L I FT/,?PO 
L I CT/,PP0 


PXRT  = .F9 

IF  (PNT.E0.2)  pkrt  = 1.0 
IF  (pmT.FO.3)  pkpt=  i.Al 
IF  (RNT.FP.A)  PKPT  = 1.65 

riPT  = PK  P T*  ARM  YT*  ( 1 . ^RT  / ( 2 .T-OMT)  ) ♦(  CL  AT^CLA  AWV  ) *0FP/01 
Ct  P = - 1 .x-ICLPW  + ri  PT) 

■;PA^■R  = PWF/RTH 

IF(  SPAr  P.GT.  1.5)  GO  TO  1170 
FMO  = -2.*(  CNANAC*(xrGDl-xniB  ) **  2+C  N AB  T L ♦ ( XCGOl -XD 1 PT  L ) ♦*2+ ( CL  AAWVl  I ft /.too 

1 ♦FL  ATOCKTP  ) ♦CnST*(  XCGOl-XOl  T)**2»CLAT*CGST*CKBT*(  XCGOl-Xni  RT  )«*2+  IIFT/,/,-!-) 

2 CL  AW^r^S  K WR*  ( XCGD  1- XP  1 W ) **2*C  L AW*C  0 S W*C  KRW*  IXCGri-xniRW)**2  lift/./,  1) 

3 ♦CLAl*(XCGDl-XCP)**2)*npR  iIct/,/,2-^ 


CO  TP  I IPO 

im  CMO  = -2.*(  CNANAC*  ( XCGD  I-XOIR  ) ♦*2fCNAHTL*(  XCGni-xn  IPTL  ) **2^ 

1 { fl  ATOCKTP  )*CnST*( XFGO  I-XDIT ) **2 ♦CL  A T*F 0 ST*C K PT* (XCC01-xniPT)**2* 

2 FL  AW*rPSW*FK  WP*  ( XCGD  1-XD  Iw  ) * * 2*  CL  A W*C  (3  S W*  CK  RW*  ( XCGOl-Xninw  )**? 

2 ♦F.LAI  * (XCGDl-XC  P)  **2)  *OPR 

IIRO  CONTINKF 

IF  ( IFNTpl .F0.2 ) GO  TO  1190 
COSF  = 1. 

DK=  1 . 


L I F t /, ,,  1 o 

L I f T /.  /,  A ) 

I 1 ft/,/.  £,  ' 
I I ft/, < T 
I I FT  4 A 7'^ 
L I FT  A A PO 
I I FT  A AOn 
L I FT4SP/1 
I I ftas  10 


IF  ( lAP  T.F0.3)  COSF  » .866 


L I F ♦ A 5 P 0 
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I*"!  I ft'J  T . F0.2  .OP  . Ut^T.FQ.  51  PK  = 9.0 
ir  ( I APT.FO.3)  PK  = 0.866 
IF  ( MPT.FQ.  A)  PK  = 1.414 
PKK  = 1. 

IF  ( T4PT.F0.3)  PKK=.866 
IF  ( I4PT.F0.4)  PKK,  = .707 

CHAT  = (Cl  4T*CKTR*r,LAAWV»*PKK*(RHtT-ni*XniT)/RCT*SREF/SFT*DPP 
FHPT  = |CLAT*SKTR*CLAAWV)*(RHLT-01<'XniT)/Rr  T*SRFF/<;ET*0PP 
Cwnr  =PK*((  CLAT*SKTP)*|XCGni-XniT)«-CLAT*SKRT*(XCGni- 

1 XPlPT>)*nPR 

r FL  AL  P = -rMA/CMnT 

rPDEn=( 57.?06*CNnT-rNA*CMnT/CMA) •nYNP*SRFF/WMlSS/R7 .296/144. 
Cl  4TPM  = CNA  ♦ 57.296*CNnT*r)EL4LP 
AlPTOM=(WMlSS/( nYNP*SREF*CLATRM| !♦ 57. 296 *144. 
nFLTtJM=4LPTRM*nELALP 

PKRTP  = .3E».C07*RM«-.06*I  l.-TRT**?.  5) 

Cl  RO  = (nPR*CLAT»SKTR*(0MT>BT*PKRT0l*RNT)/(4.*01» 


LIFT4530 
L IFT454n 
I IFT4550 
L IFT4V560 
LIFT4570 
LI  pt/,5bo 
L I FT4590 
LIFT4,600 
L IPT<*^10 
I IPT4620 
I I PT<^630 
L I 

L I RT/,660 
t I PT4660 
L IFT4f>70 
I i»:t<,6P3 
L I PT4F,90 
I 1 FT47PO 


r *COPPnN  ENTS  PF  PAMPING  JE  RM  S***************^*************  **  * IIFT<*710 


C 

TFRM  A = | -2.*CN4N  AC*(  XCGOl-xn  IB  I**2I*57.3 
TrPMB  = ( -2.*cmartL*( XCGni-XOlBTL l**2)*5  7.3 
TERMC=(  -2.*CL  Ar*CKTR*CCST*(  XCGD  1-XDlT)  ••2)  *5  7.3 
TFPMn=l-2.*(CLAAWV  ♦ CL A T4C K TB) ♦COST* ( XCGD l-XOl T ) ♦•2 ) *5 7. 3 
TFPMF=( -2.*CL AT*C0ST*CKPT*( XCGDl-xniBT)**2)*57.3 
TFP“F=( -2.*CL AW*CnSW*CKMR* (XCGOI-XDIW) **2) *57.3 
TFRMr.  = ( -2.*CL  AW* CO  SW*CKBW*  ( XCGO  I-XOIRW)  **2  ) *5  7.3 
tfrmh  = (-2.*CL  M*(  XCGOl-XCP  )**2)*5  7.3 
C 

c ♦ « ICAl  CONFIGURATICNS  ONLY******* 

r «<«***#**CNP=fMQ  MINUS  WING  CONTRIBUTION************ 


L I FT4720 
L rFT<,730 
L I»=T<j74,o 
L IPT/»750 
I I <=Tt,7f,0 
LTFTA770 
L I PT<,780 
LI  FT<,790 
I I '"T<iPOO 
L IFT<,8  10 
L * PT<,R20 
L I FT4R30 


C 


rNR=  TFPM4  ♦ TEPHP  TFPMC  * TFRME  * TFRMH 


L I pt<,R<,0 
I IFT<,flSO 


r*««**»**«*****CNRETA=CMA  MINUS  WING  C ONTRI  RUTI  ON******  II'=T4,«ftO 

TFRMI  = ( cl  4T*rKTP*rnST*(  XCGOI-XOIT)  * CLAT*CnST*CKRT*(xCGCl-Xf'lBT  I )L  IFT487') 


i*npp 

1 IP'^<,PRO 

CNflETA  = CMAR  -f  CMAN  ♦ TERMI 

1 1 cTi,ano 

r#««*«#****CYPETA=CN4 

MINUS  WING  CONTRIBUTION***** 

1 I FTitonn 

CYPFT  A=( CNANAC 

+ CN4BTL  ♦ CLAI  ( CL ATR*COST)  ) *nPR 

l I PT AOl 0 

I = P6 

1 I PT^PPO 

IF  1 J .ME.  1 ) 

GO  TO  1191 

L 1 FT  4,030 

IF  (J.FC.l)  WRITE(6,127)  I ,CM  AR  t C MA  T ,C  MA  W ,C  M A ,CMQ,  C POT  , 

1 I CT<,q4,0 

1 CLPn.PKPTOtCMO 

L lFT<^qBO 

WP ITf (6, ROLL  1 

L I FT4q60 

WP ITF(6tSLCM  ) 

L I FT4,q70 

GO  TO  1191 

1 1 FT<,9Pr) 

iiso  continue 

L I ft A9P0 

CrSF  = 1. 

1 IFTSOOO 

IF  ( IABW.EQ.3) 

COSE  = .866 

L IFT50  10 

IF  1 lARW.EQ. 2) 

PK=1.  C 

1 I FT5020 

IF  ( IAPW.E0.3I 

PK*0. 866 

L I FT5030 

IF  1 IAPW.F0.4) 

PK*1.414 

L I FT5n40 

PKK  =1. 

L IFT50R0 

IF  ( I 4PW.E0.3  1 

PKK  *.866 

L IFTSObO 

IF  ( I ARW.EO. 41 

PKK=.7C7 

L I FT  5070 
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CHflW  = n aw*PKK*CKW'1*  (PHLW-0l*X01h»/RCk*SREF/SEW*DPP 
CPnw  = CL 4W* SKWP* (OMl W-0  1*XD1W) /RCW*SRFF/SEW*DPP 
CLOTkV  - CL  ATV.V*';kw'^/CKWR*  57.  ?<96 

fMDw  = PK*(  ri  ( SKhB*  ( xc''>n  i-xdiw)4-skp  w*(  xcoDi-xoi  pvi)  ) + CLnTwv* 

1 ( xcr,r  i-xn  IT  » (♦opr 
TEL  Al  p^-r  -l  /*  /CMnW 

CPOE  r=t  5 7.2f:6*CNDW-CMA*C‘'nw/CMa>*nYNP*SREF/W»11SS/5  7.296/14^. 

ClfiTP9  = CNA  ♦ 57.?«^f*rMOW*nELALP 

Al  PTP«=  ( V.9  ISS  / ( rvfo*  5PFF*rLATnM)  ) *5  7, 2 96*1 

rri  TP»'  = ft|PTPP*nFLAlP 

CVTPr  T = PK*ri  ATV.V*5KV.R/CKWR*0PR*57.  296 
pFD'/vTi  ^ .^6+.C07*PM+.06*(  l.-TRW**2.5) 

PKRTP  = .^6+.C07*P'<*.06*(  l.-TRT**2.5) 

ri  PP  = CPP*  < Cl  AK*SKWR*  (PMW*RW*PKRWD)  *PNW*CLr)TWV*  (0PT*9T*PK  PT  0)  * 

1P^'T ) / ( A .*n  I ) 

! = 9« 

IF  (J.FC.l)  WPITE  (6,127)  1 ,C  PAR  ,C  MAT  ,C.M  AW  , CM  A,  CHO  , CPHW  , 

1 riFP, PFP TP, fMO 

1151  r^^'TI^aiE 

At  RM AX  = 0.5* SORT (CM A /cn CON) 

fi  nPT=soPT(rNA*roonM) 

r3=p?sv 

PFTIJFN 

EN'P 


L I FT50R0 
I ! FT5090 
1 1 FT51 on 
LIFTSl n 
U PT5120 
LIFT5130 
L ! FT5 1^0 
I I FT5 1 50 
L!  PX5  16'^ 
t I FTRITO 

I rFT5 I po 
L 1PT5  190 
\ f FTF  ^00 
I I PT6210 
L I CT5220 
I I ft  52'>0 
I 1 FT  5 0/,0 
LIFT  5?so 
I I FT  5 260 
( irT5270 
I I FT52RO 
LI FT5290 
L ! FT5 JOO 
L I FF5310 
LI  FT  5 3 20 


SDRPf’UT  IMF  L IFT  KAP  I , 

SEI  ,TR1 ,ATNS2I ,RARI 

, AICL I ,THKP I ,X 1 M ,S  LFI  p. 

1 IF lOOlO 

1 PT5I  E,CMP 

,nFLN,Cl  A 1 ,PM) 

1 I F 10020 

COMMON /CP  G/ 

1 IF  lO-^TO 

1 ni 

, THF  TAC 

,F  INE 

,RS 

,Rl 

.RLl 

1 IF  10^ AO 

? xr  YL 

,XTHF8T 

, XRT 

,RL3 

, ITN 

. AM ACW 

« 

1 IF  1005.0 

2 AP.AFT 

, THKRT 

, THKPW 

,RL1  A 

,1  RTL 

. ATCT 

« 

L I F 10060 

A ATCW 

.O'^L 

,I  TSECT 

, 1 WSECT 

.RXINT 

.PX  INW 

t 

1 IF  100  70 

5 PTAl'FT 

,RTAM5W 

fRCW 

,F  LTSFH 

. xlenw 

.FLTSFT 

t 

L IF lOORO 

6 X L EM  T 

,QP  ATIO 

,0N 

fOE 

.03 

.RCT 

f 

L IF lOOOO 

7 NW 

, TCW 

,TCT 

,RT 

.BW 

, APT 

♦ 

1 (F  in  in  T 

8 APW 

, TRT 

,TRW 

,SREF 

.OR 

1 (FlOl  n 

rOMvnMVXXX/ 

AIC60(3ni),AIC6l(301),CNP66(90) ,CNR67 (A2) , 

L I F 10 1 70 

IXSPA6(26),AMLA7(2e),ANLA8(30) , ANLA9(3n» , 

SKK17  (R5  ) . 

XAC7B(21")  , 

1 I FlCl  ’0 

2XAC7f(  ? 10)  ,xAr,C  18(85) 

,XAr271(5C)  ,XAC28(  177)  ,XAC29l  (6) 

1 (Finmn 

C0MM0N/AA/CP37AL( A5), 

CP31AA ( A5) 

,CP2  7AL  (A5) ,CP21AA(A5) ,xrPBFN(36  ), 

1 I F 10  1 “^  O 

AXCPPPP( 36), XCP7A( 133) 

, XC  P 6 A ( A 5 ) 

,xr.P65(A5)  ,XCP75  (13 

3) .CNA71  (90  ) 

t 

L I F 10  160 

5CNA?2( 78) ,CMA23( 105) , 

CNA  2A( 77)  , 

VOLRA (78) 

.EKFRR( 3A  ) 

L IF  10 1 70 

A,rMA72( 157), 

CNA73( 1 52) 

L I F 10  ion 

COMMON/L  F T/ 

LIFlOinn 

1 ATNS2T 

, ATNS2W 

,SFW 

,SET 

.OMW 

.n^T 

f 

1 I F 10700 

2 PL  A 

,PL5 

, ALPHAR 

, RI TWV 

. I APT 

. ICNTPl 

f 

1 I F1001 0 

3 02 

,PL  2 

1 1 F 1O220 

rOMMf'N/  AFPn/ 

LIF  10730 

1 ATNSAT 

, ATNSAW 

,PTANA 

,RART 

.RARW 

.RAPT 

f 

1 1 F 10  PAO 

2 RAPW 

,RAPPT 

,BAPPW 

.BETA 

.BFN 

.CFT 

t 

1 I F 10250 

3 CFW 

,cnp 

,CFR 

.CNANAC 

.CLABT 

.CLAT 

f 

1 I F10760 

A CL  AW 

,CLT  V 

♦ CKWB 

, CKRW 

.CKBT 

.r  KTR 

f 

1 IF10270 

i 

i 

\ 

\ 


1 

•5 

a 

t 


5 

CL  ATViV 

tO 

,00 

,002 

,OPR 

,dhl  , 

L 1 F102R0 

6 

FAFN 

,F 

,FL 

,ER 

.PI 

,RLO 

L IF  10290 

7 

PL  OP 

,RPTAMA 

fSLETR 

,SLEWR 

.STSREF 

,SWSREF  , 

1 IFIOTOO 

P 

SKPT 

, SKTR 

,SKRW 

fSKMB 

,TRTP1 

,TRWP1  , 

L I F10310 

9 

CF  1 

, TANST 

,TANSW 

,TANS4T 

,TANS4H 

,TANS2T  , 

L I F10320 

A 

T ANS2W 

,XP  IB 

,xniBT 

,X01  T 

, XOIW 

,XNLCMR  , 

L IF103P0 

P 

XML  CCP 

, ACT 

,ACW 

,XNLCLB 

,BOOYL 

,TA  ILL 

LI F10340 

niMFMSIPM 

X! 

3),  N1NVI3) 

LIFin350 

P I'^FMS  ICM 

TAolE! 14) 

LI  Flo  360 

RFAL  K«, 

K AR 

1 IF  10370 

CATA  TAPLF/0 

.,  1.57, 

1.,  1.57, 

2.,  1.57, 

3.  , 1.246  , 

4.,  1.040, 

L I F103fi0 

1 

5 

• f • ^0 1 

6.,  .80/ 

L IF10390 

CPP  = 57. 

295 

fl 

1 I F10400 

j=i 

CrNI  = AP  I *'FI/(  rPP*SPEF  ) 
CMP  = 1,0 

IF  (RM.EO.  1.  ) GO  TH  12C 
X(  I I = TP  1 
X(2)  = ATMS2I 
X(3)  = BARI 
NVAR  = 3 
MNV(l)  = 

NIN'VI  2)  = 

NINVI 2)  = 


4 

7 

10 


IF  IRM.LT.I. J GO  TO  100 
IF{  PAR  I.GT.7,  I X(3»  = 7. 

CALI  FAS  TFI  NVAR  ,N  IN  V ,A  IC  61  ( 1 1 , X , AI CLI  1 
GO  TO  105 


L I F lOAlO 
LIF10A20 
L IF  10«»30 
L I F104A0 
L 1 F10450 
L I F10^60 
LIFlO^TO 
I IF  104P0 
LIF  10A90 
L fF10500 
L IFi0510 
L I F10520 
I I F1O530 
I IF105A0 
L IF10550 


ICO  CCNTINUF 

IF  t PAR  I .LF.7.  I GO  TO  101 
X( 3)  = 7.0 

ICl  call  FASTF(NVAR,NINV,AIC6C(1),X,  AICLI) 

1C5  CPNTINUF 

IF  ( PAR  I .LF.7.  ) GO  TO  130 

IF  (PAPI  .GT.IO.)  GO  TO  no 

AICLI  = A ICL I ♦< . 2P-A1CLI ) /3.*(BARI  -7.1 

rc  TO  130 

no  AICLI  = .38- .029*(BARI  -10. 1 

GO  TP  130 

120  CALL  LINF(7, ATNS2I, TABLE!  n, AICLI  I 
120  CLAI  = AICLI*C0N1 

Cr'FL  = ATAN!  THKR  I/(  XINUXINI  n 

IF!  ITSECT.NE.2.0R.BART.NE.BARI)  GO  TO  131 

TUCK  = THKRT  * RCT 

RAOI  = THICK/A. ♦ I !RCT/2. I♦•2J /THICK 
RAOIP  = S0RT(RAD1**2-( .25*RCT)**2) 

TPRIME  = THICK/2.-RADnRADIP 
OPEL  = ATAN!  TPR  IME/(  .25*RCTn 
131  CONTINUE 

IF!  IWSFCT .NF .2.0R.BARW.NE.BARI ) GO  TO  132 
IF  1 NW  .EO.  0 I GO  TO  132 
THICK  * THKRN  * RCW 

RAOI  = THICK/A. ♦((RCH/2.  I**2I/THICK 
RAOIP  = SQRT!RA0I**2-(.25*RCWI**2) 

TPRIMF  = THICK/2.-RADI4-RA0IP 


L IF  10  560 
I IF  10570 
I IF10580 
LI F1059O 
I I F 10600 
L I F I 0 6 1 0 
L I F 10620 
I iFin63n 
l I F1O6A0 
I I Fio^SO 
L I F 10660 
L I 610670 
L1F106P0 
L I F 10690 
L I F10700 
LIF10710 
LI F10720 
I I F 10730 
I IF107A0 
L IFn750 
LIF  10760 
L I F10770 
L I F10780 
LI F10790 
L I FIOBOO 
L IF  10810 
LI F10820 


I 

I 

I 

f 

f 

i 

I 


I 


I 


I 


uL 


HA  2A2 


1 ?? 


1 43 
I ‘53 


155 


163 


rrCL  = ATAN( TPR lMF/( .25*PCW) ) 
CrNT  INUF 


TFLN  = ^PR*nneL/CnS(SLFIR  ) 

IF  ( PM.i F. 1. ) on  TO  160 
IF( PM.l T. l.C  ) GO  TO  16C 

IF  (Aoi  .1  T.l.O.AK'P.PM.GF.l.O)  GO  TCI  155 
IFIRM.FQ.l.C)  GO  TP  160 
PTVAL  = BTSLF 

IF(  PTSLF.GT.1.0)  GO  TO  lAC 
call  PL  IM  F( 6,7 , ca  r 661  11  ,nF  LN , B T V AL , CNR  1 
CP  Tr  isn 
PTVAL  = 1.0/RTSLF 

CALL  PLINFI6,  3,r.NP  67(l),nFLN,BTVAL,CNP) 

IF  (CNP.GT.l.O)  CNP=1.C 
PL  A I = CL  A I*CNP 
GP  m 160 
CPNTINUF 

ir(RM.GF.l.C.ANn.F»<.LE.  1.65)  KM  = . 3 5+ 1 . * ( PM-l  . ) 

IF(R''.GT.l.65.AMn.PM.LE.2.l»  KM  = i.O 


IFIPM.CT.2.  l.AND.PM.LF.3.65)  KM 
IFIRM  .GT.3.65.AN0.RM.LE. 5.0)  KM 


l.-.515*(RM-2.l) 

.2-.148*(RM-3.65) 


IF(PM  .CT.5.  ) KM  = 0. 

K AR  = - .?4,68*  .24,t3/AR  I 
CLAI  = Cl  AI*(  1.0*KM*KAR) 
PONT INUF 
PFTDPN 


f NP 


L I F 10B30 
L I F10B43 
I I Fl0fl50 
I ! F10P60 
I IF13873 
L I FIOBPO 
1 IF  IQOPO 
L I FIOPOP 
I I <=^10913 
1 I F 13920 
I I F 1 3"J3  3 
I I F 139A3 
I I R 10953 
I I 4 10960 
L I F10O70 
I I 41 0OR3 
I I 4 10903 
114  1 1300 
L I Fin  10 
I IF11320 
L 1411330 

( I FI 13A3 

I I F 11350 
L 1 F11O60 
I IF  1 1070 

L 1 4 noso 

I I 4 11330 


FDRRPUT  IMF  maims 

P NUK.FM-rcSM  R.K.MPmNOUGH  FiV/EBCn  10/18/73 

F SIIBRPUTIMF  MAIMS  PFPFPPMS  THF  SE  FUNCTIONS  AT  THF  START  OF  F ACH 


P 

C 

r 

r, 

C 

r 

C 

r 

P, 

C 


PFAsr — 

III  PUTS  INPUT  PHASE  DATA  INTO  WORKING  LOPATIPMS 
(?)  PFPPPRMS  IMIT lAL IZATI CN  OF  CERTAIN  VARIABLES 
( J)  controls  iteration  to  FI  no  CRUISE  PANGF  WHICH  EkhAUSTf 
ruFl  AT  THF  FNO  OF  THF  TRAJECTORY 

I A)  PUTS  tabular  data  into  table  lppk-up  arrays 

(5)  CONSTRUCTS  ClIMB  SCHFOULE  FOR  CLIMB  PHASES  IF  MHr,FM=l 

(6)  CALLS  RUNGF  K TP  INTIATE  INTEGRATION  OF  EACH  PHASE 

maims  returns  PPNTPPL  TP  STOATA  AT  THE  FNO  OF  THF  LAST  RHASr 
INPUT  CFNFRAL  oATA  STOATA  MAIMS  OERI/ 


PPMMPM  /FAILUR/  KFAIL 
CPmmpm/MFHVPM/  VPM102C102) 
fCUIVALENCEI  VPM1C2(1),  OALPIN  ) 

COMMON  /ROUMOP/  PPNGf20),  RUF23(23) 

COMMON/ P I BLK /Pit  1000)/BC0BLK/L1NE1 120),  LINF2(?0) 
C INPUT  GE7'ERAL  data  NAMES 


FOUIVAI  FNCE 


1 

IVFLI, 

Cl  ( 

1 ) ) , 

IXMACH! , 

Cl  1 

2)  ) , 

(GAMMAI , 

PM 

3 ) ) 

2 

( alti. 

Cl  ( 

4)  ) , 

( TIMFI , 

cr  < 

5)  ) , 

(RANGE ! , 

CM 

6)  ) 

t 

(MPPT, 

Cl  ( 

7)  ), 

(MTI, 

CI  ( 

8)  ) , 

( MXSTE  F, 

CI  ( 

9)  ) 

5 

( pstart. 

Cl  ( 

10)  ) , 

inMiN, 

CI  ( 

11)  ) , 

(FREF, 

P I ( 

12)  ) 

5 

1 FPRFAf, 

Cl  I 

13)  ) , 

(3ELMAX, 

CI  ( 

U)  ) , 

(OALPH  , 

r 1 ( 

15)  1 

M AMS331 0 
MAMSnO’O 
M AMS^O 33 

M 'MS039O 

MAvsnoso 

M AMS  O^A,'' 
‘'AMS0U7O 

A MS  3 P ") 

•'.AM'SnoqO 
M AM  SO  1 03 
"AMSOl 10 
M A'''  S3  I 20 
M AMSO I 3 ) 
M A MS  0 15  0 
•'•AMSO  1 50 
M A^so  no 
mams  0 1 T' 
" Avso  1 yo 
PAMS  0 I q-l 
M ANSOpnO 
M.\NS0?10 
A' A M'S  0 2?n 
MAN SO 2 30 
MANS0250 
MANS025O 


HA  2^3 


c 

r 


6 

( HALT, 

C.  I ( 16  ) ) , 

ID  MACH  , 

Cl  1 17) ) , 

lOCFN, 

CM 

18  ) ) , 

“ANS  0270 

7 

( rvCL  , 

C I ( 191), 

lOHCL, 

Cl  1 20) ) , 

1 NTRYS  , 

CM 

21))  , 

MANSn280 

e 

( jpo INT, 

CII  22)), 

1 SAVE, 

Cl  1 23)  ) , 

II  PRNT2, 

Cl  1 

2A)  ) , 

ANS0290 

q 

( ''iSTP, 

r I ( 25) ) , 

IRE, 

CII  26) ) , 

(NLPHAZ  , 

CII 

27) ) , 

«ANS03nO 

♦ 

( Nrp»-A/  , 

C I ( 28)  ) , 

inophaz , 

Cl  1 29) ) , 

1 WOROP  , 

CII 

30)  ) , 

wANc;03n 

1 

( FS7AP  T, 

CK  JD), 

lAEXlTI, 

Cl  1 32) ) , 

ITVACI  , 

C 1 1 

33))  , 

“ANS0320 

2 

( XI SPI  » 

C K 3A)  ), 

IWPR0P8, 

Cl  1 35) ) , 

IWPROPS, 

CM 

36))  , 

MANS0'>30 

■3 

( AFX  rrs. 

C I ( 37) ) , 

1 IPROPl , 

CM  38)  ) , 

IRTOL, 

Cl  1 

39)  ), 

MANS0340 

A 

< TVAC“X, 

CM  AO)), 

1 TVACMN, 

Cl  1 Al) ) , 

INSETS  , 

Cl  1 

A2)  ), 

‘'ANSO  350 

( SP  FF, 

CM  A3)), 

1 XTHRTL, 

CII  61 ) ) , 

lYISP, 

Cl  I 

81)  ), 

M ANS0360 

t 

( L INOUT  , 

CM  A5)  ) 

M AVS0370 

EOU  iVAt  FajCF 

“ AN  50380 

1 

( SMACHl, 

C.  I ( 101)  ) , 

ICLALFl  , 

Cl  1 121)  ) , 

AN5  03P0 

« 

( shachi. 

SM  A CH  ), 

MANSOAOO 

2 

< SP  ArH2f 

CI( lAl)  ), 

ICLALF2, 

Cl  1161)  ) , 

''AMSOAin 

2 

( SA‘ACW3, 

C.  M 1 P 1 ) ) , 

ICLALFJ, 

CM2Q1)  ) , 

ANS0A20 

A 

( smacha. 

C 1 ( 221)  ) , 

iclalfa. 

Cl  I2A1 ) ) , 

M ANS0A30 

5 

( SV AfHS, 

C I ( 26  1) ) , 

ICLALF5, 

Cl  1281)  ) , 

MANSOAAO 

6 

( nMAFHi, 

C I ( 30  2)  ) , 

ICDOl , 

CM  321)  ) , 

''ANS0A50 

7 

( r!MAf.H2, 

C K A22)  ), 

IC002, 

Cl  lAAD)  , 

MANS0A60 

R 

( PH ACH3, 

Cn  5A2)  ), 

10003, 

Cl  1561) ) , 

M ANSOA70 

9 

{ riMACHA, 

CI{662)), 

ICDOA, 

Cl (681) ) , 

MANS0A80 

* 

( CHACH5, 

Cl  ( 782) ) , 

icons , 

Cl (801) ) 

M ANSOAqO 

INPUT  pfasf 

DATA 

STDATA 

MAINS 

DERI  V 

MAN  SO  50  0 

rrMMHN/P  IRLK /PI ( 70)/ IPBLK/IP( IC) /PSBIK/PS(70 

,20) /I PSBLK/ IPS  1 10 , 20)MANSOS10 

M ANS0520 

INPUT  pfa'jf 

CATA  NAMES 

NANSP530 

FCU IV AL  FNFF 

MANS05A0 

1 

( xhachf, 

PM  1)  ) , 

I ALTF, 

PI  I 2) ) , 

(GAMMAF  , 

PI  I 

3))  , 

MANS055P 

2 

( tpfase. 

PM  A)  ) , 

ittotal. 

PI  1 5)  ) , 

IFVALUE  , 

PI  I 

6) ) , 

MANS0560 

t SLTPr  , 

PM  7)  ), 

1 ALPMAX, 

PI  I 8)  ) , 

1 AN7MA  X , 

PM 

9))  , 

MANSnSTO 

A 

( OPP INT, 

Pl(  10)), 

ICANT, 

PI  1 11)  ) , 

IGTOPT  , 

PI  1 

12)  ) , 

MANS05P0 

5 

( OK  V, 

PM  13)  ) , 

IGKG, 

PI  I lA)), 

(GKVCRU, 

P I 1 

15)  ) , 

MANS05O0 

6 

( XP  ITFH, 

PM  21)), 

1 YP  I TC  H , 

PI  I Al  ) ) , 

MANS0600 

7 

( ITFPM, 

IP  I 1)  ) , 

INAERO, 

IP!  2)), 

1 IPTYPF, 

I PI 

3)  ) , 

MANS0610 

P 

! HCOFSf 

IP!  A)), 

1 mhgen. 

IP!  5)), 

IICONT  , 

I FI 

6)  ) 

M ANS0620 

WPPK ING  common 

STOATA, 

MAINS, 

OERIV,  COTPUT 

« ANS06'»0 

Cpm«pn/CPLK/C ( AOO)/nUTBLK/PAGPR( 12»50) 

“ A M S 0 6 A 0 

EGUlVAl  ENCF 

M ANSOG'^O 

1 

1 PF, 

C(  D), 

IQ, 

Cl  2)  ) , 

(OS  , 

C.  1 

3 ) ), 

M A A|S  O F 6 0 

2 

( GP  AV  1 

C.  I A ) ) , 

IGRAVT, 

Cl  5) ) , 

IGRAVN, 

Cl 

6 ) ) , 

MAMS0670 

3 

I TWOG, 

C<  7)), 

1 THR, 

Cl  8)  ) , 

(THRO, 

Cl 

P)  ) , 

M ANS06P0 

A 

( SSV, 

Cl  10)  ) , 

IRHO, 

Cl  11)  ) , 

(PRFSS, 

Cl 

12)  ), 

MANSOAOO 

5 

( V I SC  » 

Cl  13)  ) , 

ITFMP, 

Cl  lA)), 

1 ALPHA  , 

Cl 

15  ) ), 

M AMFOTOO 

6 

I XM ACH, 

Cl  161), 

icon. 

Cl  17)), 

1 Cl  AOS  , 

C 1 

18  ) ) , 

MANS07 10 

7 

(CLALF, 

Cl  19)), 

ICF, 

Cl  20) ) , 

IWF, 

Cl 

21  ) ), 

" ANSO  720 

e 

( SFC, 

Cl  22)  ) , 

ITTA, 

Cl  23) ) , 

(ANZ  , 

Cl 

2A  ) ) , 

MANSO  730 

9 

( ANX, 

Cl  25)), 

1 N I TE  R , 

Cl  26) ) , 

INBOOST, 

Cl 

27)  ), 

“ANSOTAO 

« 

INSPHAZ, 

Cl  28)), 

1 IPRINT, 

Cl  29) ) , 

IRSAVE  , 

Cl 

30)  ), 

M ANSn  750 

i 

( FTA, 

Cl  31)), 

1 TSAVE, 

Cl  32) ) , 

IXTOL, 

Cl 

33)  ), 

MANS076P 

2 

(NERB  t 

Cl  3A)), 

lERLI MT, 

Cl  35) ) , 

INEQ, 

Cl 

36)  ), 

M ANS07  70 

3 

I inciNE, 

Cl  37)), 

INDONE , 

Cl  38)), 

lERLOG, 

Cl 

39  ) ), 

MANS07R0 

A 

( NP  AFJ, 

Cl  40)), 

1 JSTEP, 

Cl  Al)  ) , 

(TTOL, 

C 1 

A2)  ), 

MANSO70O 

c 

( TMAX, 

Cl  A3)), 

lOELT, 

Cl  AA) ) , 

(KSU8, 

Cl 

A5)  ), 

MANS0800 

HA 


c 

r 

r 

<;876 

c. 

c 


7 

( KK.K  , 

Cl  56)  ) , 

1 INDEX, 

C 1 57  ) ) 

w AN S 08  10 

Eotj  ival  FNcr 

*<  ANS0820 

1 (TOUT, 

C ( 

58)  ) , 

( I OUT  , 

Cl  59) ) , 

(NPHAZ  , 

Cl  60  ) ) , 

‘'AMS08  AO 

2 ( SINGAM, 

C ( 

73)1, 

(COSGAM, 

Cl  74) ) , 

lOALP, 

Cl  75)), 

WANS084O 

3 (VMASS, 

Cl 

75)  ) , 

(GDOTRQ, 

Cl  77) ) , 

IDEGR AC, 

C ( 78  ) ) , 

MANS  0 8 60 

A (TVAF, 

C ( 

79)  ) , 

( AF  X! T , 

Cl  80) ) , 

1 XI SP, 

f 1 81 ) ) , 

WANS  0 8 60 

5 (ACCA', 

C 1 

82)  ) . 

( ACCT, 

Cl  83) ) , 

1 XNCH, 

C(  84) ) , 

WANS0870 

6 (WPR  , 

C ( 

85)  ) , 

( wfmpty. 

C ( 06  ) ) , 

(NPAGE  , 

C ( 87)1, 

M,ANS0880 

7 (MOLT, 

C ( 

pen. 

( Nt  INFS. 

C ( 89) ) , 

INCON, 

C ( 90 ) ) , 

WAMSOaoO 

P (MHAP, 

C ( 

<^in. 

(RNGI  , 

C(  ^32)  ) , 

INTRY, 

C ( 0 3)). 

WANS09OO 

c ( Al  TMAY, 

C 1 

OR  ) ) , 

( GamolO  , 

C ( 95)  ) , 

(HOLO, 

C ( 96 ) ) , 

WANS09 1 0 

* 

( 1 S V(  1 ) , 

C 11 01  ) ) , 

1 STLU( 1 ) 

, f ( lAl ) ) 

WA^■S09?^ 

lA'TFGR  AT  ION 

VAR  I ALRI  E S 

STO A T A 

MAI  NS 

DFRIV,  OUTPUT 

WANS09  •>0 

p F AL  ♦ R I'PR  iw  1 

M ANS094  ^ 

R FAL  *5  XSVI  10  ) 

MANS0Q50 

rrwwpN/RK  RLK  /X(  10)  ,xpnT(  1 ) ,XPR|  Ml  110) 

MANS0Q60 

FOIJIVAI  EAICE 

HANS 09 70 

1 Itimf, 

X 1 

1 ) ) , 

( G A M A , 

XI  2)1, 

(V, 

X ( 3)1, 

WANS0H80 

2 (AIT, 

X( 

A)  ) , 

IR  , 

X(  5)  ) , 

(W, 

X(  6)  ) , 

WANS0990 

3 ( VI  , 

X ( 

7)  ) , 

MAN'S  lOOO 

A 

(GOOT, 

XDOT  121  ) , 

IVOOT, 

xnCTl  3)  ) , 

MANS  1010 

5 (FDDT, 

xnoT (4) ) 

, (ROOT, 

xnoTisi ) , 

(WOOT  , 

xnrT(6) ), 

WANS  1 020 

6 (VinOT, 

XDOT (71  ) 

MANS1030 

ATMOSPHFRF  slaroltine 

COMMUNICATI ON 

DER IV, STCATA, MA INS 

MANS  1 040 

CCMMON/AIRRLK/ALTA, 

TFMPA  , 

RHOA  , 

PRFSSA, 

SSVA, 

MA  NS  10  50 

1 VISCA 

MANS  1060 
MANS  1070 

CPMMnN/TRAJX/CFP 

,CFROP 

.XMACHP,  ALPHAP,  IMOOES,  I NO , 

Ol)M2(  4 ) 

" ANS 1 080 

CIMFNS  lOAl 

"ANSI  0 90 

1 YISP(20) 

f 

XTHR  TL ( 20) 

f 

MANS  1 1 CO 

8 

XPI TCH (20) 

f 

YPl TCH (20)  , 

WANS  1 1 10 

<3  DFCOl^), 

STLU(  20,6) 

f 

1SV112) 

'•ANS  1 120 

r IMFNS  IPN 

HCL  SI  21)  , 

HOOTAIT),  VCLA(3), 

SMACH(20, 

10) 

WANS  1 1 30 

MANS  1 140 
■^ANSl  1 50 

M AN  S 11  6 0 

CPNT  INUF 

M AM  S 1 1 7 1 

CrNTPHL  IS  RFTDRNEO  to 
CnMPlJTE  SPECIFIC  RANGE 
IF(  NPHA;  .EO.  NCPHA7 


TH( S POINT  AT  THE  END  CF 
AT  THE  FNO  DF  THE  CPUISE 
) nRDV,-  V*COSGAM 


EACH 

PHASE  (FT/IP) 
/A0S (wnCT+1 .F-IO) 
/6076.  1 15 


PPNGI npha; ) = R 
TEST  FPP  CP^'PLETirN 


CIF 


I 

) 

AT 


C 

C 


IF(  NPHA7  .LT.  NLPHAZ 
PRINT  TABLE  R DLlTPUT 
NnUT=0 
CALL  OUTPUT 
Nl  INES=0 

IF  ITFRATION  TO  SATISFY 
CGNTPOL  TO  STCATA 
IF  ( NITFR  .EQ.  0 ) 

IF  I NITFR  .EQ.  0 ) 

TEST  FOR  ITERATION'  CONVERGENCE. 


AST  PHASE  OF  TRAJECTORY 
GO  TO  200 

THE  FNO  OF  THE  TRAJECTORY. 


FIJFL  E)aiALSTlON  IS  NOT  UNDER  WAY,  RETIRN 

KFAH  =50 
RETURN 


■^A'ls  1 IP.'' 
PH  AS  I IRO 

M AHS  120-1 
**ANS  12  10 
■'ANSI, 020 
*'ANS12  n 
•^ANSl  2A'1 
■''A'S  1 2S0 
“A VS  12  50 
M AN  S 1 270 
•'  A N S 1 2 R 0 
ANS  I 20-1 

H AM  SI  JOT 

WANS  1 T1  0 
WA  NS  1 T70 
WANS  13  30 
w ANSI 
w ANSI  OS'* 


HA  2A5 


o n n no  f>  n 


c 

r 

C 

c 

c 


CFNr=  ( W-WEMPTY  )♦l)RnW 
!F<  4f'';(  DRNG)  .LF.  RTOL)  GO  TO  llO 

IR(  NTRY  ,IT,  NTPYS  ) GO  TO  120 
!Fa  It  = I 
110  NlTrR=0 
I PR  IMT=  I 
120  CONTINUF 

Cf"  13C  1 = 1,7 

i?n  xpp  iM  i(  n=xsv(  I ) 

NPHA7=t'rPHA7 
PA'P  I = R^'C•I  ♦■DRNG 

IF|  PNCl  .GT . 0 . ) GO  TO  136 
N Y =\<  X ♦ 1 


MA4tSl  360 
MAMS  1370 
■>»AMSl380 
MANS  1390 
MANS1400 
“AMSl ^10 
MANSl^20 
MAMS  1430 
MAMS  1440 
MAMS  1450 
MAMS1460 
MAMS1470 
M AMSl 480 


I Ft  NX  .LT.  2 » GO  TO  136 

IF  ( LINOUT  .me.  0 J WRITE  ( 6,135) 

135  rroMATt//  • ERROR  DETECTFO  IN  VEHPER  MAINS  SUBROUTINE.  VARIABLE 
♦LENGTH  CRUISE  LEG  WAS  NEGATIVE  ON  SUCCESSIVE  ITERATIONS'/ 

♦ • FAULURF  was  PROBABLY  OUE  TO  INSUFFICIENT  FUEL*  ) 

CALL  FRROUT 

IF  ( KFAR  .GT.  0 ) return 

136  CrMTINUE 
WPR=W-WFMPTV 

IF  ( LINOUT  .NE.  0 ) WRITE  (6,140)  DRNG ,ORDM ,WPR , R NG I 
140  FORMAT! //•  0 RANGE=',F10.2, ',  DRDWa',  F10.5,  W-WEMPTY= • , F9. 2, 


1 


• , PNGI=',  F10.2,  'NMI • //  ) 


GO  TO  210 


ENTRY  MAINSl 

MAIA'Sl  IS  ENTRY  POINT  FOR  CALLS  FROM  STOATA 
NX=0 

2 CO  NPHA/ =NPHA7^  1 


AT  THF  start  or  TRij. 


MANS  1 490 
MAMS  1 500 
MAMS  15  10 
MANS  1520 
MANSI  530 
M ANSI  540 
“AMS  1550 
MAMS  1560 
MAMS  1570 
MAMS 15flO 
MAMS  1590 
MANS1600 
MAMS1610 
MAMS1620 
MAMS  1 630 
MAMS  1640 
MANS  1660 
MAMSI660 
MAMS1670 
MAMS16P0 
MANS  1 6P0 


PUT  XPRIMl  ARRAY  INTO  X ARRAY  IN  CASE  THIS  IS  THE  FIRST  PHASE 
2 10  CONTIMUF 

no  215  1=1,10 

215  X(  I ) = XPR  IM  l(  I ) 

PUT  PHASF  CATA  INTO  WORKING  LOCATIONS 


MANS  1 700 
“AMS  1 7 10 
mams  1720 
“AMS  1730 
“ANSI  740 
MAMS  I 7 50 
“AMS  I 760 


pn  220  1=1, 7C 
220  P I( I )=  PS( I ,NPHA2) 

CAL  PH  = nALP  IN 

AIPTFS=«BS(ALPMAX)  /DEGPAO 

IF(  OALPH.GT.ALPTFS)  nALPH=ALPTES 

CO  230  1=1,  10 

230  IP(  I ) = IPS( I ,NPHAZ) 

INITIAI  TZE  PATH  ANGlF  TO  ZERO  VALUE  FOR  CRUISE  PHASF  (IC0NT*13) 
ALSO  INSURE  THAT  SUSTAINER  MODE  IS  ZERO  I THROTT LE A BIE I FCR 
CRUISE  ANO  TRANSITION  PHASES. 

IFt  ICPNT  - 13  ) 233,  231,  232 

231  XPP IM  1( 2) *0.00 

232  MrCES*0 


“AMS  1770 
“AMS  1 7P0 
“ANS1790 

“AMS  1 800 

“AMS  1810 
MAMS  1 B?0 
MANS  1 8A0 
MAMS  1840 
MAMS1850 
MANSI  860 
MAMSl 870 
“AMS  1880 
MAMS  1390 
MAMS  1900 


( 

j 

I 

I 

f 


HA  246 


PNC  E-PER-PHASE  IM  T 1 A L [ Z A TI  HN  GF  C 
VE  = T IMF 
V E=P /6076 .115 

MF  = 1 

CX=0 
IT  = 0. 

LPMAX  .FO.  0.1  ALPMAX=10. 

X = Ai  PMAX/nFGF  AO 
ZMAX  .EO.  0.)  ANZMAX=3. 

ALizr  taple  inoK-L'p  indices 

lO  1 = 1,12 
)=  1 

iSL  IM(Dl'MDUM) 

A^'T/^'EGR  AD 

TPAJ.  STATE  AT  START  OF  FIRST  I TE 
NPHAZ  .NF.  ncphaz  .dr.  NTRY  . NE. 


t 


I 

(■ 


I FI  CPPINT  .CQ  . o.»  GO  TO  310 

T0IJT=  DPPINT*(  ftlNT{  TIME/nPPINT)  ♦I.  ) 

in APSf TOUT-TIMF j-TTOL  .LF.O.)  TOUT*  OPRINT  ♦TIMF 
rFLT=  AMINU  OFLT,  TOUT-TIMF  ) 

IF(  OFLT  .1  T .o.OIC  Al  L FPPnuT 
IF(  riLT.l  T .0  .0  IPFTUPF' 

3 in  rPMINUF 

r. 

r bFT  PnCKFT  FNGIMF  PARAMETERS 

|F(  IPTypf--')  31  7,  316,  318 
ilS  AFXIT=  AFXITS 

IF(  tvACMX-TVACMK'  .NF  . 0.  ) GO  TO  31P 
1=  ( LIFT'IIT  .NE.  0 ) WRITE  (6,3160) 

3160  rrPMATI//  • ILl  EGA(  IMPUT.  T VAC M X- T VAC MN  = 0 IN  ROCKET  SOSTAINFR 
♦PHAFr*  ) 

P fl.  I FPPPIIT 

IF  ( KFAIL  .r.T.  C ) RETURN 
317  ir(  IPTYPF  .FU.  0)  GO  TO  318 


MANS2F60 
MANS?‘^70 
MANS^^ffSO 
M ANS2490 
MAMS2500 
M ANS2SI 0 
MANS2S2n 
MANS25^0 
'^ANSPSFO 
MANS  2“^  SO 
MANS2S60 
MANS2S  70 
MANS?5f)0 
MANS?‘^'^0 
MAMS2600 
MANS  26 1 0 
MAMS  26 20 
M4NS2630 


AFX  11=7  FX IT  I 
TVAC  = TVAC  1 
X I SP  = X I SP  I 

I F(  X ISP  .MF  .0.  ) GO  TO  31  9 

IF  ( LINODT  .NF.  P ) WRITE  (6,3170) 

3170  FORMAT!//  • rocket  ENGINE  SPECIFIC  IMPULSE  IS  ?ERO 

* • ) 


M AMS26FO 
•■'AN  52  6 60 
M AN  S2660 
M AMS2670 
MAMS2680 
IN  BOOST  PHASEMANS2690 
M ANS2  700 


CALL  FPRPUT 

IF  ( KFAIl  .GT.  0 ) RETURN 

318  ArxiT=n. 

3 19  FGNTINIIF 
C 

c start  BOOSTFR  sfgmfnt  if  RFOUFSTEO 

IF(  NPFA7  .NF  . NPOOST)  GO  TO  320 
W FMPT  Y = V.-WPPnPP 
WFIIl  I =W 

320  CrNTINUF 
C 

C START  SUSTAINEP  SEGMENT  IF  REOUESTEO 

IF{  NPHA/  .NF.  NSPHA7  ) GO  TO  325 
V.lFMPTY=  W-WPROPS 
WFULl =K 
326  continue 
r 


MAMS2710 
MAMS2720 
MANS2  7T0 
MA^'S  2 760 
MANS2760 
MAMS7760 
M AMS2770 
M AMS2  7P0 
AMS2  7nn 
MANS  2800 
MANS  28  lO 
MAN'S  2°  TO 
M A.  “ ' s 2 6 ■>  0 
M A‘’S?  0AO 
mams  2 "60 
MAMS?P67 
mam<;?r77 


C START  ITERATIVE  SEGMENT  IF  REQUIRED 

IF(MPFA7  .NF.  NCPHA7)  GO  TO  360 
IF(N  ITER  .EO  . 0 I GO  TO  36C 
IF(  IPPNT2)  330,330,360 
330  rONTINUF 

IF(NTPY  .GT.  0)  GO  TO  33? 

NruT=o 
CM  I OUTPUT 
’32  IPRINT  = 0 
Cr  TP  360 
360  fPNTINUF 
IPRINT=l 
3?0  CONTINUE 


manS2°po 
M AMS26<^0 
M AMS?pnn 

M AMS20I T 

MAMS?P?0 
MANS  ?Q80 
MANS  ?960 
M ANS2960 
M ANS2R60 
M ANS?q7n 
M ANS29P0 
MANS  ?9P0 
MANS  3000 


i 


HA  268 


non  -in  Tin  -in  -in 


[TEPM  = 4, 

rVAUiF  = RNGl 

NTPY=fi!TPY<-l 
■?60  rrMTIi'IUF 

ChprK  Pf-P  IFG«L  VALUfS  HF  ICON! 

ir(  I^n^'T  .r,T.  C .and.  ICONT  .LT.  15  ) GD  TP  380 
(P  ( I lAT'UT  .NF.  0 I WOITE  (6,370)  ICONT,  NPHAZ 
370  FPRI^ATC  //  • I!  LFC I TI  MATF  VALUF  OF  OF  ICONT.  ICCNT=*,  13, 

I 'IN  PHASF' ,13) 

GO  TP  riOOO 
’FO  CPN'PINI.'E 

ir(  ’''PHA7  .NE.  NCPHA7  ) GO  TO  382 

ir(  (PONT  .FO.  13  > ro  TO  382 

IF  ( LINOUT  .NF.  0 ) WRITE  (6,381) 

3fl  FPPPAT(//  ' FPRPR  AT  START  OF  VARIABLE  LENGTH  CRUISE  PHASE. 

♦ ICO'^'T  IS  NOT  EQUAL  TO  13.'  ) 

CALL  FRROUT 

IF  ( KEAIL  .GT.  0 ) RFTURN 

382  CPNTIMUE 

cffck  fop  I egal  value  of  I term 

IE  ( ITFRM  .GF.  C .AMP.  ITFRM  .LT.  10  ) GO  TO  400 
IF  I L INPUT  .NE.  0 ) WRITE  (6,390)  ITFRM,NPHA7 
390  FORMAT!  //  • I L L F P.T  I M A TE  VALUE  OF  (TERM.  ITFRM=*,  (3, 

1 • IN  PHASF*,  13  ) 

CP  TP  9000 
4C0  CPNTIMIIF 

PUT  TAPUt  A«  OATA  INTO  TARLF  LCCK-UP  ARRAYS.  CONVERT  ANGLFS  TF 
R API  ANS 
or  41 0 J=1 ,6 
PP  410  1=1, ?C 

4 10  STLU(  I, J )=0. 

OP  420  T=  1, 20 
STLU(  I,41  = vP  ITCHd  ) 

IF(  ICPMT  .LE.  P)  STIU( I ,4)=YP1TCH(I )/nEGRAO 
420  cpntinuf 

A AFP2  = 2*NAEP0-  I 

OP  A’o  1=1, 2C 

STLU(  I,  1 ) = SMACH(  I , NAFR2) 

STLU(I,2)  = S*3ArH(I,  NAFP2+1)  * OEGRAD 
STLU(  I, 3)=XP ITPHI  1 ) 

STLU(  T,  5)  = vthp,TL  ( I ) 

STLUI  I, 6)=YISP(  I ) 

430  CPNTINUF 

INJURE  THAT  EXIT  AREA  IS  ZERC  PURING  COAST  PHASF 
IF(  IPTYPF  .FO.  0)  AEXIT=0. 


rpMMfi^n  fnginf  to  opepatf  at  maximum  thrust  ourikg  pppst  pmasts 

in  If>TYPT  .LT.  3 ) MnpES=l 

c. 

C CEEO'  for  LFGAL  values  of  PROPULSION  SYSTEM  TYPE 


MANS30  10 
MANS3020 
MANS3030 
WANS  304'> 
M ANS  3040 
WANS  3040 
M ANS3070 
w ANS30P0 
MANS3090 
M A^'S  3 I 90 
w ANS3  I 10 
WA MS  3 170 
M ANS3 I 30 
WANS  3 1 40 
MANS  3 140 
MANS  3 1(0 
MANS31 TO 
MAN4  3 1 80 
MANS  3 190 
MANS  3 200 
M ANS3?  10 
M ANS322n 
MANS3230 
MANS  3240 
MANS  3750 

MANS  3 260 
NANS327n 
MANS3  TPO 
M ANS3290 
MANSi^PO 
M ANS33 1 0 
MA^lS  3 370 
MANS  3 i 30 

M AN  4 3 340 

M ANS  3340 

M A‘.'4  3 3 40 

MANS  3 3 70 
mans  3 3 PO 
MANS  3 3 09 
f-'A'lS  3490 
M A»IS  34  1 9 
MA‘'S3<,70 
MAN'S  3430 
M ANS  3440 
MANS  3440 
MANS3440 
M ANS34  7 0 
M ANS34,80 
MANS34Q0 
MANS3590 
MANS  3410 
MANS  3470 

MANS34  39 
M ANS34^,0 

MAN53550 


I 

ji 


1: 


HA 


1F(  IPTYPF  .cr.  P .tMP.  IPTYPE  . LE.  5 ) GO  TP  4^0 
IF  ( LINPDT  .NE.  0 » WRITE  (6,435)  IPTYPE, NPHAZ 
PpoMATf  //  • II  legitimate  value  OF  IPTYPE.  IPTYPE=»,  13, 

I • IN  PHASF', 13  ) 

GP  TP  <'000 
CPNT  IN  (IF 


IF(  MHP.rN  .EO.O  ) GO  TP  800 

fFMPpATF  CLIMB  SCF-FOULE  FOB  MAX  RATE  PF  CLIMB(R/C).  SFARCH  F^p 
M/>)r  o/r  AT  FAPh  ALTitoPF  TFRMINATES  WHEN  3 POINTS  ON  CURVE 
HAVE  meEN  FOUNP  ANO  POINT  2 R/C  IS  GREATER  THAN  R/C  AT  POINTS 
1 np  3. 

VMasS=W/GSTP 
IMopE  S=  1 
IPSV=  IPPPP  I 

IPROP  1=  1 

THCL  = ABS(  ALTF  - ALT  ) / 10. 

FCLS(  l)=rHCL ♦ AINT(ALT/nHCL) 

Ai  pr,  = o.ci 

AALTS=(  ALTF-HCL S( 1) ) / DHCL  *2.1 

IF(  NALTS  .GT.  2 .AMP.  NALTS  .LE.  20  ) GO  TO  460 
IF  ( LINOUT  .NE.  0 ) WRITE  (6,450)  NALTS 
I fppmATI  //  • FPROR  IN  climb  SCHEDULE  GENERATION.  NUMBER  CF  A( 

I (TUCFS  CFF  lNEn=' ,I  3) 

GP  TP  9Cnf) 


GO  TO  460 


NUMBER  CF  ALT 


RE  TURN 


C*#**  START  altitude  DO  IPPP******* 

46P  CPNTINUF 

IF  ( L INPUT  .NE.  0 ) CALL  PAGF 

CP  7nC  1=1, NAl TS 
pr=  MCI  S(  I )+RE 
AI  T A = HCLS(  I ) 

CALI  AIR 

IF  ( KFAIL  .GT.  0 ) RETURN 

TFMP  =TrMpA 
pf,cs<;=PRp  SSA 

VMAX  = XMACHF*SSVA 
rVCL  = APS( PVPL  ) 

IF(  I .GT.  1)  GO  TP  46? 

VM(N=  AmaxK  0.5*VMAX,  V ) 
vrL=A  IMT( VMIN/DVCL )*nvCL  ♦DVCL 
VCL  S=V 
AI  TA  = Al  T 
C AL  I AIR 

ifikfail.gt.c)  return 
GP  TO  680 
46?  CPNTINUF 
r 

C START  CLIMB  SPEED  SFARCH 

VrL7  = AINT( VCL/PVCL  ) * DVCL  ♦ DVCL 
IF  ( VCL;  .LT.  VMAX  ) VCL  • VCLZ 


MANS3560 
MANS3570 
MANS35Pn 
MANS  3590 
MANS3600 
MANS3610 
MANS3620 
MANS  3630 
MANS  3640 
MANS  3650 
MANS3660 
MANS3670 
MANS3680 
MANS3690 
MANS  3700 
mans  3710 
MANS3720 
MAMS?  730 
MANS3  740 
MANS  J 7‘^0 
MANS3760 
MANS  3770 
MANS37eO 
M ANS3790 
MANS3B00 
MANS38in 
MANS3B20 
MANS  3830 
MANS3840 
M ANS  3BS0 
M ANS38  60 
r ANS3  870 
MANS3830 
mans  3 «90 

M A^I5  onr) 
••'ANS  30  1 O 
mANS39?0 
m ANSIOIO 
M ANS3q^,0 
M AN  Sj9sn 
M AN  S'*  06  0 
MANS  3970 
MANS  3OP0 
MANS39O0 
M AVS<4000 
MANS4010 
M ANS40?0 
M ANS4030 
MANS4040 
MANS4OB0 

MANS406  0 

M ANS4070 
MANS40B0 
MANF40O0 
MANS4  100 


HA  ?50 


r> 


5 

» 

I- 


rr  600  j=i, 20 

xMArH=vri  /S5;vA 

ri  fti  PH-SL  u,"^{  xmach,  1,2) 

CCn  = nSL  IAi'=(  X" ACM, ALTA  ,NA FRO) 

CS  = 0.  S*RHn  A*vrL  ♦VCL*SPFF+  l.F-  10 
rrnQs=r"'^<‘OS 
CL  AO';=CLALPH*OS 
CA|  pr,  = 1 . 
r 

r AT  thF  CIV^M  «ArF  no.  amp  AlTlTiJOF,  FIND  THF  CLl^R  ANGLF  ANO 

C AN'GL  F OF  ATTACK 

PP  SCO  - 1 , 20 
A AL  P = K 

rF(  OALPC  .IT.  0.002)  O.G  TO  A65 
ALPHA  =ALPC 
CALL  TPP.nPl 

IF  ( KFAIL  .GT.  0 ) RFTURN 

A6S  O'^MTINUF 
TFP=THP 

rpAG=  rnnos+  cl aos*ai  pf^alpc 

SINO,AM=|  THR  ♦rOS(ALPC)-  ORAG)/Vi 
rt’SGAM=  SQRT(  APS(  l.-SINGAM*sr  NGAH)  ) 

ALPri=  VMASS*(  CSTD  -VCL*VCL/RC  ) ♦COSC.AM  / 

I ( THR  ♦ CLAOS  ) 

CALPr=  AP<;C  ALPC-Al  PC  1 ) 

iri  GALPC  -0.0001  ) 530,530,470 

4 70  ALPC=  Al  PC  I 
5Cn  CPNTINUF 

r FMO  CF  rn  LOOP  FOP  alpha  solution 

C 


c 

C 

c 

c 


ACRHAL  FXIT  FRCH  ALPHA  DO  LOOP  SIGNIFIFS  FRROR 
IF  ( LIKOUT  .MF.  0 ) WPITC  (6,520) 

520  FORMAT!//  • FAILURF  IN  MAINS  CLIMP  SCHFOULE  GENFRATIPN.  AN^LF 
IF  ATTACK  search  DID  NCT  CONVERGE*  //  ) 

NAMFl  IST/MALPC/  NAIP,  OALPC,  ALPC,  ALPCl,  ALPHAP,  XPAChp, 

1 PRFSSP,  TFMPP,  PHOA,  OS,  RC , ALTA,  SSVA,  VCL,  CFP 
IF  ( LINOUT  .GT.  1 ) WRl TE(6,NALPC) 

GC  TO  9C00 


530  CPNTINUF 

angle  pF  ATTACK  CPNVEPGEn.  CONTINUE  SEARCH  LOGIC  FCR  “AX  R/C 
SPFFO 

HrnT=VC(  *S  INGAM 

IFI  I L INOUT.GT.O) .CR. ( L I NCUT. L T .- 1 ) ) 

♦ WR  ITFI  6, 5R0  ) ALTA,  VCL,  HOOT,  ALPC,  ThR  , DRAG,  SINGAM 


5E0  FORMAT! /• 

alta  = » 

,F7.0 

2 

• 

VCL  =• 

,F  7.2 

■, 

« 

HOOT=* 

,F7.2 

4 

f 

ALPC  = ' 

,F7.5 

c 

t 

THP=', 

F7.1, 

6 

OP  AG=' 

,F7. 1 

7 

1 

SING AM 

= *,F7. 

IF(  J-2  ) 540,541,545 


MANS41  10 
“ANS4  120 
“ANS41 00 
’•MNS4140 
“A  NS  4 150 
“A  VS  A 160 
“ANS4  ITO 
“ANS4  IPO 
“ ANS4 I 90 
“ANS42O0 
“AVS  42 1 0 
“ANS4220 
“A  VS  4 2 30 
“ ANS4  240 
M ANS4  2 50 
“ ANS4260 
“ AN  S4270 
M AN  S42P0 
“AN54390 
“ ANS4  300 
“ANS43  10 

“ANS4320 
“ANS4330 
“ANS4340 
“A\S4350 
“ANS4360 
“ANS4  370 
“ANS43O0 
N ANS4390 
*' ANS44  00 
“ ANS44  1 0 
"A  VS4420 
“ ANS  44  ■’0 
TK  AVS4  44  0 
“ ANS4450 
“ANS  446  0 

''ANS44  T 0 
w ft.'S  44  PO 
“ANS  4400 
“A*IS45nO 
NAN545  10 
“ANS4520 
“AVS  45  JO 
WAVS  4 54  0 
“ANS  4550 
MANS45^  0 
“ ANS4  5 7 0 
“ANS4  5 PO 
“ANS4590 
“ANS46r>0 
“A  NS  46 10 
“ANS462P 
MANS46  30 
MANS4640 
“ ANS4650 
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• 

c 

H AN  S^560 

i 

i 

1 

1 

1 

1 

i 

1 

r 

S/'VF  FIPST  PHI  N'T  ('M  M /C  VS  VCL  CURVE. 

M ANS A570 

1 

5 AO 

rrMT  1 NjiiP 

MAMS  ^6  no 

r 

F-PHTA  ( 1 ) = HOnT 

MANS4f-Q0 

VCL A(  1 )=VCL 

M AMSATOO 

CP  TCI  Z'12 

M ANSA710 

r 

MANSA720 

r 

SFCPF'P  POINT  riN  P/C  VS  VCL  CURVE 

MANS A730 

Al 

CPNT  INtIF 

MANS A7A0 

rr(  MOrn-  HPOTAIU  » 5A3,5A2,5A2 

MANS  A 7 50 

r 

MANSA7ftO 

' r 

P/f  INCPFASER.  SAVE  SECrNO  POINT 

MANSA770 

5 A? 

F-rnTA(  ? ) = HnrT 

MANSA  7P0 

VCL  A(  2)  =VrL 

MANSA7O0 

GP  Tp  57P 

M ANS  A ROD 

r 

MAN'S  AS  10 

r 

P/C  rrCPFASEO  AFTFp  first  step,  reverse  search  oipecticn. 

M-AVSA8  20 

SA? 

CPNT  1 MU E 

MANSARTO 

FCHTA ( ? ) = HnPTA ( 1 ) 

M ANSARAO 

VCLA(2)  =vrLA(l) 

M ANSA.R'^O 

HCPTAI  1 ) = Hr)PT 

M ANSARAO 

VCL  A(  1 ) =VCL 

MANS AR70 

cvcL=-rvrL 

MANSA380 

f 

vrL=vri A( 2) 

M ANSAR90 

GO  TO  570 

MA NSAQOO 

r 

M AMSAOIO 

1 C 

THIPn  ANP  SUBSEOUfNT  POINTS  ON  R /C  VS  VCL  CURVE 

MAMS A920 

•=  A5 

HPOT  A(  ? )=HnOT 

MANS  AP 3 0 

[ 

VCLAI  3)  =VCL 

MANSAOAO 

[■.  r 

MANSA950 

1 c 

IP  P/C  EECREASEO,  MAX  R /C  HAS  BEEN  BRACKETEO 

M ANSA960 

! 

IP(  HGPTAI?)  - HDOTAI?)  ) 65Ct650t550 

MANSAP70 

( 

^ 50 

CPNT  IMUF 

M AMSA980 

1 

HPOTAI  1 ) = HnPTA  ( 2 ) 

»'  AN  SAP'' 0 

j 

HPOTAI  2 ) = HDOTAI  3 ) 

M ANS5  PDO 

i ■ 

VCLAI I)  =VCLAI2) 

MANS  50  10 

VCLAI 2 » =VCl A( 3 ) 

M ANSS020 

570 

CONTINUE 

MANS5nTn 

i 

IF  I I VCL  .1  T .VMAX ) .ANP.  I VC L .G T . VM I N ) ) GO  TO  572 

M/VMS5OA0 

i 

VCL  5 = VCL 

•' ANSSnso 

GO  TP  c,en 

mams50(,o 

572 

CPNT INUF 

MANS  50  7 0 

VCL=VCL ♦nvCL 

MANSOOPP 

VCL  = AM  IN  II  VCL  , VMAXI 

M AN  SS  ppo 

VCL=AHAXIIVCL f VHIN) 

M ANS5 1 90 

r 

M ANS51 1 0 

c 

mans  512  0 

tco 

CPNT  INIIF 

MANS  51 30 

, c 

END  PE  PC  LPPP  FOP  CL  IMP  SPEED  SEARCH 

MA^:S5  lAO 

c 

MANS5  150 

c 

M ANS5 150 

I 

r 

mPPmal  F»IT  SIGNIFIES  FAILURE 

MANS5170 

IF  I LINOUT  .NE  . 0 ) WRITE  I6f640»  ALTA 

MANS5  IRQ 

6 AO 

EPRmati  //  • FAILURE  IN  MAINS  CLIMB  SCHEDULE  GENERATION. 

CLIMP  SMANSSloO 

i 

IPEEP  SEARCH  FAILED  AT  AlTITUnE*'t  FlO.Oi  ' FT.'  / • CLIMB 

phase  MANS52nO 

HA  252 

3 

1 

r>  o o rv  n o n n r»  ->  o 


GP  TP  665 
C 

6!0  CPNTINUr 

PfPFPRM  sFr^^'n  PPPFC  CUPVF  riT  through  last  THRFE  FGINTS  on  R/r 
V5  SPFFO  CURV'" 

Ai=  VGl  A(  2I*VGLA  -VCLA(?)**2*VCLA(3» 

A?=  vri  A(  3 H VCL  A ( 1 ? -VCLA(3)**2*VrL  A(l  ) 

A3=  vn  A(  1 )♦  VGl  A ( 2»**  2 -VC  LA  ( I )**2*VC.L  A (2) 

A=  ^'0PTA(1)*A1  ♦ HPrTA(2)<'A2  ♦ HriQTA(3»*A3 
r=  A I ♦ A2  + A3+ l.F-20 

P=  H'^r  ■ra(  2)  ♦vf  L A(  3J**2  - VCLA(2)**2  ♦H00TA(3) 

1 <-HPPTf.(  2)*VCLA(  n**2  - VCLA(  3)**2  ♦HOOTA  ( I ) 

1 TA(  1 ) •vn  A ( 2)**2  - VCLA(l)**2  *H00TA(2) 

ri=  VCl  A( ? )*HPrTA( 3)  - HPOTAl 2)*VrLA(3) 

1 +vri  A(  3 )♦  FPPTA  ( 1 ) - HOOTA  ( 3)*VCLA(  I ) 

1 ♦VGl  A(  I )*HCPTA(  2)  - HD0TA(  1)*VCLA(2) 

SAVE  MAX  R/r  AMP  AS-SOriATEO  CLIMP  SPFFO 
VGLS  =-‘V(2.*Cl) 

FPOTS  =<  A*  B^VGLS  ♦f  l*VCL  S*  VCL  S »/r) 

IF(  (1  IHnuT.GT.O).OO.(lINCUT.LT.-l)  » 

♦WP I TF( 6,660 J HOOTS,  VGLS,  A,  B,  Cl,  0 
660  FrPMAT(  • MAX  P /G  = ' , F10.2,'  FT/SEC,  V= • , F 1 0 . 2 , • F T / S FG  A=*, 
IF15.3,  • B=*,F15.3,‘  G=’,F15.3,»  0=',F15.3  I 

IF  p /r  IS  negative,  cpmplte  a maximum  altituof  which 

WILL  CGNSTRAIN  sufseoufnt  phases 
IF(  HPPTS  .GT.  0 ) GC  TP  680 
AL  TMAX  = FGL  SI  I-  1 ) 

665  CONTINUE 

IF!  I-l  .GE.  2 ) GO  TP  800 
IF  ( LINPUT  .NF.  0 I WRITE  ( 6,670  1 
6 70  FORMAT!  //  ' FAILURF  IN  MAINS  CLIMP  SCHEOULF  G F A E R AT  I PA' . • , 

I • RPSITIVE  RATE  OF  CLIMB  FOUND  FOR  ONLY  CNF  PGINT*  ) 

GP  Tn  ponn 

SfVF  Cl  IMP  MACH  Np.  and  altitupf  in  stlu  array 

6 80  Fr^iTr'iir 

STLUI I , A)=VrLS/SSVA 

STLUI  1 , 3)=ALTA 

FGI  SI  !♦!  ) = HCLSI  I )+DHCl 

MAkF  [AST  POINT  THF  CRUISE  A L T I TUDF  ♦ 1 000  FT. 

IFI  I .FO.  NALTS-l  ) HC L S I NA L T S I = AL TF+ I 000. 

7 CO  CPNTINUF 

IF  I LINPUT  .NF.  0 ) CALL  PAGF 

IPRPP  1=  IPSV 

♦♦♦♦♦END  PE  on  LOOP  FOP  ALTITUOF  SUR VE Y********* 


800  CPNTINUF 

CCNSTPAIN  INPUT  ALTF  TO  VALUE  OF  ALTMAX.  NOTE  THAT  AITmax  IS 
IN'ITTALI/FO  to  1.E8  IN  STOATA. 


MANS5210 
MANS5220 
manS52’0 
MANS52AO  j 
M ANS  5250 
MANS  5 260 
“ANS5270 
MANS52R0 
"ANS5200 
MANSS’ 

MANS53  I 1 
mans  5 320 
MAVS5330 
M ANS5  350 
M ANS5350 
■*A*'S5360 
ma''S5370  ] 

MANS  SORT  I 

MANS57H0  ■ 

M A'JS  5500 
M ANS‘^5  I 0 
MANS5520 
NANS  553  0 
MANS5550 
MANS5560 
MANS  5560 
MANS55  70 
MANS55P0 
M ANS5590 
M ANS550'' 
MAN55510 
M« NS  5 5 20 
>'  ANS  5 5''0 
M AE  SF550 
■>  ANS  5 5 50  ,ji 

••ANS5F6n  i 

MANS5570 

M i;  ^ u T 

MANS  5 5N 0 
M ANSP'-PP 

M A''SP6  1 0 
“ A-' S'- 62  0 
MANS5' 30 
M A^|5  5 55  0 
M A NS  P 6 5 '' 
MANSPP50 

MANSP67n 
MANS55P0 
M ANS5  590 
M AMS5  TOO 
M ANS5  71  0 
M A NS  5 7 20 
M.ANSP7  30 
maNS57<,0 
MANS  5 750 
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n Jf-Af'  11  AL  TF  , A1  TMAX) 


STAPT  U.'TFGPATinN  nc  PHASF 
CALI  PI)^'fFK  1 KWISH  ) 

IF  I kwISH  .<^0.  A321  ) GO  TO  9876 

RFTIJP'J 

FMp 


MANS9760 
mans  *17  70 
''AN95780 
VANS9790 
«AN<;5800 
MAMS58n 
“AMS5820 
mam<;  5030 


FI v-E PC n 

TIMF  HISTORY  OF  TPAJFCTORY 


FLPp  OUT  I^^  OUTPUT 
P^M  = ^■|JK  .rr,s*^  RKM/muf  7/11/73 
SUPPriijTINF  OUTPUT  PPINTS  TABULAR 
V AP  I APL  FS. 

r'nuT=  COLF  TFP  FOP  TOTAL  NUMBFP  OF  OUTPUT  POINTS  PFR 

NOUT=C  AT  STAPT  AND  AT  COMPLETION  OF  TPAJ. 
rLINFS=  COUr TFP  FOR  NUMBER  OF  OUTPUT  LINES  PER  PAGE. 

NLiF'FS=n  AT  start  of  TRAJ 
mpacf^  pagf  number 

IPFINT=  FLAG  TO  SUPPRESS  PRINTING.  IPRINT=0  SUPRESSFS 


niiTPOOlD 
PUTPno20 
OUT  P0030 
"^UT  OOOAO 
TPAJ.  otiTOOOSO 
nuTpnoBO 
nuTpno70 
nUToOOBO 
mjTOOOQO 
OUTFUTOUTPOmo 


' a.- 

r 

OUTPOl  10 

■£ 

COMMON  /QACCST/ 

OMA  XO  , 

VMAXQ,  DUM0A(8) 

nUTPO 120 

"■'W 

rpMMPN/r  IBLK/CI  1 lOOOl/CBLK/CI'fOO) 

OUTPO  130 

.'if- 

1 /OUTBLK/PAGFBIIA, 

50) /BCD0LK/LINF1 (20 ) 

,L1NE2(20) 

nu  T P 0 1 A 0 

PPUIVAL  FNCE 

(GSTO, 

C I I 25)) 

OUTPOl  50 

C 

WORK  I NC  common 

STOATA, 

MAINS, 

DERIV,  OUTPUT 

PUTP0160 

FCUrVAl  FNCE 

DITPO)  70 

% 

1 IRC, 

C I 

in. 

(0, 

C( 

2))  , 

IQS, 

C( 

3)  ) , 

PIITPOlPO 

? (GPAV, 

Cl 

A)  ) , 

(GRAVT, 

C ( 

5) ) • 

(GRAVN, 

C( 

6)  ), 

OUTPO  IPO 

J (Twor,, 

C 1 

71)  , 

( THR, 

C( 

8)  ) , 

(THRQ, 

C( 

9)  ), 

r\ITP0200 

iV 

A (_'SV, 

C ( 

ion , 

(RHO, 

C( 

ID), 

(PRESS  , 

C ( 

12)  ), 

0UTP02in 

-i- 

5 (Vise, 

C( 

13)  ) , 

(TEMP, 

C( 

14))  , 

( ALPHA  , 

C ( 

15  ) ), 

OUTP0220 

6 ( XM  ACH, 

C ( 

16)  ) , 

(one. 

C ( 

17)  ) , 

(CL  AOS  , 

r.  ( 

IP  ) ), 

HUT  P0?3n 

' . 

7 (CLALF, 

r ( 

19)  ) , 

(OF  , 

C( 

20)  ) , 

(WF  , 

0 ( 

21  ) ) , 

OUT  00 2 AO 

8 (SFC, 

C ( 

22)  ) . 

( TT4, 

C ( 

23) ) , 

(AN/, 

r.( 

24)  ) , 

ouTPopsn 

0 (ANX, 

C { 

25)  J , 

(NITER, 

C( 

26)  ) , 

(NBOOST, 

Cl 

27)  ) , 

ou  TO0260 

V 

* (NSPHA7, 

C ( 

2B)  ) , 

( IPRI NT, 

C( 

29)  ) , 

(RS  AVE  , 

r ( 

30  ) ) , 

HilTRO?  7P 

1 IFTA, 

C ( 

31)  ), 

( TSAVF  , 

C( 

32)  ) , 

( XTOL. 

0 t 

33)  ) , 

HU’-pj/ao 

J" 

7 (HFRP, 

C( 

3A)  ) , 

(ERLl mt. 

C( 

35)  ) , 

(NFO, 

C( 

36  ) ), 

Hu  T D n 2 p 0 

3 ( I PONE, 

C( 

37)  ) , 

(NOONE, 

C ( 

38)  ) , 

(ERLOG  , 

C ( 

39  ) ), 

fU’'P0300 

' 

A (NPAO, 

C( 

Aon , 

IJSTEP, 

C ( 

41)  ) , 

(TTOL, 

r,( 

42)  ), 

PI  IT  00  3 10 

V • 

5 (TMAX, 

C( 

43)  ) , 

(OELT, 

C( 

44)  ) , 

(KSUB, 

r ( 

45)  ), 

OUTPO  T?0 

7 

(KKK, 

C ( 

56)  ) , 

( 1 NOFX  , 

r ( 

57  ) ) 

nil  TOOT  TO 

FPU  IV AL  FNCF 

f'U  TPP  T40 

1 (TOUT, 

C ( 

581)  , 

(lOUT, 

C ( 

59)  ) , 

(NPHA7 , 

0( 

60  ) ), 

PUTPOTSO 

2 (SINPAM, 

C ( 

73)  ) , 

(COSGAM, 

C ( 

74)  ) , 

(OAl P, 

C ( 

75  ) ), 

POT  P0360 

3 (VMaSS. 

C( 

76)  ) , 

(GDOTRO, 

C ( 

77)  ) , 

(DEGRAO , 

C I 

78  ) ) , 

OUTPO  3T0 

A (TVAC, 

C( 

79)  ) , 

(AE  XIT  , 

C ( 

80)  ) . 

( XI SP, 

C( 

81)  ), 

OU’'°0  380 

5 1 ACCN, 

C( 

82)  ) , 

(ACCT, 

C( 

83))  , 

( KNOW, 

C( 

84)), 

nUTP03OO 

6 (WPP  , 

C( 

85)  ) , 

(WEMPTY, 

C( 

86) } » 

(NPAGE  , 

C( 

87)  ), 

nuTPOAOO 

7 (NHLT, 

r ( 

88)  ) , 

(NLiNFSf 

C( 

89)  ) , 

(NCON, 

C( 

90  ) ) , 

OUTPOAIO 

e (NMAP, 

C ( 

91)  ) , 

(RNGI  , 

C( 

92)  ) , 

(NTRY, 

C ( 

93  n. 

OUT  P0A20 

s 

t- 

c ( AL  TM  AX, 

r.  I 

94)  I 

nUTP0430 

r 

intfgration 

VAR  I AL  BL  E S 

STOATA 

MA  INS 

OERIV,  OUTPUT 

n(iT  pa<.<vo 

P FAl  XPR  If'  I 

CPf^MOM/Pkqi  K /y  ( 1C)  ,xnr)T(  lO.XPRIMKlO) 
fCU  IVAL  FF’Cn 


C IMFF'S  ICN 

IF  1 Q .r.T  . 

IF  ( V .r.’-. 

IF  ( LUnUT 
IFIIPOINT  .FO 
IF(  N'PUT  .GT. 


P AGFA! lA  ) 
QMAXC  ) 
VMAXO  ) 

.FO.  0 
0 ) 

0 ) 


15 


20 


IF(  F'LIMFS 
IF(  NLINFS 
Gr  jn  75 


rPNT  IMUF 
WP  ITF  TABLE 
CALL  PA  OF 
FPPMATI  IH  1 , 


,ro . 0 

. FO.  50 


IPAGFB ( 50  I 
OMAXO  = Q 
V”AXO  = V 
) GO  TO  9000 
GO  TO  90CC 
TO  AC 
TO  15 
TO  9000 


GO 

GO 

GO 


1 

WP  ITP(6,30  ) 
30  FOPVATI  /AX, 


A HFAOING 

lx,  20AA,27HLTV  AEROSPACE 
2X,  20AA, 26HVEHPER 


CHRP. /CONCEPT,  13/ 

PAGE  , 13,  IHA 


3X, 

6X, 

5X, 

IX, 

AX, 

3X, 

6X, 

5X, 

'.NF 


•TIMF',  3X, 

•RANGE',  ?X, 

•N/',  2X,  'ALPHA* 
•OPAG',  ?X,  'MACH', 
•NFRP  • / 

* SFC,  3X,  ' OEG*. 

• N MI  • , 2X,  * LflM» 
• G' , 2X,  ' OFG  • , 3X, 


SPEFO'  , IX 


'GAMMA',  3X,' 

'WEIGHT*,  3X,  'THRUST',  6X,'NX' 
'THETA* , 5X,  ' LIFT* , 
IX,  'STEPS'  , IX,  • STEPS'  , 

3X,'FT/SEC'  , IX,  ' 

, 3X,  ' LRE*  , 6X  ,'  G' 

• DEG*  , 5X,  • LBF*  , 


• ALT ITUOF  • 

, 


FT 


• LBF 
0) 


IF(  NOUT 
AO  CONTINUE 

NrUT=NPUT+l 
M lNFS  = MaD{NOUT  , 50 
IF!  NLINFS  .FO.  0 > 


, 2 X , 

GO  TO 


, 

9000 


IX, 


GOOD' 


IX, 


BAD* 


OUTP0A50 

PMTPOACO 

POTPOATO 


[ 1 

( T IMf, 

XI  1) ) , 

I GAMMA  , 

XI  2)  ) , 

(V, 

XI  3)  ), 

I’UTPOARO 

I 2 

( AL  T, 

XI  A)  ) , 

(R  , 

XI  51 ) , 

(W, 

XI  6 ) ), 

nUTPOAFiO 

i 3 

I V I , 

X I 7)  ) , 

PUTP05O0 

1 6 

(GDOT, 

XDOT  12)  ) , 

IVOOT, 

XDCTI3)  ) , 

nUTP05  LO 

; 5 

(HOOT, 

xnOT (A)  ) , 

IPDOT, 

XDOT  15)  ) , 

(WDCT, 

XDOT 16)), 

riUTD052(T 

1 ^ 

I V inpT, 

XDPT  17)) 

UUTP0530 

FCUIVAL  EMCF 

( C 1 ( A 5 ) , 

LINOUT  ) 

OU  T DPS40 

NL  INES=50 


TJT  P05‘^0 
rXITP''560 
'•njFP0570 
PUTP05FO 
OOTOOFOO 

nUTO0600 

OUTP0610 

o'.fpn<s?o 
'i|'TP0630 
nUTPOAAO 
nUTP0f)50 
nuTO06f  0 
'^UTP0670 
nUTDOARO 
TUT’  0600 
f’UTPOTon 
PUTP07  10 
P’UTP07?0 
n()TO0730 
niToo’AO 
rXiroQ  7F0 
PUT  PO  760 
nUTPO  770 
'’U  T P o 7 A 0 
n(jTD07P0 
ntiTPOROO 
PIITPOP  n 
n;T  P0R20 
""UTPO330 

npTpgq^.') 

fT.f’PORFO 

pnTPOBfjn 


C COMPUTE  A'jn  PRINT  A L I FJF  OF  PAGE  A DATA 

CO  50  1=1,6 

50  PAGE  A(  I ) = X ( I ) 

PACEA(2)  = PAGEA(2  )*0EGRA0 
PACFA(5)=PArFA(5)/6C76.115 
PAGFA ( 7 ) = THR 

PAGFAI e)=( VDOT-GRAVT)/GSTD 

PAGEAI 9)=AN7 

PAGEAI lC)=ALPHA*rFGRAD 

PAGFAI  11)=  ( ALPHAaGAMMA)*OEGRAO 

PAGFAI  12)=  CLAQS*ALPHA 

PAGFAI  13)=  PAGFAI  12)*ALPHA  ♦ CDD^OS 


UU  ’■PORTO 
Pll  TOORPO 
rxi  T PORor) 
PUT  poono 
OUT  P09 10 

nUTPOO^o 

PU  TPOT’O 
pUTonqBO 
IT)  7 p 09  so 
PUT  P0960 
OUTP0O7O 
PUTP09P0 
PI)TP0990 


HA  255 


i 


P/'GFA(  lA  )=  X«Af  H 

WPl'fF(6f60)  PAGFA,  JSTFP,  NBAD,  NE  RR 
fT  Fr-RMATC  IX,  F7.2,  F8.2,  F8.1,  Fq.l,  F8.2,  F8.lf  Fq.l,  2F8.3f 

1 F7.2,  FP.2,  2Fq.l,  F6.2,  216,  T5  ) 

r 

f SAVE  A I INF  HF  TAPLF  P GA TA 

N=nl infs 

PA^FPI  1,N  )=X(  1) 

PACFBI ?,N )=XDnT( 2) *08 CP  AD 
’'C  70  1 = 1,^ 

12=1+2 

70  PAGFHI  I 2.N ) = XDnT ( 12  I 

PArFP(7,N)=  THR0/(0S+ I.F-IO) 

PAGFB(P,N)=  THR/  lOS+l.E-lO) 

PAGEP(q,N)=  WP/{TH«+1.E-10»*3600. 

PAGFBI  I C, N ) =TT4 
PAGFP(11,N|=  THR /(  WF+ I.E-IO) 

PACFPI  12, N )=  X( 7) 

IPAGFPI N ) = NMAP 
PAGFPI  13, N 1 = 0 
C 

IF(  NLINFS  .LT.  50  ) GO  TO  9000 

r 

r WRITE  TAPLEB  HEACING  AND  CONTENTS  OF  PAGEB  ARRAY 

75  CPNTINUF 
fail  PAGF 
80  FORMAT!  IHl, 

1 

C 

WP ITF ( t, 90  I 
SO  FrpMAT(/4,X, 

2 3X, 

3 8X, 

* IX, 

1 5X  , 

2 2X, 

3 IX, 

* ax , 

r 

WPITF(6,100)  ( ( pager ( 1 ,J  I , 1=1,12),  IPAGEB(J),  P ACER!  13,  J), 

* J = l, NLINFS) 

ICO  FCRMAT!  IX,  F7.2,  F8.3,  2F9. 1 , F8.1,  F R. I , 2FP.5,  Rll.A, 

1 F7.1,  F8.  I,  F8.1,  15,  FIO.2) 

G 

NPAGF=NPAGE+  1 

IF!  ML  INFS  .FO .50  ) GO  TO  15 
seen  RETURN 
END 


)X,  20AA,27HLTV  AEROSPACE  CORP.  / CONCEPT  , 13/ 

2X,  2 CAA  ,?  6H  VFHPE  P PAGE  , I3,IHR  ) 


•TIME',  3X,  'G-DOT*,  AX,  'V-DOT',  AX,  'H-DCT', 
•P-nOT*,  3X,  'W-DOT',  3X,  'CFNRFO',  6X,  ' GFN* , 
•SFC',AX,  'TTA*,  5X,  'ISP',  IX,  •V-IDFAL',  ' NMAP', 
•PYN  PPFSS*/ 

•SFC',1X,'0EG/SEC ',  3X,'FT/SEC',  3X,  'FT/SEC, 
•FT/SFG',  IX,  'LBM/SEC,  18X, 

•LBM/HR/l  PF  • , 2X,  'DEG  R',  5X,  'SEC,  2X,  'FT/SFG*  , 
•IBS/FT2'  ) 


nUTPlOnO 
nuTPioin 
nUTPI020 
OUTP  1030 
nUTP lOAO 
•^IJTPIOSO 

nU''Pl060 
f’UTPlOTO 
'■nJT  P 1080 
nUTP  1090 
nijTP  1 100 
nu  T P 1 1 1 n 
nu  T o 11 2 0 
nUTPl l 30 
rjuTPi  140 
nuTP  1 150 
PUTP  I 160 
OU TP  I 170 
puTPi I ao 
nUTPl 190 
PUTPI 2 00 

nu  T p 1 2 1 0 

PUTP1220 
nUTP1230 
nUTP12A0 
PUTP1250 
P.JTP  1260 
7nT>  1270 
n!)TP  1280 
PUTP 1200 
nUTD 1 300 
PUTP1310 
niJTPl  320 
nUTP1330 
PUTP13A0 
^UTP1350  ; 

PUTPI  360 
'XJTPl  -<70 
PUTPI 380 
r’UTP  I 300 
mjTPl^OO 
ni  T P 14  10 
nUTPl420 
PUTP1430 
nUTPI440 
'^UTP  1450 
PUTP1460 
ot)TP1470 


SUPRPUTINF  PROP  11  PRPIOOIO 


c 

MncFs 

-1 

M IN 

THRUST 

PRP 10020 

c 

MOCFS 

0 

CFN 

REQUIRED 

PRPI0030 

c 

MOTES 

♦ 1 

MAX 

THRUST 

PRP  10040 

1 

I 


HA  256 


c 


r 


rr^MPN  /rppRT/  BnMR( 4) ,MUMt i ari ( 2) 

CCMMPN  /rXCLUn/  PT?,  TT2,  PTO,  CDA,  APAC,  PT2P0 
rrMMnM  /pp  IMTR/  I2( 2) , IVP, I4( A) 

/PAILUR/  kfail 
COMMON  /PJRLOK/  RJ(50) 

ECLUV  AL  FNCF 


1{PJ(  n.CNM  ),(PJ(  2),ANC  »f(RJ(  3), ANN 

2 (P J( f ) , CUR  ) f ( PJ( 7) , Cl  » t 

3('’J(  P),PTAY  ) , (R  J(  10),GAM  ),  (RJ(  ID  ,A6MAX 

A ( RJJ13),  A6MIM  ),  ( R J ( lA ) t XMOMR) , 

5(PJ(17),CnC  ) , (P J( 18) fPCMGN  ). 

e(PJ<  21)  , A2A?  ),  (P  J(  22)fFARLR  ),»RJ(23),nO 

7 (RJ<26),TTA  ) , (R J(27) .FAR 

8 (RJ(29),  WF  ),  ( RJ(30),  ANCA  ),  ( RJ(31), 

9(RJ(33),Tn  ),(RJ(3A),P0  ) t ( R J ( 35 ) .KD I A 

X (PJ  I 37  ),'’TA1  ) i<RJ(  38)  ,PTA2  ) . (RJ  (39)  ,PTA3 

1(PJ(A0),AM6  ) , (P  J(  ad  ,AMA  ) < (RJ(  A2)  «AN2 

2 ( RJ(AA),  GAMA  ),  ( RJ(A5),  P6  ),  ( RJ(A7), 

’(PJ(AS),APA  ) , (PJ(A9),PTA  ) , ( R J ( 50 ) ,WA A3 


) ,(R J(  A),AL  ), 

) t (R  J( 12) f ACMAX  ) , 

(RJ(20) f ALFPLU), 
) ,(RJ(2A) .ROAR  ), 
),(RJ(28),PM  ), 

PT2PCC  ), 

) f (RJ(36I,PTAI  ), 

) t 

) f (R J(A3) fGAM2  ), 
AR2  ) , 

) 


fOM^^rN  RLOCK  for  AL  TI  TUOFfTlTLFf  10  AND  FUFL  OFCKS 


co'^'MPN  /At  run/ 


IK  1, ALTC  2A ), SOTEMPC  2^) ,PRESS(2A) , 10(8) 

common  /fuflxx/ 

2K2f kk(  18) , TT2TAB(  15  ) ,TFAR I { I 5 , 1 5 ) , TTR SI ( 1 5 ,l 5 ) f T TR S2 ( 1 5 , 15 ) , 


X TTRS3(  15,15), 

3K3,KI  ( 15 ), JGAMM, TTATA(  15) ,TFAR2( 15, 15 ) , TGAM ( 1 5 , 1 5 ) ,FG( 15,15 ) , 
XFG( 15,15), 

AK4,KM(  15), JR,  TTATB(  15)  ,TFAR3(  15,15) ,RTAB(15,15)  ,FR(15,15), 
XFR( 15, 15), 

5NPI, AAM( 2A  ),  ANC  1 ( 2A)  ,FARL ( 2A) 

COMMON  BLOCK  FOR  IMLFT  PERFCRMANCF  MAP 
COMMON/  INI  = TX/ 

6K0, KPTC ( 15)  , ALPHV(  1 5 ) , A AM AC H ( 1 5 , I 5 ) , APACC ( 1 5 , 15 ) , P T3PTr ( I 5 , 15 ) , 


PBPin050 
PPPIOOAO 
PRP10070 
PRPinooo 
PPP10090 
POPlOlOO 
PPPlOllO 
PPP10120 
PPP10130 
PRPIOIAO 
PRP10150 
PRP 10 160 
PRPIO  170 
PRPlOlPO 
PRP  lOlQQ 
PRP1020n 
PRP10210 
PPP10220 
RPPIOPOO 
PRP  102A0 
PRPin250 
PPP1026O 
PRP10270 
PRP1O2R0 
PRPin2R0 
pRPioono 
PRPIO JIO 
PR'’10320 
PRP  10330 
PRPl03An 
PRP 1 0350 
P 3 5 1 0 3 60 
PRP  10  370 


lAOnuj  15, 15 ) pppiOOno 

COMMON/RJOAT/CFN  1,CFN2 ,A5A3 ,A6A3,ACA3,SFC,flll,B12,Rl3  PPPin3oo 

COMMON /TP  Ajx/  r FNFT,C  FNPOfAMACH,  ALFl  .MODE  S , 1 NO  , F AR  MAX,TT  <,M  AX  ,FS  L noPR  P lOAOO 


1, ICOOE 

COMMON/FXTFPN/  AR(20) 

EOIJIVALENCF  (AR(3),03),(AR(12I,A3) 


CPT  1 

PC  MARGIN 

MODE  = 1 

OPT  2 

TTA  MAX 

K00E2  « 1 

OPT  3 
OPT  A 

FAR  MAX 

CFN 

MODE  * 2 

TABL  F 

2 

TFMP  R!SF 

TABL  F 

3 

GAMMA 

T API.  F 

A 

R 

TABLE 

5 

BURNFR  SEVENTY  TABLE  ( TEMP  RISE  EFF,  LEAN  BLOW  CUT  ) 

T ABL  F 

6 

INLET  MAP 

( PT2PTn,A0AC,C0A) 

COMMON  /COOEXX/I 1(16) 
fOUlVAL  FNCF  (ID  D.KtNO) 

COMMON  /CRLK/  CLATR(AOC) 
FCUIVALFNCE  ( CLATR(60),  NPHAZ  ) 
LOGICAL  nPT( 3) 
logical  L1,L2,L3,LA 
niMFNSICN  NUMBER!  6),  JVER(7) 


PP  PIOAIO 
PRPIOAPO 
PRP10A30 
PRPIOIAO 
PRP10A50 
PRPin^60 
PRPl 0A70 
PRPlOAeO 
pRpiOA»'n 
PRP1050n 
PRP  105  10 
PRP10520 
PRP1053n 
PRP105A0 
PRP10550 
PRP10560 
PRP10570 
PRP105RP 
PPP10590 


h 


; 

i 

it' 


'! 

•i 


Li 


HA  257 


r 


TT4, 

OTREO.PT 


CAT  ft  NtlMPiFR/'  1*  , TS  ‘BCR  A* , 'BOR^  'f  *5'  , •6*/ 

CAT  A JVFR  /'DTRO  ' f 'PTA*  » 'AMZ  •»  •AM2**  , *AOAC»  t'PMAR*  CFRQV 
namelist  /stop/  ALF  1,AMACH,BPAR,P0,  FAR,TT2, 

IWAA3, TTO.PTOf AnACtPT2PO.OTRISE .ANCfMODESf 
2TAT.PT2MAR,PT?P0C, ftM2,AM 2NEW tCFNET, CFNRQt WF , WA t Jl t J2 t J3  t JA t J5 1 J6 . 
2 FARl  R,  PT2PnA 

A ,AMA, AM6,3 AM2»GAHA,C0A,AR2,ARA,ACA3,A5A3 ,P6PT6,GAP 
5 ,CFHI,CFLO,WFHI ,WFLn»Ll»L2fL3fLA 
GAMF(Q,R)=( l.+IQ-l.l /2.*R*R) 

WFHI  = 0.0 
WFLO  = 0.0 
NPUT=  IVP 
INO  = 0 

CALI  ISEN  { TOtPOf AMACHf TT2#PT0) 

IFI  KFAIL  .GT.  0 I RETURN 
7S  TTn=TT2 

CBTAIN  PRFSS  p ECOV FR Y , AQAC  AND  ADDITIVE  DRAG 

CALI  Tl  U2(ftLFltALPHV,K8tAHACHtAAMACH,KPTC»AnACCtAnACtIND) 
IFIINC.NF.O)  GO  TO  A15 
CALI  Tl  U22(PT3PTO,PT2POA) 

CALI  TLU22( ftDPD,rnAJ 

PT2MAR  =(  I.-PCMGN/ICO. »*PT2P0A 

PT2  = PTr*PT2MAR 


10 


PRP10600 
PRP10610 
PRP10620 
AN,PPPP10630 
PPP106A0 
PPPlOASn 
PTP 10660 
PRP10670 
PRP10680 
PRP106O0 
PRP10700 
PRP10710 
’3P 10720 
PRP10730 
PPP107A0 
PRP10750 
PRP10760 
PRP10770 
PRPl07fl0 
PRP107O0 
PRP10800 
PRP  108 10 
PPP10R20 


LA=. FALSE  . 

PPP10830 

IF<  ICODF.MF.O  1 GO  TO  10 

PPP108A0 

A3=. 7e5A*03**2/lAA. 

PRP10850 

A2A3  = 1. 

PRP10360 

L2=. FALSE. 

PPP10870 

1 3=  .false  . 

PRP  10880 

OPT! 2 )=  .FALSE  . 

PRP 1 ORPO 

OPT! 3)  = . FALSE. 

PPP10900 

IF( TTAMAX.GT.O.  » 0PT(2)  = .TRUE. 

PRP  10910 

1F( FARM AX.GT.O. ) OPTl 3 J=. TRUE. 

PRP10920 

A5A6= A5A3/A6A3 

pop  10930 

AtA5=  1./A5A6 

PRP  109A0 

ICODE  = I 

PRP10950 

L2=  nPT(2) 

PRP10960 

L 3=0P  Tl  3 1 

PPP10970 

1 1=.TRUF. 

PRP10980 

IXX  = 0 

PRP10990 

PART*GAM/2.*P0*AMACH**2*A3 

PRPllOOO 

AnA3*AOAC«'ACA3 

PR  PI  10 10 

W A A3* SORT! GAM)*. 77C5056*PO^AMACH /SQR  TITO) •A0AC*ACA3 

PRP11020 

MA=WAA3*A3 

PRP11030 

r A*COA*PAR  T*ACA  3 

PRPllOAO 

R CB«XM0MR*HA*AL/  32.  17A*A  MACH*A9. 

OA*SOR  Tl  TO) 

POP11050 

CP  *2.*AOA3*PART-RDR 

PRP11060 
PRPl 1070 

APA2*( A0AC*ACA3)/A2A3 

PRP11080 

PPAR.WAA3*( l.-AL  )/A5A3*|TTO/lOOO 

.l♦•2 

PRP11090 

CALL  TLUK  BPAR.AAM.NBltANCltANCf 

I NO) 

PRPlllOO 

IFI  INC.NF.O)  GO  TO  AlO 

PRPll 1 10 

CALL  TLUlllFARL.FARLB) 

PRP11120 

IFIFARLB.LF.O. ) FARLB  > 0.005 

PRP11130 

WF  * .O?5*36C0.*A3*WAA3*l l.-AL) 

PRPlllAO 

J 


HA  258 


r 

r 


c 


c 


IF(MnnFS)  15,17,16 
16  F/1R=  FARLS*FSLBn 

WF  = F AR*WA*3600.0*( l.-AL) 

L?  = .FALSF. 

C-V  TO  225 
IT  LA  =.TPUF. 

IF(  TFNRO  .LF.  0.  ) GO  TO  A56 
16  1 F (OPTO  ) 1 

IWF  =FARMAX*360C.*A3*(1-AL)*WAA3 
IFIOPTI  21) 

inTRFO  = ( TTAf'AX-TT2)  /AMC 
225  P’’?Pr  = PTP^'AR 
230  PT2Pnc=PT2Pn A 


J6  = 0 
J6  = C 

2 35  PTA I =.9  l*PT2Pn*Pn*( TTO /TO )♦♦ ( GAM/ (GAK- 1. ) 1 
FAR=hF/ 1WA*3600.*( l.-Al ) 1 
2AC  J1=0 
J2  = 0 

2A5  GALL  PTPGFT  ( FAR  ,TT  2 ,DTR  1 SE  , I NOI 
IF  ( INn.NE.O  ) GO  TO  395 
TT4  = TT2*ANC*nTR  I SF 
IFI.rJOT.LI  .ANO.  L2)  GO  TO  250 
GO  TO  260 

250  IF  I ABSIOTR ISF-OTPFO ) .LT..5)  GO  TO  259 
IF  (J  l.GT  .50  1 GO  TO  3A5 
J 1=J !♦! 

FAR  = FAR*nTRFO/nTR  I SF 

IF  ( npT I 3 1 . ANO.F AR .GT.FARMAX)  FAR=FARMAX 
GGI  TO  ?A6 

259  WF  = FAR  * 3600.  * A3  * (l.-AL)  * HAA3 

260  CALL  pGAMFR  (110,0.0,  TT2 ,GA M2 ,I NO , AR2 1 
IF  ( INP.A'F.O)  GO  TO  AOC 

CALL  RGAMer  ( no, far,  TTA,GAMA,I  no,  AR4) 

IF  ( INO.NF.Cl  GO  TO  40C 


PRPll 150 

PPP11160 

PRPlllTO 

PPPlllRO 

PRPl  1190 

PRP11200 

PRP11210 

PPPl 1220 

PRP11230 

PRP112A0 

PRPl 1250 

PPP11260 

PPP11270 

PRPl 1280 

PRPl 1 290 

PRP11300 

PRP11310 

PRP11320 

PRP11330 

PRPl 1 3A0 

PRP11350 

PRP11360 

PRP11370 

PRP113P0 

PRPl 1390 

PRPl  lAOO 

PPPIIAIO 

PRP11A20  = 

PRPl IA30 

pool  I AAO 

PRP11A50 
PPPIIA60 
PPPl I ATO 
DROllAaO 
PRPllA9n 
PRP11500 
PRP11510 
PRPl  1520 


PTAN=( ( l.-Al  )♦(  l.+FAR  »*WAA3*S0RT( TTA) 1 / I A5 A 3*CNM*S C FT ( ( 32 . 2 *G AM A/ APR P 1 1 630 
IRA  )*( I 2./1 GAMA  + 1 . 1 )**( (GAMA+1. )/(GAMA-l. ) 1)1)  PRPll 6A0 

IF  (ABS(PTAr-PrANI.LT.2. J GO  TO  265  PRPlt550 


PTAl =PTAN 

IF  (J2.F0.5C)  GO  TO  350 


PRP11560 

PRP11570 


J2=J2+1 
GG  TO  2A5 

265  CAR=CNM*A5A3 
FR  = I . /C  AR 
K=-l 

CALL  MACHNO  ( RR , GAMA, AMA,K, INO  I 
IF  ( INO.NF.O)  GO  TO  385 
AM2*0 .1 
ST01*0. 

ST02=0. 

PP1=AMA*SQRT( GAMF(GAMA,AMA) I 


PRP11580 

pop  1 1690 
PRPl I6O0 
PRP11610 
PRPl 1 620 
PRO11630 
PRP116A0 
PRPH650 
PRP11660 
PRPl 1670 
PRP11680 
PRP11690 


HA  259 


a 


FP2=1 .-fnB/2 . 

PP  3=  I .♦GAMA*AM<t*AM<« 

PP4=( CAM2-  1. )/2. 

PPS=<  I .♦FAP  )*( l.-AL •♦SQRT( (GAM2*AR4*TT^» /(GAM4*AR2*TT2I » 
J3=0 

270  rrNTINUF 

G22= AM2*AM2 

AM2^FW  = PPl*(  l.  + GAM2*G22*eB2)/(BP3*SQRTn.*BB<»*G22)  )/eB5 
IF  { ABS(AM2NEW-AM2)-.000l)  280,280,275 
275  IP  (J3.CT.50)  GD  TO  355 
J3=J''  + 1 

AA  = ( AM2^'FW-STn  1 ) / (AM2-STr2) 

IF  ( AA. FO  . 1.  » GO  TP  360 
0=AA/( AA-l . ) 

IP  (O.GF.l.)  0=.55 
IF  (C.LF.-  1.  ) 0=-.c5 
STO  1= AM  2NFW 
STP2  = aF'2 

AM2  = C*STn2-K  l.-Q)*STri 

nr  TP  2 70 


2P0  PT2Pr’C=PP/PT0*AM  Ar,H/AP2*S0RT(GAM*TT2/GAM2/TQ)*(  l.*(GAM2-l.  )/2. 
l**2I**(  ( rAM24l.  )/2./(GAM2-l. ) ) *AnA2 
K =l 

fAll  MACHNCl  I A6A5,GAMA,AM6,K,IN0» 

I F ( IND.NF  .0  ) GO  TO  3B5 
IF  (MODFS  .LT.  0)  GO  TO  325 
IF( 1 3 > no  TO  285 
IFIL  2 ) GP  TO  2«?0 
I FI  LI)  GO  TO  300 
325  DT2Pn  = PT2P0C 

P6PT6=GAMFI  G AM<>,  AM6)**  I - CAM  A/ 1 GA  M4- I , ) ) 

rFIMT=( A6A3/1 .7*AMACH**2) )• (PTAN/P0*ANN*P6PT6*( I . 4G AM^ * AM6**2) 
l-2.*AnAC*ACA3 
Fr=irFTNT42.*AOA2)*PART 
FN=HG-PR-nA 
C FN  FT  = FN/PAR  T 
I FI  MtinFS  .NE  . 0)  GO  TO  326 

315  IF  I A3  5ir:  NFT-CFNRO)  .LT..001)  GO  TO  326 
IFI  IXX  .EO.  C)  GO  TO  327 

316  IFI  GENET  .LE.  0.C05  ) GO  TO  312 
IFICFNFT  .LT.  CFNRO)  GO  TO  317 
WFHI  = WF 

CFKI  = r.FNFT 

IF  IWFLO  .GT.  0.0)  GO  TO  318 
310  WF  * WF*ICFNR0/CFNFT)**.  84 
220  IF(J6  .GT.  50)  GO  TO  375 

IFI  J6  .GT.  40  ) WRITE(6,ST0P) 

J6=J64l 
GO  TO  A 17 

317  CFLO  = GFNFT 
WFLO  = VT 

IFIWFHI  .LE.  0.0)  GO  TO  319 

318  HE  = WFLO  ♦ (CFNRO-CFLO )/ ICFHf-CFLC) • I HFHI  -WFLO) 


PRPl I 700 
PPP11710 
PRP11720 
PRP11730 
PRPll 740 
PPPl I 750 
PRPll 760 
PRP11770 
PRPl 17R0 
PRP11790 
ORP11800 
PRP11810 
PRPll R20 
PRPl 1830 
PRPl IR40 
PpPl 1850 
PR  PI  I 860 
PRPl I 870 
PRP11880 
PRPl 1 890 
PRPl 1900 
PRP119  10 
*AM2PRPI lo?0 
PRP11930 
PPP119A0 
PRPl 1 9E0 
PPPl I 060 
PPPl  1070 
PRPl  lOPO 

PPOJ lOQO 

PPO12O00 
PRP 1201 0 
PPP12020 
-1. )PRP12030 
PRP12040 
PRP 12050 
PPP12060 
PPP12070 
PRP12080 

> I P120O0 

PPP12100 

pop  12  I 10 

PRR12120 
PRP12130 
PPP12 140 
PRP12150 
POP12160 
PRP 121 70 
PRP 12  I no 
PRP121O0 
POPi22no 
PRP12210 
12220 
PRP12230 
PRP12240 


HA  260 


fd  TO  ’20 

326  SFC=WF/FN' 

G22  = GAF'F<  GAM/i.AMA) 

T4=TTA/G22 

PF2=(  r,AMF(GAM2,  AM2  ) ) ♦*  ( GA  M2  / ( 1 .-GAM2  ) » •PT0*PT2P0C 

IF(MnDFS  .FO.  -2)  MGIDES  = 0 

PFTURN 

327  1 F(CFNFT.LT.CFNR0»  GO  TO  326 

11  = .FAI  SE. 

12  = .FAL  SE. 

L ••  = .F  «l  SF. 

!XX  = 1 

rr  TO  316 

?P5  IF(L2)  GO  TO  301 
2';9  I P(  .NOT.L  I » GO  TO  325 

!F(PT2POC  .LT.  PT2MAP)  GO  TO  305 
I?  = .FALSE. 

CF  TO  300 

3Cl  IF(TT<i  .GT.TTAMAX)  GO  TO  302 
L2  = .FALSE. 

FP  TP  2P9 
3C?  13  = .EAL  SE  . 

GP  TP  250 
3C5  LI  = .FALSE. 

GP  TP  325 

TF(  .NOT  .LI)  GO  TO  325 
IF(PT2P0C  .LT.  PT2MAP)  GO  TO  305 
L2  = .FALSE. 

GP  TP  300 

IF  < ARS(  1.-PT2POC/PT2MAR  ).LE..OOU  GO  TO  325 
IF(J5.GT.50)  go  TP  370 
J5=J5*1 

IF(LA)  go  TP  310 

311  WF=WE*( (PT2MAR/PT2PnC )**2*TTA-TT2) /( TTA-TT2) 

A17  lElWF.LE.O.)  GO  TO  312 

E AR=WF/(WAA3*A3*3600.*( l.-AL) ) 

IF(0PT(3I  .ANO.  EAR  .GT.  FAPMAX)  FAR  = FARMAX 
313  WF  = FAR*36CC.*A3*( 1.-AL)*WAA3 
GO  TP  2A0 

312  IFIFAR  .LE.  FARLP)  GO  TO  A51 
FAR=  FARLP 

GO  TO  313 

3 10  P6PT6=GAMF(GAMA,  AM6)**<-CAMA/(GAM4-l.)  ) 

CFINT=( A6A3/( .7*AMACH**2) 1* (PTAN/P0*ANN*P6PT6*l 1 .♦GAMA*AM6**2) 
1-2.*A0AC*ACA3 
Ff=lCFtNT62.*AnA3)«'PAPT 
EN*HG-nR-nA 


2S0 


3C0 


CENFT  = EN/P  AR  T 
CFN=CFNET 
IFICFN.LT.  CFNRO 
LI  * .FALSE. 
rO  TP  315 
3A5  IN0=1 

GO  TP  3flO 
350  |N0*2 


.OP  .PT2P0A.GT.  PT2P0C)  GO  TO  311 


PPP12250 
PRP12260 
PRP12270 
PPP122R0 
PRP12290 
PRPl2iOO 
PRP12310 
PRP12320 
PRP12330 
PRP123A0 
PPP12350 
PRP12360 
PRP12370 
PRP123R0 
PRP12390 
PPP12AO0 
PRP12A10 
PRP12A20 
90912^30 
PPP12A40 
PRP12A50 
PP.P12A60 
PRP12A70 
PRP12AR0 
PRP  12A90 
PRP12500 
PPP125  10 
PPP!?52n 
PPP12530 
PPP125A0 
PRP12550 
pop  12560 
PRD1257n 
PRP125H0 
PRP12  590 
PRP12600 
PPP12610 
PRP 12520 
PRP12530 
PRP126A0 
PPP12550 
POP  12660 
PPP12670 
1. )PRP12580 
PRP126on 
PRP12700 
PRP12710 
PRP17720 
pop  12730 
PPP127A0 
PRP12750 
PPP12760 
POP12770 
PRP12780 
PRP12790 
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1 


f 


GO  TO  3R0 

PRP12B00 

355 

1^0=3 

PRP128  10 

GO  TO  3P0 

PRP12B20 

360 

INn=  A 

PRPl2fl30 

I F ( IVP  .NF  . 0 

) WRITE 

(6,520) 

PRP128A0 

GO  TO  505 

PRPl2a50 

310 

INr  = 6 

PRP12860 

GO  TO  3P0 

PRP12870 

375 

INn=7 

PPP12B80 

3P0 

IF  ( IVP  .NF.  0 

) WRITE 

(6,525) 

JVER(INO) 

PRP128O0 

GO  TO  505 

PRP12900 

3E5 

IMD=P 

PRP12910 

I F ( IVP  .N  F . 0 

) WRITF 

( 6,  530) 

PRP12920 

GO  TO  505 

PRP12930 

3S5 

irEN=N(;MpFR(  2) 

PPP129A0 

00  TO  A25 

PRP12950 

ACO 

irEN=NUMPFR I 3 ) 

PRP12960 

CO  TO  A 35 

PRP12970 

AlC 

I rEN=NUMBERI 5 ) 

PRP12980 

CO  TO  A35 

PRP12990 

A 15 

irFN=NU*'BFP(  6 ) 

PPP13000 

A'>5 

IF  ( IVP  .NE.  0 

) WRITE 

(6,5A0) 

I DEN 

PRP13010 

IF  ( IVP  .NF.  0 

) WRITE 

(6, 5A5) 

BOMB,  lARKMUM) 

PR  P13020 

IF  ( INO.FO.IO)  GO  TO  AAO 

PRP13030 

IF  ( IVP  .EO.  0 

) RFTURN 

PRP130AO 

WPITF  (6,  550  ) 

PRP13050 

505 

1F(  MOUT.LF.  1 ) 

R FTURN 

PRPl 3060 

WRITF  I 6,  STOP 

) 

PRP13070 

RFTURN 

PRP130R0 

AAO 

IF  { IVP  .NF.  0 

) WRITE 

(6,555) 

PRP13090 

GO  TO  505 

PRP13 100 

A5l 

IFIMOOFS  .EO  . 0) 

GO  TO  A56 

PRP131 10 

INC  = 1 

PRP13120 

IF  ( IVP  .NE.  0 

) WRITE 

(6,AS2) 

PRP13130 

A52 

FORMAT! APH  LEAN 

PLOW  OUT 

PRESSURE  RECOVERY  EXCEEDS  CRITICAL) 

PRP  131A0 

GO  TO  505 

PRP13150 

A 56 

MODFS  = -2 

PRP13160 

CO  TO  15 

PRP13170 

520 

525 

530 

5«0 


FORMAT  (•  tMPROPEP  SLOPE  tN  ITERATICN  TO  FIND  AM2  •) 

format  (•  FAILURE  TO  CONVERGE  IN  PROPl  IN  THE  LOOP  FOR  ',A^/) 

FORMAT  I'OFAILURE  IN  MACHNO  WHEN  CALLED  BY  PROPl  •) 


FORMAT  (‘OAN  OUT  OF  TABLE  CONDITION  EXISTS  IN  TABLE  'tA^,*  IN 


PRP131R0 

PR"13l«0 

PDPi32no 

PPPPORP13210 


PRP13220 


iA5 


5 50 
555 


11  •/  ) 

FORMAT  !•  1ST  IND  VAR  I ABLE  * • , E12 . 5, • 2ND  IND  VARIABLE*  ',012. 5t'  SPOP13230 
lUPTABLF  **,F10.3,'  SUBTABLF  SIZE  **»E10.3/'  THE  VARIABLE  OUT  OF  RAPPP132A0 
2NGE  IS  THE  'fAA,'  INDEPENDENT  VARIABLE'/)  PRP13250 

FORMAT  (•  THE  INDEPENDENT  VARIABLE  IS  LARGER  THAN  THE  LARGEST  TAPLPRP13260 
IF  VALUE'/)  PRP13770 

FORMAT  ('  THF  INDEPENDENT  VARIABLE  IS  SMALLER  THAN  THE  SMALLEST  TAPRP132P0 

IBLF  VALUE'/)  PRP132oO 

END  PPP13300 


SUBROUT  IF'E  RUNGEK  ( KWISH  ) 


PUNKOOlO 


1 
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SU«RnuTlN'P  RUNGE  K PERFORMS  THE  FOLLOWING  FUNCTIONS — 

( DNIIMFR  ICALLY  INTEGRATES  ALL  THF  VARIABLES  OF  INTEGRATION 
SIMULTANEOUSLY  USING  FOURTH  ORDER  RUNGE-KUTTA  FORMULAE 
(2)SI7ES  THE  INTEGRATION  TIME  STEP  TO  ROUNO  THE  INTEGRAT 
TPUNFATinN  FRROR  OR  TO  STOP  THE  INTEGRATION  AT  PRl 

times  and  phase  termination  time. 
mr.ONTROLS  newton-raphson  iteration  to  stop  the  phase 
USFR-SUPPL I ED  VALUE  OF  A TERMINATION  PARAMETER,  E.G., 

altitude,  mach,  propellant  weight,  etc. 

(A)CALLS  OUTPLT  SUBROUTINE  AT  PRINT  TIMES  AND  PHASE-END  T 
(5)ST0PS  THF  INTEGRATION  IF  ALTITUDE  GOES  NEGATIVE  OR  IF 
TOO  MUCH  or  THE  VEHICLE  MASS  IS  CONSUMED  AS  FROPFILANT 
PFAl*B  XPRIMl,  XPRIM 
COMMON  /FAILUR/  KFAIL 

common /CRLK/CI  ^00)  /C  IBLK/CI  (lOOC)  /PIBLK/PI  (70)/IPPLK/IP(l0) 

L /PKBl  K/X(  IC)  ,XOOT(  10) , XPRI  Ml  ( 10) 


RUNt(n02D 
RUNKOOTO 
RIJ  NKOOAO 
ION  RUNXdoSD 
NT  RUNt<0060 
RUNKDD70 
CN  PUNKODBO 
RIJ  NK  0090 
RUNKOlOO 
IMPS PUNK  01 10 
RMNK0120 
PUNKOnO 
PUNKDl/fO 
PUNK  01  50 
PUNK  01 60 
RUNK0170 


EOU  IV  AL  ENCE 

( 7, 

X (1)  ) 

RUNKOl  80 

ECUIV  AL  FNCF 

(TSAVE, 

C( 

32)), 

PUNKO  190 

I (XTOL, 

C(  ?3)  ) , 

(NERR, 

C(  3A) ) , 

(ERLIMT, 

C( 

35)  ), 

RUNK0200 

2 (NFQ, 

C ( 36) ) , 

( IDONF  , 

C(  37) ) , 

(NDONE  , 

C ( 

38)  ) , 

PUNK0210 

3 (FPLOG, 

C(  39)), 

(NBAD, 

C(  AO) ) , 

( JSTFP, 

C ( 

Al)  ), 

PUNK  022  0 

A (TTPL, 

C(  A2)), 

(TMAX  , 

C(  A3) ) , 

(DELT, 

C( 

AA)  ), 

PUNK0230 

5 (KSUB, 

C ( A5)  ) , 

(RATIO, 

C(  A6) ) , 

( AK(1)  , 

C( 

A7)  ), 

PUNK02A0 

6 ( AK  ( 1 ) , 

C(  51)  ) , 

(KKK  , 

C( 

56  ) ) , 

RUNK0250 

7 ( index. 

C(  57)  ) , 

( TOLT, 

C ( 58)  ) , 

(I  OUT, 

C( 

59)  ) , 

RUNK0260 

B (WFMPTY 

, C(  86)), 

(NMAP, 

C(  91)) 

PUNK0270 

E^U  IVAL  ENCE 

PUNK02P0 

1 (MXSTFP, 

Cl ( 9) ), 

(DSTART, 

Cl ( 10) ) , 

(EREF, 

Cl  ( 

12)  ) , 

PUNK  0290 

2 (FPPFAC, 

CI(  13)), 

( JPRINT, 

Cl  ( 22)  ) , 

(OMIN, 

Cl  ( 

11  ) ) , 

RUNK0300 

3 I IPROPl 

, 01(38)) 

PUNK0  310 

ECU  IV  AL  FMCF 

RUNK0320 

1 (xstar, 

PI  ( 6)  ) , 

( SLOPE  , 

PI  ( 7)  ) , 

(DPRINT, 

PI  ( 

10))  , 

RUNK033n 

2 (ALTF, 

PI ( 2) ) 

PUNK03A0 

fcuivalfmce 

( I term. 

IP(  1)  ) , 

(IPTYPE, 

IP( 

3)  ) 

PUNK0350 

PIMENS ION 

AK(A),  AW(A) 

, XPRlMdO 

,2)  , XINC(IO)  , XDCTPM( 10 

,2), 

PU NK0360 

1 

OLDINCI  10  ) , 

XK(IO) 

PUNK0370 

1.E5, 


1000.,  1000./ 


r IMFNS ION  XNORMI  7) 

DATA  XNOPM/ICOO.,  l.C,  5000., 
KWISH  = 0 
KKK  =0 

RATIO  = O.DO 
NIX  = -1 
M = 1 
N2  = 2 


GET  EXACT  RAMJET  PERFORMANCE  AT  PHASE  START,  CALL  TC 

DFRIV  INITIALIZES  ANGLE  OF  ATTACK  (ALPHA)  AND  THRUST(THR). 
NAMEL IST/NRK/IPTYPE,  IPROPl,  C 

IF(  IPTYPE  .NF.  A .OR.  IPROPl  .GT.  0 ) GO  TO  99 
DO  10  I»l,10 
X(  I )=XPRIM1(  I ) 

IPRCIP  1=  I 
CALL  OFRIV 

IFIKFAIL  .GT.O)  RETURN 


punkotbo 
PUNKrnoo 
PUNKOAOO 
PUNK OA 10 
PUNK OA 20 
OUNKOA30 
OUNKOAAO 
PIINKO  A50 
RUNKnA60 
RUNK0A70 
RUNKOABO 
RUNK0A90 
RUNKOSOn 
RUNKOSIO 
PUNK0520 
RUNK0530 
PUNK05A0 
RUNK0550 
RUNK0560 
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r 


r 

c 


r 


r. 


c 


c 

c 


IPR0P1=C 

PUNK0570 

RUNK0580 

I^'ITIAL1ZE  linearized  RAMJET  AT  PHASE  START 

PUNK0590 

CALI  TPROP 

RI)NK0600 

TFIKFML  .C,T  .0  ) RETURN 

PUNK 06 10 

«;q 

CPNT INUF 

RUNK0620 

rr  98  J=1,NF0 

RUNK0630 

98 

XPRIW(J,N1)  = XPRIMKJ) 

RIINK0640 

ICl 

nr  110  J = l,MEQ 

PUNK0650 

i 10 

X(J)  = XPPIM(J,N1) 

PUNK0660 

E?  = DFLT 

PUNK 0670 

Ml  = 1 

RUNK0680 

M2  = 2 

RLiNK  0690 

EFLT  = CFLT/2.00 

PUNK0700 

KSUP  = 1 

RUNK0710 

CAU  DFR  fV 

PUNK0720 

I FI K FA  IL  .DT.O  1 RETURN 

PUNK0730 

RUNK0740 

1 1? 

IF  (A  HCIMF  J I2Cf  120,114 

PUNK0750 

l K 

CALL  OUTPUT 

1 'J')<0760 

Nrnr'F  = o 

PUNK0770 

IF(  innEiF.LF.O)  GP  TT  120 

PUNK0760 

nLrx  = C( TDONE) 

RUNK0790 

XMIF  = XSTAR  - OLDX 

PUNK0800 

120 

ASSIGN  300  TO  NSTART 

runkorio 

2Cl 

cr  2C2  J - l.NEO 

RUNK0fl20 

XrnTPM(J,Ml)  = XDOTIJ) 

OUNK0830 

2C2 

XIA'C  (J)  = c.co 

PUNK 08 40 
PUNK0850 

2C6 

KSIJP  = 2 

RUNK0860 

ASSIGN  21?  TO  N 

RUNK0870 

2C7 

rr  208  J = i,NEo 

PUNK  0880 

XK( J ) = XDOT  1 J)  * DE  LT 

PJN<  08°0 

XINC(J)  = XINC(J)  ♦ AW(KSUB-l)  * XK(J) 

'3JAIK0900 

2C3 

X(J)  = XPRIM(J,N1)  ♦ AK(KSUB)  * XK(J) 

PUNK09  10 

2 10 

CALL  OEPIV 

PUNK0920 

IFIKFAIL  .GT.Ol  RETURN 

PUNKnq70 

211 

GO  Tn  N,  1212,212,214,225) 

RUNK0940 

212 

KSUB  = 3 

RUNK0950 

A SS  IGN  213  TO  N 

?UNK  0^60 

Gr  Tn  2C7 

RUNK0970 

2 13 

KSUP  = 4 

RUNK09P0 

ASSIGN  214  TO  N 

RUNK0990 

CO  TO  207 

RUNK 1000 

2 14 

cr  220  J = 1,NE0 

PUNK  1010 

XINCIJ)  = XINC(J)  ♦ AW(4I  ♦ XOOTIJI  • DELT 

RUNK  1020 

XPRIM(J,N2)  * XPRIM(J,N1)  ♦ XINCIJ) 

RUNK1030 

2 20 

XIJ)  = XPRIM(J,N2) 

PUNK  10^,0 
PUNK  10  50 

ASSIGN  225  TO  N 

PUNK  1060 

KSUB  = 1 

RUNK 10 70 

GO  TO  2 10 

PUNK  1080 
3UNK 1090 

225 

GO  TO  NSTART,  1 320, 310,3CO) 

RtlNKl  100 
RUNKl  1 10 

g 
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ASSICN  310  TO  NSTART  PUNK1120 

NC  = Ml  PUMK1130 

Ml  = N2  RUMK1140 

CP  303  J = l.NEO  PtlNK1150 

riniMClJ)  = XIMC(J)  PI)NK1160 

X ivr  ( J » = C. CO  PUNK  1 170 

xrnTPM(j,M2)  = xnnT(j)  punkuso 

rr  TP  206  P(/M<1190 

PUNK  1200 

CP  3U  J = 1,NE0  PUNK  1210 

X INC  (J)  = (XINC  (J)  *■  OLDINC  (J))*3.00  - (XOOTPM  IJ.Ml)  + XDPTPM  PUNK1220 


xrnTPM(j,N2)  = xnnT(j) 
rr  TP  206 


1(  J,^*2)*A.no  ♦ XOPT  (J))*OELT 
ASSIGN  21S  TP  KEPP 
M = NO 
GP  TO  3AC 

IF(  F7  .GT.  PPLIMT  .AMD.  INDEX  .EO.  0 ) GO  TO  500 
ASSIGN  320  TO  NSTART 
ASSIGN  206  TO  I PEG  IN 
A 1 = A2 
GO  Tf’  AOA 


PUNK  12'»0 
PUNK 12A0 
PUNK  1250 
PUNK  1260 
RUNK1270 
PUNK  12rlO 
PUNK12P0 
PUNK  1300 
PUNK  1310 
PUNK  1 320 
PUNK  1 3?n 
PJNK 1 3A0 
PU  NK  1350 
PUNK  1360 
PUNK  1 370 
PUNK  1 3P0 


I PATIP  = PELT  / OLPOFL  RUNK13?n 

HEACT  = DFLT/ll.OO  *■  PATIO)  PJNK13A0 

arpEFl  = -PATIO  * PATIO  * HFACT  PUNK  1350 

AGPEF2  = PATin*(rrLT  + 3.nO*OLnDEL)  RUNK1360 

ACnFFB  = OEIT  ♦ DECT  +•  HFACT  RUNK1370 

CP  300  J = UNFO  PUNK13P0 

I XINC  IJ)  = ACOEFI^XDPTPM  (J,N1)  ♦ ACnFF2*XD0TPM  IJ , K2 ) - 6. 00*X  I KCRUNK 1 390 

KJI  + ACrFF3*X0nT  (J)  PUNK  1^00 

PUNK  1 A1  0 

ASSIGN  AGO  TP  KFRP  PUNK1A20 

PUNK  lA  30 

PROCESS  FRPPRS  IN  THF  INCREMENTS  AND  SELECT  THF  MAXIMUM  ONE  (E2).  PUNKIAAO 
I F?  = O.nO  PUNK1A50 

PUNK  1 A60 

SFLFCT  THF  maximum  ERROR.  PUNK1A70 

DO  36C  j = l.NEO  PUNKIAAO 

XINM  = AflS«XINC(J))/XNORM(J)  PUNK1A«0 

IFIXINN  - F2)  36C,360,358  PUNK1500 

1 NFPP  = J PUNK1510 

F2  = XINN  PUNK  1520 

I CPNTIMUF  RUNK1S30 

IF(  E2.L  T.  l.E- 10  ) F2  = l.F-10  P'JNK15A0 

A1  = A2  PUNK  1550 

iriDFLT  .LT.C.C)  CALL  ERROUT  PUNK1560 

IF! DFLT  .IT .0.0)  RETURN  PUNK1570 

A2  = ALOC  (E2)  - 5.00*AL0G  IDELT)  RUNK15P0 

CO  TO  KFPR.  (AOO.  315)  PUNK1590 

RUNK1600 

1 IF  (F2  - FPLIMT)  A02.A02,510  PUNK1610 

’ H2  = OEl  T PUNK  1620 

■ CIPDEI.  = DELT  PUNK1630 

RUNK16A0 

CONTROL  COMFS  HERF  HHFN  A SUCCESSFUL  RUNGE  KUTTA  INTERVAL  IS  COMPLRUNK 1650 
IF  (ITERM)  AIC,A20.410  RUNK1660 


IF  ( F2  - FPL IMT ) 
H2  = OEl  T 

CIPDEI.  = DELT 


A02 .A02,510 
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W^-F^  I^CFX  FXFFFFS  7FR0  AN  ITERATION  FOR  DEPENDENT  VARIABLE  STOP 
FONT  INUF 

IF  I INDEX  ) A13,AIU413 

CL  rw  I s = xM  I s 

H2SAVF  = H? 

X«1  S = XSTAR  - C < IDPNE ) 

IF  (OLDFTS  * XMIS)  412,413  ,418 

IF  (SLOPF  * XMIS)  413,413,418 

INDFX  = index  ♦ 1 
XNOW  = ri TDONF ) 

1F(ITFPm_2)  4131,4130,4131 

H?SAVF=  A^^SI  F2SAVF/?,nO)  • SIGNd.OO,  OLOM!  $♦(  XST  AR-XNOW)  I 
or  TP  4132 

F2SAVE=(XSTAR-XN0W) / (XNOW-OLDX)  ♦H2SAVE 
CELT  = F2SAVE  ♦ H2 
IFIPFLT  ) 4 13  3,4  133,  4135 

WP  ITF  (6,4134) 

FORM  AT(  20H0NEGAT  IVE  INTEGRATION  INTERVAL) 

GP  TP  430 

IF(  ABS(H2SAVF)  - XTOL)  700,415,415 
TMAX  = T 
rp  TO  4 20 

IF  (INDEX  - 20)  418,416,416 

WRITE  ( 6, 417  ) 

FPo^'ATI  54HCITERAT10N  TO  STOP  ON  A DEPENDENT  VARIABLE  UNCCNVERGED) 

GP  TP  430 

Cl PX  = C( IDPNE ) 

IF  ( INDEX  ) 420,420,  101 

JSTFP  = JSTFP  4-  1 

IF  ( APS  (TMAX  - T)  - TTOL)  424,  424  , 427 
Cn  425  J = 1 ,NEO 
XPRIMK  j)  = XPRIM(  j,N2) 

CALI  OUTPUT 
KWISH  = 4 21 
RFTIIBN 

IF  ( JSTEP+NPAD-MXSTEP  ) 431,428,428 

WJ  IT5  (6,  42°) 

FPRMATI 17H0MXSTEP  EXCEEDED.) 

CALL  FPROUT 
IFIKFAIL  .GT.O)  RETURN 


IF  (H2  - DMIN)  4312,431  0,4318 

KKK  = KKK  ♦ 1 

IF  (KKK  - 10)  4319,4314,4314 

WPITF  (6,4316)  DMIN 

FORMAT)  26H0TFN  CONSECUTIVE  INTERVALS  LESS  THANF6.4  ,6H  SECS.) 
GO  TO  4 30 
KKK  = 0 


4319,4314,4314 


CONT INUF 

NEGATIVE  altitude  CHECK 


RUNK  1670 
IRUNK  30 
RUNX1690 
R NK1700 
RUNK1710 
RUNK I 720 
RUNK  I 730 
RUNK1740 
RUNK1750 
RUNK 1760 
RUNK 1 770 
RUNK1780 
RUNK1790 
RUNK 1800 
RUNK  18  10 
RUNK1820 
RUNK1830 
RUNK 1840 
RUNK  1850 
RUNK  1860 
RUNK  18  70 
RUNK1880 
RUNK1890 
RUNK looo 
RUNK 191 0 
RUNK  19  20 
RUNK 1930 
PUNK  1940 
RUNK1950 
RUNK1960 
PUNK1970 
RUNK 19R0 
RUNK  1990 
PUNK  2000 
RUNK  20  10 
RUNK2020 
PUMK2030 
PUNK  2 04  0 
<3JNK2050 
I U"!  K 2060 
RU^'K207a 
RUNK20P0 
PUNK2090 
RUNK2100 
RU  NK  2 1 1 0 
RUNK2120 
RUNK2  130 
RUNK2140 
RUNK2150 
RUNK2 160 
RUNK2170 
RUNK2180 
RUNK2190 
RUNK2200 
RUNK2210 
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IF(  X(A)+100.  .GT.  c I GO  TO  4322 
WP  1TF( f ,4320  ) X(  4» 

I FCPMAK  //  lOI-  ALTITUDE=  F8.2  ) 

GO  TP  430 
' CrNTrNDF 
WFIGFT  THFCK 

IF(  y(6)/WEMPTY  .GT.  C.IO)  GO  TO  4324 
WP  ITF (t  ,4323  ) 

1 FPPMATC  //  86F  test  in  RUNGE  K FOUND  THAT  VEHICLE  WEIGHT  IS  LESS 
1 THAN  10  PERCFNT  PF  EMPTY  WEIGHT  ) 

GP  Tn  a30 
CPNTINPE 

A3=  ( A2-A  I )*RATin  + A2 

PELT  = AMINI  ( EXP  (lERLCG  - A3)/5.00),  4.004H2) 

ir(  xnPT(4)  .lt.  0.  I nELT=AMiNi(  CELT,  I X 14 ) ♦ 100  . )/ ( -xnrr  ( 4 ) ♦? 
♦ » ) 

IFI  ITFPM  .F0.7I  nFLT=AMINl(  AB S (( A LTE-X (4) ) /XDCT  14 ) ) *0 . 7 , CELT) 


IF  (PPPINT)  438,438,434 

IF  I AF,S  (TOUT  - T)  - TTOL)  435,  435,  436 

CALL  OUTPUT 

TPUT  = TOUT  ♦ DPRINT 

IF  (T  4-  CELT  - TOUT)  442,442,437 

PEL  T = TOUT  - T 

PP  TP  4A2 

IF  («^nP|JSTFP,  JPPINTI)  442,440,442 
CALL  OUTPUT 

IF  (T  ♦ PELT  - TMAX)  450,444,444 
CFLT  = TMAX  - T 


450,444,444 


CCNT INUF 

TEST  FLIGHT  CONOITION  REGION  AT  THE  END  OF  EACH  STEP 
IF(  IptyPF  .FO.  4 .AND.  IPROPl  . EQ.  0 ) CALL  TPRCPA 
I F(  K F A IL  .GT.O  ) R FTURN 
MO  = Ml 
Ml  = M2 
M?  r MO 
NO  = M 
N I = N2 
M?  = NO 

CP  46C  J = l,NEO 
ynOTPM(J,M2)  = XDOTIJI 
XTNC  (J)  = C.CO 
GC  TP  2C6 


ASSIGN  101  TO  IPFGIN 

GO  TP  505 

CP  520  J = l,NFO 

xroT  I J)  = XOOTPMI  J,M2) 

XING  (J)  = C.CO 

CENT INUE 

NPAC  = NBAD  ♦ 1 

E2  = DEL T 

CFLT  = AMINI  I EXP  KERLCG 


- A2)  /5.  CO)  , OELT) 


PUNK2220 
PUNK2230 
RUNX2240 
PUNK  2 2 50 

punk  2 260 

Ri)NK2270 
PUNK2289 
PUNK  2290 
RUNK23O0 
PUNK  2310 
PUNK  2 3 20 
PUNK2330 
PUNK  2 340 
PUMK2350 
.PUMK2360 
PI  INK  2 3 70 
PUNK  2 3 80 
PUNK  2390 
PUNK240n 
PUNK24  10 
RUNK2420 
RUNK24T0 
PUNK2440 
PUNK  2 4 50 
RUNK2460 
PUNK  2470 
PUNK  2480 
punk  2400 
RUNK25n 
PUNK  2510 
RUNK2520 
PUNK25  30 
OUNK2540 
PUNK  2 5 50 
PUNK2560 
PUNK2570 
PUNK2583 
PUNK  2500 
PUNK  2600 
P'JNK  26  10 
RUNK262n 
PUNK  2630 
PUNK2640 
PUNK  2650 
RUNK2660 
PUNK  2670 
PUNK26B0 
RUNK  2 600 
RUNK2  700 
PUNK  2 710 
RUNK2720 
PUNK  27  30 
RUNK2740 
PUNK2750 
PUNK2760 
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n o r> 


t2  = ft  1 

IF  ( ‘ IX  - JSTFP  ) 

SAO  MX  = JSTFP 

cn  TP  loEGlN,  ( 2Ce, ICl) 
5S0  ftSSIGM  101  TD  IPFGIN 

IF  ( NRAr+ J STFP-M XSTPP J 
560  GP  Til  IPFGIM,  ( 206,101) 
Fft'P 


5A0,550, 540 


560,560,428 


PtJNX?  770 
PllK'x?780 
Rl)NK27P0 
PiJNt<2800 
RiJ  MK  2 8 1 0 
WJNK2R2  0 
PiJNx  2 0 70 
OUS'K  2840 


SI.ORPIJTIMF  STPftTA  ( IR,  KR  ) STCAOOlO 

SUPi’nijTIVjr  STOATA  PERFORMS  THE  FOLLOWING  FUNCTIONS — STCA0020 

(1)  INI  TI  AL  I ZFS  common  BLOCKS  ASSOCI  AT  FD  < ITH  TRAJ  EC.TQOY  ST  06  0P30 

PPMPUTATIPM  WITH  ZEROS  OR  PUILT-IN  NGN-7FRr  VALUES.  STOAOOAO 

12)  PFAPS  INPUT  GFNERAL  DATA  INTO  Cl  ARRAY  CNCF  PER  TRAJ.  STOA0050 

13)  PFA'JS  data  for  20  PHASFS  INTO  PI  AND  IP  ARRAY,  GLFARING  STPAnOCO 

CPPTAIN  data  TC  ZFPP  RETWFFN  PHASFS — ONCE  PFR  TRAJ.  STPAOOTO 

(4)  RFSFTS  certain  COUNTERS,  FLAGS,  AND  CONSTANTS  AT  THF  STDAOOOO 

START  OF  FACH  TRAJ.  STOAOOPO 

(5)  INITIALIZES  VARIABLES  OF  INTEGRATION.  STPAOlOO 

(6)  GALLS  MAINS  TP  INITIATE  COmPUTATICN  PF  THF  FIRST  ST  DAO  1 10 

trajectory  phase  STDA0120 

INPUT  GENFRAL  DATA  STOATA  MAINS  OERI/  STDAOnO 

/PAILUR/  KFAIL  STOA0140 

PPMNON/MEWVPM/  VPMll(ll),  IVPM4(4),  VPM7(7),  STDAOISO 

1 ZSL0PF(20),  ZTPhAZ(20),  2T0TAL(20),  PM0RE(2O)  STOA0160 

FCurVAlFftPF  ( PMOPFIl),  TnCMGN  ) STPAOITO 

CPMMPN  /RJBLPK/  RJ(5C)  STDAOIRO 

PPUIVAIFNEF  ( RJ(IP),  PCMGN  ) STOAOl^’O 

GPMmpn  /PRINTR/  1702(2),  LAZRUS,  IZ04(4)  STPAO^OO 

rp«Mn»i  /pcRc  f « n vD  SM  j ifR  vnPG  , 7 4 • 4 ) .xi  72  » I . xM/vr  Hc  I ■>  n 1 . ft)  T p « 70  1 , <:TnAn7ir) 

1 gamma F( 20) , F VALUE (20)  ,XPI TCH ( 10  ,20)  , YPI TCH( 10 ,20 ) , ITFdmI 20 ) , STOAD220 

2 NAFPn(20),  IPTY^E ( 20  ) ,M0DES(20) ,MHGEN(2  0)  ,ICnNT(20) , ST  DAO  2 30 

3 ALPMAXI 20) , ANZMAX(2C) ,FUSY(20)  STOAn240 

CPMMGN  /TnVPFRZ  FUZ(  10)  ,K  IZ,FUZE ( 4)  , ST0A02F0 

I TVX,TVN,Y1  SX(20)  ,XTHR(20)  ,.  EXTPA(15)  STPAORGO 

GPMMPN  /PYAIR/  SRF  ,S  1(  20)  ,S2(20)  , S3'(20)  ,S4  (20)  ,S5  (20  ) , STOA0270 

1 Cl  1(  20)  ,CL  2(  20  ),CL  3(  20)  ,CL4(20)  ,CL5(20I  , STCA02P0 

3 DM  1(  20),nM2(20),DM3(20)  ,DM4(20)  ,[1M5(20)  , 5T0A0?op 

4 ^Pl(  20,  5)  ,Cn2(  20,5)  ,CD3(  20,5)  ,CD4  (20,5)  ,Cn5(20,5)  STDAOTtiO 

rPMMPN/ClBLK/CI  ( 1000) /RCOBLK/LINEK  20)  , L1NE2(20)  STPAOJin 

INPUT  GFMFRAL  DATA  NAMES  57040320 

FOUIVALENGF  STC4033n 


1 

( VFL  1, 

C I ( 

1 ) ) , 

( XMACHI  , 

Cl  ( 

2)  ) , 

(GAMMA  I , 

C I ( 

3)  ) , 

ST  040340 

2 

( AL  TI  , 

C I ( 

4)  ) , 

(TIME  I , 

Cl  ( 

5)  ) , 

(RANGEI , 

n ( 

6 1), 

stpaot^o 

1 

( MPPT, 

CI( 

7)  ), 

(WTI  , 

Cl  ( 

8)  ) , 

(MXSTEP , 

Cl  ( 

o)  ) , 

ST  OA0760 

4 

( DSTART, 

Cl  ( 

10)  ) , 

(DMIN, 

Cl  ( 

11)  ) , 

(EREF, 

Cl  ( 

12)), 

STDAO370 

5 

( EPRF4C, 

Cl  ( 

13)  ), 

(OELMAX, 

Cl  ( 

14)  ) , 

(OALPH, 

CI( 

15)  ) , 

STnA03P0 

* 

(OALPH, 

DFCni  1 ) ) , 

ST0603qO 

6 

( OAl.T, 

C I ( 

16)  ) , 

(DMACH, 

Cl  ( 

17)  ) , 

(DCFN, 

CI( 

13)  ) , 

ST  0 40400 

7 

( CVGI  , 

C I( 

iq ) ) , 

(DHCL, 

Cl  ( 

20)  ) , 

( NTRYS , 

Cl  ( 

21 ) ) , 

ST0A0410 

e 

( JPRINT, 

CI( 

22)  ), 

( SA  VE  , 

Cl  ( 

23)  ) , 

(I PRNT2  , 

Cl  ( 

24))  , 

STn40420 

q 

(GSTD, 

C I ( 

25)  ), 

(RE, 

Cl  ( 

26)  ) , 

(NLPHAZ, 

Cl  ( 

27)  ) , 

STn40430 

* 

( NCPHAZ, 

C!  ( 

28)  ), 

(NDPHAZ, 

Cl  ( 

20)  ) , 

(WDRCP, 

Cl  ( 

30)  ) , 

ST  040440 
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1 

( ^stAP  t , 

Cl  ( 31) ), 

(AEXITI,  Cl ( 32) ) , 

ITVACI , 

CII 

33)  ) 

2 

( X I SP  I , 

C I ( 3^)  ) , 

(WPROPR,  CII  35)), 

IWPROPS , 

CII 

36  ) ) 

1 

I ACX I TS, 

CI(  371), 

(IPROPl,  CK  38)), 

IRTOL , 

CI  I 

30  ) ), 

A 

( TV ACMX, 

CM  AO)  >, 

(TVACMN,  Cl ( Al) ) , 

INSFTS , 

CI  I 

A2)  ), 

c 

( SPPF, 

C I ( A3)), 

(RJFLAC,,  CII  AA)), 

ILINOUT, 

CI  I 

A5)  ) 

FRUI VAL  FMCF 

* 

( XTFPTL, 

Cl  ( 61)  ) , 

( Y1  SP,  CII  81) ) , 

1 

( SMACHl, 

r I I 101 ))  , 

(CLALFl,  CII 121)  ) , 

2 

I SVAC  '2, 

C I ( lAl)  ) , 

ICLALF2,  Cl  I 161 > ) , 

7 

( SV ACW3, 

C I ( IF  1 ) ) , 

ICLALF3,  Cl  1201 ) ) , 

A 

I SM ACHA, 

Cl ( 221  ) ) , 

ICLALFA,  CI I2A1 ) ) , 

5 

( S^'ACHS, 

Cl( 261)  ), 

ICLALF5,  CI 1281 ) ) , 

6 

( nwACHl, 

CM  302)), 

ICOOl,  C1I321)), 

7 

( OMAPHP. 

Cl  ( A22) ) , 

(CDn2,  CIIAAD), 

8 

( rr'Af  H3, 

C I( 5A2)  ) , 

ICD03,  CII561)), 

c 

( pM ACHA, 

Cl ( 662)  ) , 

(CnPA,  CII6R1)), 

* 

1 OMACWS, 

Cl  I 782)  ) , 

1CD05,  CII801)) 

IMPUT  PHASE 

CATA 

STDATA  MAINS 

OFRI  V 

Cn^»MrNj/P!«LK/Pl  ( 7C)/IPBLK/IP(IC)/PSDLK/PS(  70,20)/IPSBLK/IP5;(10 


WOPX  INC  common 

stoata. 

MAINS, 

OER IV, 

CUT  PUT 

rpMMPN/cBLK  /CI  AOO/nuTBLK/PAGFBI  1A,50) 

FCUIVAl  FNCF 

I PC  , 

CI 

1)  ), 

10, 

CI 

2)  ) , 

(OS, 

CI 

’ ) ) 

( r,P  AV, 

CI 

A)  ) , 

IGRAVT, 

C I 

5)  ) , 

(GRAVN, 

CI 

6)  ) 

( Twnr, 

CI 

7)  ), 

I THP  , 

CI 

R)  ) , 

(THRQ, 

CI 

R)  ) 

I ssv, 

C I 

10) : , 

I RHO, 

CI 

11)  ) , 

(PRESS  , 

CI 

12)  ) 

I V ISC, 

C I 

13)  ) , 

I TEMP, 

CI 

lA)  ) , 

I ALPHA  , 

C I 

15)  ) 

I XM ACH, 

C I 

16)  ) , 

icon, 

C I 

17)  ) , 

(CL  AOS  , 

CI 

18  ) ) 

( Cl  AL  F, 

CI 

19)  ) , 

ICF, 

C I 

20)  ) , 

IWF  , 

C I 

21  ) ) 

( SFC, 

CI 

22)), 

I TTA, 

C I 

23)  ) , 

I ANZ, 

CI 

2A)  ) 

( AA'X, 

CI 

25)), 

(NITER  , 

CI 

26)  ) , 

I NBCCST 

, CI 

27)  ) 

I NSPHA7 , 

CI 

28)  ) , 

I (PRINT, 

CI 

29)  ) , 

(RSAVF  , 

C I 

30)  ) 

I fta. 

C I 

31)), 

I TSAVE  , 

CI 

32) ) , 

IXTOL, 

r I 

33)  ) 

I NFRR  , 

C I 

3A)  ) , 

lERLl MT, 

CI 

35)  ) , 

INEO, 

C I 

36)  ) 

( inONE, 

CI 

37)  ), 

INOONF  , 

C I 

38)  ) , 

lERLOG, 

CI 

39  ) ) 

I NR  AD, 

CI 

AO)  ), 

I JSTEP, 

C I 

AD), 

ITTOL, 

C I 

A2)  ) 

( TM AX , 

CI 

A3)  ) , 

lOFLT, 

CI 

AA)  ) , 

IKSUB, 

C I 

A5  > ) 

(RATIO, 

C I 

A6)  ) , 

I AKI 1)  , 

C I 

A7)  ) , 

(AWI L)  , 

CI 

51)  ) 

(XKK, 

C I 

56)  ) , 

1 1 NOEX  , 

CI 

57)  ) 

EOUIVAI  FMCF 

I TP  UT  , 

C I 

58)  ) , 

iinuT, 

CI 

59)  ) , 

INPHAZ  , 

CI 

60)  ) 

I SINSAM  , 

: I 

73)  ) , 

(COSGAM, 

CI 

7A)  ) , 

(OALP, 

CI 

75)  ) 

( VMASS, 

C I 

76)  ) , 

IGOPTRO, 

CI 

77)  ) , 

I OFGRAC 

, CI 

78  ) ) 

( TVAC, 

CI 

79)  ) , 

(AEXIT, 

CI 

80)  ) , 

I XI SP, 

CI 

31  ) ) 

I ACCN, 

C I 

P2)  ) , 

(ACC  T, 

CI 

83)  ) , 

IXNOW, 

CI 

8A  ) ) 

( WPP  , 

C I 

85)  ) , 

I wempty. 

CI 

86)  ) , 

I NPAGF  , 

C I 

87)  ) 

I NOUT, 

C I 

88)  ) , 

(NLINES, 

C I 

89)  ) , 

INCON, 

CI 

90  ) ) 

( NM AP, 

CI 

91)  ), 

IRNGI  , 

CI 

92)  ) , 

INTRY, 

CI 

93)  ) 

I AL  TMAX, 

CI 

9A)  ) , 

IISVII), 

C 1 101) ) , 

ISTLUI 1 ) . CI  lAl  ) ) 

INTEGRATION 

VAR  1 ABLE  S 

STDATA 

MAINS 

OERIV, 

CUT  PUT 

CPUBLE  PRECISION  XPRIMl 
rOMMON/RKBLK/XI 10),xnOT( 1C). XPRIMl (101 
‘‘OUI  VAL  FNCF 


STCAO<»SO 
STr)A0<.60 
STOAGA/O 
S’’nA0A80 
STO A04q0 
SXCAnsOO 
STCAOSIO 
STn40<520 
STnAG530 
STOAOSAO 
ST  PAOSSO 
ST''A0560 
ST  CA0S70 
ST  CAOSflO 
STriAOS^O 
STOAGSOO 
STr)A0610 

STn/v0f,20 

2O)STrA0B30 
STPACftAG 
STrA06S0 
ST  TAO^feO 
ST  nAn67c 
STnAO-SBG 
ST  HAGBOO 
STCA07GG 
STPAOTIG 
STnAG720 
ST0An73n 
ST  OAOTAO 
ST  f’AOTSG 
ST  nA0760 
ST  r A0770 
ST  PAG7P0 
ST  G A07on 
ST  GAOOGO 
STO AOB  10 
ST  PAOR  20 
ST  PA0B30 
STnAO'^^O 
STCAOBSO 
STTAOB^O 
FT  Pi  OR  70 
STOAOBBO 
STOAOROO 
STDAOOOO 
STO AOOlO 
ST  nA0020 
STnAoq30 
STOAOQAO 
STOAOOSO 
ST  DAOOfO 
STCAOOTO 
ST  PAOPBO 
STDAOPOO 
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m 


c 


r 


c 

c 


c 


c 


c 


c 


r 


c 


1 

( T IMF, 

X(  1)  ) , 

(OA  MMA  , 

X(  2)  ) , 

(V, 

X ( 3)  ), 

2 

( Al  T, 

X(  4)  ) , 

(R  , 

X(  5)  ) , 

(W, 

X(  6 ) ) , 

•> 

( VI  , 

X ( 7)  ) , 

4 

(COOT, 

XOOT (2) ) , 

(VDOT, 

XOOT (3)1, 

5 

( HOOT, 

XOOT (4  ) ) 

, (ROOT, 

XOOT (5) ) , 

(wnoT, 

XO0T(6)), 

6 

( V I or  T , 

XOnj ( 7)  ) 

ATMI'SPHCR  F 

SLBROLT  INF 

COMMUNICATI ON 

DERI  V, STCATA, MAINS 

oommon/aippik/alta. 

TFMPA  , 

RHOA  , 

PRFSSA, 

SSVA, 

l VISCA 

CTwr^StCN  STATEMFM  FOP.  MAINS,  PERIV 

n TMFK'S  ION 

1 Y ISP(  ?0  ) , 

2 S*^ACH2(20), 

3 SMAfH5(2C), 

A CLALF3(?0I, 

5 PMACHUPOI, 

t nMACHA(20), 

7 rno?(?o,5), 

p rnn5(2n,5), 

s rFcn(4), 

♦ AK(4),  AW(4) 

rnMMr’'1/TR  AJX/TR  AJA  ( 10)  /R  JDAT/RjnATA(9)  /EXTERN/ AR(20)/ 


XTHPTL  (20)  , 
SMACH3(20)  , 
CLALFl  (20)  , 
CLALF4(20)  , 
OMAGH? (20)  , 
DMACH5(20) , 
0003 (20, 5) , 

STLU( 20,6)  , 


SMACHl  (20  ) , 
SMACH4 (20)  , 
CL ALF? (20)  , 
CLALF5  (20), 
0MACH3(20), 
CDOl (20,5), 
0004(20,5  ), 

ISV(12)  , 


1 CnoEXX/t I ( 16) 

FOUIVAI  Fr.'CF 

1 (F'ilPO,  TRAJA(  9)), 

2 ( A6A3,  RjnATA(  4)), 

3 (KINO,  I I(  I ) ), 

OAT  A 0|  ANK  /AH  / 


(FARMAX, TRAJA(  7)) 
(ICnOF,  TRAJA(IO)) 
(ACA3,  RJOATA(  5)) 
(IND,  TRAJA(  6)) 


(TT4MAX ,TRA JA(  5)) 
(A5A3,  RJOATA(  3)) 
(03,  AR(3)), 


SAVF 1=S AVE 

SFT  rOMMriN  BLOCKS  TO  ZERO 
CO  in  1 = 1,  moo 
10  c n I ) =0. 

or  20  1=1,400 

20  0(1 )=0. 

TO  30  1=1,70 
30  P I(  I ) =0. 


CO  40  1=1,10 
40  IP(I)=0 

ro  60  J=l,50 

CO  60  1=  I,  14 

60  PAOFPI  I,J )=0  . 

PO  70  J=1,2C 
CO  70  1=1, 70 
70  PS(  1 , J )=0. 

CO  PP  J =1,  20 
CO  80  1=1,  10 
80  1PS(1,J)=0 


ST  OAl 000 
STOAlOlO 
STOA  1020 
ST0A1O30 
ST  PAIOAO 
ST  0A1O50 
FTCA1060 
RTOA  1070 
ST0A1080 
STrA1090 
ST  CAl 100 
STPAl I 10 
ST  OAl 120 
STDAl 130 
STOA I 140 
STOAl  150 
STPAl 160 
STPA1170 
STOAl  180 
STOAl  190 
STrAl200 
STCa  1210 
ST  rAl??0 
ST0A1230 
STnAl?40 
STDA1250 
STnA1260 
STnA1270 
STCA12R0 
ST OAl 290 
STCA1300 
STOAl  310 
ST  OAl 320 
STOAl  T>0 
STOA  1340 
ST  f'Al  350 
ST0A1360 
STOAl 370 
STOAl 380 
STOAl 300 
STOAIAOO 
STOA 14 10 
STrA1420 
ST  rM430 
ST  OAl 440 
ST  0A1450 
STnA1460 
ST0A1470 
STOA 1480 
ST0A14on 
SThai SOO 
ST0A1510 
STOAl 520 
STOA 1530 
ST0A1540 
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IT  iT  (T  .T  -1  n r> 


SFT  PUILT-IN  INPUT  GFNFRAL  DATA 
SAVF=1  . 

N*^FT<;  = 2 
FSTAHT  = n. 

IPPNT2  = I 

IF  ( LAZPUS  .FO.  0 ) IPRNT2  = 0 

I JNnilT  = LAZPUS 

CPRIM  = 0. 

SFE  FUSY 
PJFLAG  = 0. 

CSTn=32.l7AC5 
Pr=20.PE6 

OANC-F  thl  FRANCE  IN  NMI 

XTni  IS  THF  TIMF  THLEPANCF  FOR  PHASE  DEPENDENT  VARIABLE  STOPS 
XTPL=o.onn5 
cr  100  1=1,20 

L INF  1(  1 ) = BL ANK 
100  L I^'F  21  I ) = BL  ANK 

PUIIT-IN  PHASF  DATA  CONSTANTS  APPLY  TO  FIRST  AND  ALL  SUBSEftlENT 
PFASFS  LNLFSS  ALTFRED  BY  INPUT  DATA 
NCnN=0 
I rnrE=c 

SFT  NAMELIST  VALUES  INTO  ACTIVE  CORF 
PfMGN  = TPCMGN 
CALPH  = VPN  IK  I ) 

GALT  = VPM  IK  2 ) 

CCFF‘  = Vomik  3) 
rFLMAX=  VPmik  /i) 

OFCL  = VOMIK  5) 

CMAC  M = VPM  IK  6) 

rPIM  = VPMIK  7) 

rSTAPT=  VPMIK  fil 

rVCL  = VPM  1 K ) 

FRFF  = VPM  1 K in  I 
FPPFAC=  VPMIK  11  ) 

IFRPPKIVPMAI  1) 

JPR |MT= IVPMAI 2) 
m»STFP=  IVPMAO) 

NTRYS  = I VPMAI A ) 

RANGFI=VPM7(  1 » 

RTnL  = VPM7(  2 » 

T IMF  I =VPM7(  3 ) 

GKG=VPM7I  A» 

GKV=VPM7( 5) 

G»fVrPU*VPH7<  t) 

CTrPT=VPM7(7  ) 

C FPOM  PSH  OR  NAN77 

VFL  I = ZA(  1 » 

XMACHI  = ZA(2) 

GAMMAI  = ZAO) 

AITI  = ZAIA) 

MOPT  = NZKl) 


STCA1550 
STDAI 560 
STDA1570 
STOAI 5P0 
STOAISOO 
STDA  1600 
ST0A16  10 
STnA1620 
STOAO’O 
STDAI 6A0 
STOAISSO 
STDA1660 
STCA1670 
STDA16flO 
STOAienO 
STOAI 700 
ST0A1710 
STnA1720 
ST0A1730 
STCA17A0 
STOAI 750 
ST  OAl 760 
ST0A1770 
STOAI 780 
ST0A1790 
STCAIBOO 
RTOAIBIO 
STrAlB20 
ST0A1B30 
STnAiR/,0 
STOAIBSO 
ST0A1P6O 
ST0A1R7O 
ST  OAl PPO 
^T  0 A1 BOO 
ST  OAIP^O 
STDAOIO 
S^0A1920 
STCA1930 
STrjA19A0 
STOA1950 
ST0A1960 
STDA1970 
STPA  16B0 
STPA  19P0 
STCA20n0 
STCA2010 
ST0A2O20 
ST  0A2030 
STOA2OA0 
ST0A2050 
STOAZOBO 
ST0A2070 
STrA2080 


W 15 


MfP  HA  7 = N7  3(  3) 

ST  CA2100 

KPPHftZ  = N73(^) 

STDAZllO 

K INH  = KI2 

STnA2l20 

V,P9ripp  = ru;  ( 1 ) 

STDA2130 

XISPI  = FU7(2) 

STCA21A0 

TVAC  I = FIJZ  ( ?) 

STCA2150 

A FX  ITI  = : l)Z  ( A) 

STnA2160 

WPROPS  = FUZ<5) 

STDA2170 

AFX  ITS  = FUZ ( 6) 

ST0A2180 

wTi  = FUZ ( e) 

STCA2190 

WCPOP  = FUZ (91 

ST0A22O0 

IF  ( K IMP  .FO  . A2  ) 

WDRPP  = FUZI 10) 

ST0A221O 

NTEN  = 10 

STDA2220 

NK  IN)P  = HOD  ( K INP, 

NTFN  ) 

STDA2230 

IF  ( NK  INO  .FO.  3 

) WDRPP  = FUZI 10) 

STDA22A0 

ASA’  = FUZFI  1 ) 

STr)A2250 

AfA3  = FUZE!  2) 

STCA2260 

ArA3  = FUZE(  3) 

STrA2270 

r3  = FUZE!  A) 

ST  r:A2280 

TVAC'^X  = TVX 

STDA2290 

TVACHN  = TVN 

STOA2300 

or  1215  1=1, 2C 

ST0A2310 

Y 1SP(  I ) = YISXI I ) 

STCA2320 

XTHPTLI  1 » = XTHR  U ) 

STCA233n 

CGNT  INUF 

SF0A23A0 

t.  PAP  PHASE  DATA  INTO 

ACTIVA  ARRAYS 

ST0A2350 

CP  130  J=1,NLPHAZ 

ST0A2360 

IPS(  1 ,J  ) = ITFRM 

IJ) 

STDA2370 

IPSl  2 ,J ) = NAERP 

I J) 

STDA2380 

!PS(  3 ,J)  = IPTYPE 

I J) 

STnA2390 

IPS(  A ,J)  = MIIOES 

IJ) 

STOAZAOO 

IPS*  5 ,J  I = MHOFA' 

I J ) 

STPAZAI  0 

tPS(  6 ,J)  = ICONT 

IJ) 

STDA2A20 

P5(  1 ,J)  = XHACHF 

I J) 

STDA2A30 

PS(  2 ,J)  = ALTF 

I J ) 

STPAZAAO 

PSI  3 ,J)  = GAHf«AF 

I J) 

ST  DA2A50 

P5(  6 ,J)  = FVALUE 

I J) 

STf^AZAeO 

PSI  5 ,J)  = ALPMAX 

I J) 

STDAZAZO 

PSI  9 ,J)  = ANZMAX 

I J) 

STDA2AR0 

PSIA.J)  = ZTPHAZIJ) 

ST  oazaoo 

PSI 5, J)=ZTnTALIJ ) 

STDA2500 

PSI7, J»=ZSLnPF(j) 

STOAZSIO 

PSI  10,  J ) = FUSYIJJ 

STCA2520 

FUZPPP  = 0.0 

STnA2530 

IF  I IPTYPEIJ)  .LE. 

2 ) FUZPOP  = FUZI7) 

ST0A25A0 

PS  I 11,  J ) =FUZPnP 

ST  DAZSSO 

PSI  12  ,J)  = GTOPT 

STDA2560 

PSI  13  ,J)  = GKV 

stdazsto 

PSI  lA  ,J)  = GKG 

STnA25RO 

PSI  15  ,J)  = GKVCRU 

stpazspo 

on  1212  1=1,10 

ST0A26n0 

NUX  = 20  ♦ 1 

stdazmo 

NUXX=  AO  ♦ I 

STDA2620 

PSINUX,J)  * XPITCH  II, Jl 

STnA2630 

PSIMUXX,J  » = YP I TCHI  I , J) 

STnA26A0 
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CONT INUF 
rr  1213  I 
^'UX  = 30 
MUXX  = 50 
PS(  NUX-H, 
PSC  MUXX+I 
CnNTTNUF 
CPNT  INUC 

FPPM  AM  OR 

SPEF  = SR  F 

nr  iicc  1= 

SMAfHl  ( I i 
SMACH?  ( I ) 
SWACH3  ( I ) 

( n 

S»'ACF5  ( I ) 
CL  AL  FI  ( I ) 
CL  AL  F2  ( 1) 
CL ALF  3 ( I ) 
Cl  ALFA  ( 1 ) 
CLALF5  ll) 
CM  AC  FI  ( 1 ) 
rMACF2  ( T ) 
OMA:  M3  ( I ) 
CMACHA  (I) 
CMAfH5  (I) 
Cn  1 101  J = 
crni  { r,j I 
crn2  ( I ,J  J 

cro3  ( i,j ) 

croA  ( i,j » 

^ ^ IT  I % 

\ I f i 

CPNT  INUC 
CPNTINL'F 


PFSET  COLNTFRSf  FLAGS,  AND  CCNSTANTS  AT  THE  START  CF  EACH 
TPAJ  FCTCRY 
DFGRAD=57. 29578 
CALP=0.001 

PlINGE  KLTTA  CONSTANTS 

AK( 2)=0.5 

AK( 3)=0.5 

AK( A)=l .0 

AW(  1 1=  1./6. 

AW(  2)=AH(  1)-»AM(  1 ) 

AW(A)=AW< 1) 

AW(3)=  l.-(  AM(1)  *■  AW(2)  ♦ AM(Ai  ) 

NFO  =7 

EPLPG»ALnG(  EREF  I 
FPLIMT*EREF*ERRFAC 

IC0NF=8A 

NPFA7  IS  phase  COUNTER 


1,  10 


J ) = XPITCHINUXtJ) 

, J ) = YPI TCH(NUXX,JJ 


N AM78 

1,  20 

= SI  ( n 

= S2  I I ) 

= S3  (I  ) 

= S A ( I ) 

= S5  (I  ) 

= CL  1 ( I ) 

= CL  2 It) 

= CL  3 ( n 

= CL  A ( I ) 

= CL  5 ( t ) 

= PHI  t I) 

= nH2  ( T ) 

= r)M3  (I) 

= OH  A (It 
= DM  5 ( I ) 

1,  5 

= CDl  ( I, J) 
= CD2  ( I ,J ) 
= 003  ( I, J I 
= CDA  ( I, J ) 


STCA2650 
ST0A2N60 
ST0A2670 
STnA26R0 
STnA2690 
STCA2700 
ST0A2710 
STCA2720 
ST0A2730 
STnA27A0 
STOA2750 
ST0A2760 
STnA2770 
ST  0A2780 
STr:A2790 
ST  CA2n00 
ST  DA28 10 
ST0A2820 
ST0A2830 
STCA28A0 
STCA2850 
ST0A286O 
ST  CA2fl70 
ST  CA2R30 
STDA2890 
STrA2900 
STrA2910 
STCA2920 
STnA2930 
ST  nA29A0 
ST  0A2950 

c T n » ">0  to 

ST0A2970 

STnA2qao 

ST  nA2P90 
ST  0A30n0 
ST  OA3010 
STnA3020 
STnA30  30 
ST  OABOAO 
STCA30S0 
STnA3060 
ST0A3070 
STnA3080 
ST0A3090 
STCA3100 
ST0A311O 
STrA3120 
ST  CA3130 
STDA31A0 
5TnA3150 
STDA31N0 
STCA3170 
ST0A3180 
STDA31Q0 
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I 

L 


NP  HA  7 =0 
Nr rN=NCrMH 1 
NTPY=0 
JSTFP^O 
A'PAr)=r) 

N'DUT  = 0 
NL  INFS  = 0 
IPR IMT=1 
TwnG=2.*GSTn 
NMap=o 
A(  TMA)f=  1.E0 


trrMTIFY  FIRST  BnnST  PHASF 

no  15G  I=1,NLPHAZ 

IF( IPS( 3, I ».GT.  2 ) GO  Tn  150 


150 


1F|  IPSI  ?, I ) .EO. C) 
NonnsT=  1 
<■0  TO  160 
CPNT INUE 


GO  TO  150 


IPFNTIFY  PIRST  SGSTAINFR  PHASE 

160  rrNTIHUF 

on  180  l=l,NLPHAZ 
1F(  IPS(3,  I ) .LT.  3 ) GO  TO  180 
NSPHAZ=  I 
GO  TO  190 
IFO  CONTINUE 


C 

r 

c 


CETFPMIMF  if  ITFRATION  for  FUEL  EXHASTION  CRUI5E  RAFGE 
190  CONTINUE 

IF(  NFPhAZ  .FO.  0 .OR.  NCPHAZ  .GT.  NLPHAZ  ) GO  TO 
N ITFR=1 

RNG1=  PS(6,NCPHAZ» 

IP!  RNGI  .LT.  0.1  » RNGI=l. 

INITIALIZE  VARIABLES  OF  INTFGRATION 

195  CONTINUE 

ro  1Q6  1=1, AO 

196  X(  I )=0. 

XPRIMK  1)  = T1NF1 
XPRIMK  2)  =GAMMA  I /DEGRAO 
XPR  TM  1(  A)  =ALTI 

XPRIM  |(  E)=RANGE  1*6076.  115 
XPR  IMK  6)=WT1 


ST  CA3200 
STnA3210 
STOA J220 
9TDA3230 
STCA32A0 
ST0A3250 
ST0A3260 
STnA3270 
STCA3280 
STOA3290 
STCA3300 
STrA33lO 
ST  OA3320 
9TnA3330 
STnA33A0 
ST0A33S0 
9T0A3360 
ST0A337O 
ST  nA3‘^80 
STnA3390 
ST  nA3Ano 
STDA3A10 
STCA3A20 
STnA3A30 
STDA3AA0 
ST  0A3A5O 
ST  nA3A60 
STnA3A70 
STnA3A80 
IS  TO  BF  r:oS‘»TA3A90 
STnA3500 
STCA351 0 


195 


xroTi I )=i.oo 

IF  ( MOPT  .GT.  0 > GO  TO  200 

V =VEL1 
GO  TO  210 

200  CONTINUE 
ALTA  = ALTI 
CALL  air 

IFIKFAIL  .GT.O)  RFTURN 

V =XHACHI*SSVA 

210  XPRIMH3)=  AMAXHV,  O.IOOI 
CALL  HAINSl 


3 1 ' lU  J JtL't 

STOAOSIO 
ST  nA35A0 
STOA3550 
ST  rA3560 
STnA3570 
ST  rA35R0 
ST  0 A3S90 
STna3«,no 
STnA3610 
STrA36?0 
ST0A363O 
STrA36A0 
ST  nA3690 
ST0A3660 
STnA3670 
ST0A3680 
STCA3690 
STCA3700 
STr!A3710 
ST0A3720 
STnA3730 
STDA37A0 


1 
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PFTUPN 

Fvn 


5X0^3750 

5X043760 


SURR''UXIME  XURROIKFAIL) 

RF4L  KSXP.IRARF 
RF4L*4  INP20 
roMMrN  /roMVLS/  crM(5n 
FOUIVALFNCF  ( COM  ( 2 3 » , FNE  X X ) , 

1 (COM( 24|,WXX) , 

2 (Cr'<(  25I,WFX>  , 

2 (CnM(  ?£) ,fmax  ) , 

4 (r.OM(  2fl  ),  X4X  ) , 

5 ( COMt 20 ) .MFXXJX » 

cpmmpm/ai  xnr/ 

IK  l, ALX( 24) , SnXCMPC  24 ) , PRE SS ( 24) , ID ( 8) 
rOMMON  /PACK/  8AC72(72) 

FODIVALFMCF  ( PAr??(67),  WDOXF  ) 

EOllfVAl  F^CF  ( BAC72(71),  FN  ) 
rOMMfiN  /OEFIGN/  DEN69(65  ),A9°c,dfN10(10) 
rrMMPM/DESnPX/  KFNGtKTANK.KI NLX, MEXAL, I SXR,  0ES20(?0) 

FOUIVAIFNCF  ( ZCG,  0ES20(2)  ) 

FCUIVALEMCF  (lOIFF,  nE520(l)) 

Cr^MPN/EXXFPN/  ARP(20) 

FCUIVAl  FNCF  (APR(  1),PLLX),{APR(3),D3)  , ( ARP ( 14 ) , X ANL T ) XU R 80 2 10 

I,  ( APR  ( 15  ),  AR  ) , I ARP  ( 16) , XMZERO)  , ( ARR(  17)  .XMRJXO)  , lARRI  18  ) .HEIGHX  ) , Tgm502?0 


XURROO  10 
XtlR80020 
TURR0030 
XtJP  80040 
XURR0050 
XURR0060 
TUR8n070 
XURROOPO 
TUR  800O0 
TURROlOO 
TURROl 10 
XURRO 120 
TIIRRO  130 
XUPR0140 
XU  PRO  150 
XUPR0160 
XUPROl 70 
XUR80180 
XtlRROloO 
TUPR0200 


1 { APP  ( lo  ),pnSXLX  ) 

CPmmpn  /GEMFAL/  kfgfn 

CPMMptM  /TMCPMM/XLnUMP,XFFRNG,XlNLEX,  XXI  PCL  .SXERMtXNCZL 
CCMMON  /FNDAXA/  CDINLt  CLALF.WEIGHX 
FGUIVALFNCF  (WF  IGHX,  WINL  ) 

CP^MPN/ INDES/  XINPDIie) 

COMMON /INLFXX/K 8 fKPXC ( 15  ) .ALPHVI 15) , A AM ACH ( 1 5 , 1 5 ) ,ACACC(15,15), 
1 PX3PXP(  15,  15),  AOOO(15,15) 

CCMMPN/ INPXXJ/  FND,ALPDES,AMDES, X4DES,  tNP20(20) 

CPMMCN/IPROP/  INCL,  IN3(3) 

FCUIVAl  FNCF  I XVIIO)  , EXAR  ) 


TUR°0230 
TU  PR0240 
TURR0250 
XUO8026O 
Ti  ID  an  270 

TUPR02P0 
TUP80290 
TURR0300 
XUR80310 
TUR8O320 
TUPP0  3 30 


FCUIVAl EMCE  ( KSXR , I NP 20( 1 ) ) 


(DCASE,  I NP20 12) » t (WXX J,  I NP20 1 3 ) ) , XU R RO 340 


1 (XLPAY,INP20(4)  ),  (RHOF,  1NP20(5)),  IRFH,  INP20(6)), 

2 IWPL,  INP20(a)),  (XLMtSCtINP20(9) ) , ( HSXR I , INP20 ( 10 ) ) , 

3 (WPVASX,  INP20I  ID) 

FOUIVAIFNCF  I WMISXJ,  INP20(13)  ) 

FCUIVALFNCE  (WASUPF,  INP20(14)),  (WBOOSX,  INP20(15)) 

CCMMPN  /PRINXR/  IP5M,  IPLK6(6) 

CCMMPN  /XJINLP/  XFNG,  RENGO,  XMI SSL 
COMMON/XURRI/  XV(30) 

FOUIVAIFNCF  I XV(2),  ALFXJ  ) 

FCUIVAL  FNCE  (AC,XV(8)),  I T JA  LX,X  V(  3 ) ) , ( DF  XI  P,  X V (9  ) ) 

6,  (A9,XV(10)),  (X4XJ,  XV(6)),  (XJMACH,  XV(4)),  IXJTHR,  XV(5)) 
EOUIVAL  FNCFI WAFCOS, XV( 1) ) 

FOUIVALFNCE  (WFUFL,  XV(  1 l)),lXXnXALf  XV(12)), 

1 (XLPS,  XV(13)),  (XLNOZ,  XV( l4) ) 

COMMON/ WAXES/  WX ,LBARF  ,DXX,DRF ,OFF ,OFX XP  ,OMAX ,WAX20 120 ) 
CPMMPN/WAXIN/  WAX7(7),  OPR , RF AN, XI X, WAX3 I 3) 


XURRO  3 50 
XUPoPBaO 
XURR0370 
T'J  RR0380 
XIIR803'’0 
XUPROAOn 
XUOR04  10 
XUR80420 
TUPR0430 
XURR0440 
XUOR0450 
XURP0460 
TURR0470 
TUR80480 
XUPR04O0 
XUR  80500 
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EOUIVALFNCF  (OPR  tPRC ) i ( TI T, T4) 
niMFNSION  G( 15, 15) 

NAMFL  IST/TAMK/  XL TW , WSH , XF S , A WT, WWT , VCLWT , AS KI NP,MSTRPS ♦ WSUM, X 

I vni  tnk,wfufl,xlps,xtotal 

NAMFL  IST/WAK/  to  ,T2,P2,HC ,P3, T3, PA , T55 , XE , P55 ,PB ,T8 ,VE ,Vr,GA,W 
NAmfl IST/CKK/  WAFCDS ,HAF ,XLNnZ,nNnZ, SEXI T.SNOZ, ALNCZ,WNnZ, 

1 XBAPNZ ,R  ENGO, XENG , XLFNG  , I NP20 
^AMEL  rST/CHECK/  TV,ARR 

COMPUTE  correlated  AIRFLCW  FOR  INPUT  THRUST,  M,  TA 

nWT  = .01  ♦ TJTHP 

CCASE  = 03 

CTAMk  = DCASF 

XMISSL  = A.  * PLLT 

It  00  = 1 

I loom  = 3 

KFAIL  = 0 

PEZF  = PHOF 

P 1 = 3.1A150 

AMACH=TJMACH 

AM=tjMACH 

XMZFRO  = TJMACH 

ta=tatj 

ETARIN  = O.S 
HP=TJ  At  T 

CALL  TLUK  HP  ,ALT  ,K  1,PRESS,  PC,  INO) 

CALI  Tl  U1  1(  SOTEMP,TO  ) 

T2  = TO  ♦ ( 1.*0.2*AM*AM) 

P2  = PP  * FTARIN  * (T2/T0)**3.5 
WC  = 0.3  * T2  * (PRC**0.286  - 1.) 

P3  = P2  * PRC 

T3  = T2  * (1.  ♦ WC/( 0.2AAT2I ) 

06  = Cr95  * P? 

T55  = TA  - WC  / 0.276 
XE  = WC  / ( O.2A0*TA-WC ) 

P55  = PA  ♦ (XE  ♦ l.)**(-3.5) 

P8  = 0.E06  * P55 
T8  = T55  / 1.165 
VF  = A7.R  * S0RT(T8) 

Vr  = AO.  * AM  * SPRT(TO) 

FNC=TJTHP 

GA  =FNn/( ( VF/32. 17A)  + (P8-P0)*53. 3*T 8/ ( P8* VE ) -VO/3  2 . 17 A ) 

WAK2  = GA  * SORT( T2/515. I / (P2/2116.25) 
ir(  IPSM.GT.O)  WRITE(6, CHECK) 

IF  ( IPSM  .GT.  C ) WPITE(6,WAK) 

10  ICES  = 0 

WAFCDS  = WAK2 
XMCR  = 1.0 

CALL  INLET!  WAK2, TJMACH,  XMCP,  ALFTJ,  E TARIN,ETAROT  ,ACAP,  TOES  ,C 
IF  ( KFGHN  T.  0 ) GO  TO  995 
FTAR  = ETARIN 

DRAG  ♦ BLEED  DRAG 


COMPUTE  ADDITIVE 
CALL  GENENG 
IF  ( KFGEN  .GT 
ILOn  = ILOO  ♦ 1 
IF  ( ILOO  .GT. 


) GO  TO  995 


ROOM  ) GO  TO  995 


TUR  P05in 
TURB0520 
CYl ,TURB0530 
TURB05A0 
AK2  TURe0550 
TURB0560 
TURB0570 
TURROSnO 
TIIR80590 
TURB0600 
TUPB0610 
TURe0620 
TURB0630 
TURR0  6A0 
Tl)RR0650 
TI)RB0660 
TURB0670 
Tl)RR0680 
TUR0O69O 
TURR0700 
TURB0710 
TURB0720 
TURB0730 
TURROTAO 
TURB0750 
TURB0760 
XURROTTO 
TURBO  780 
TURBOTOO 
TURBOROO 
TIJRROB  10 

TMP  nriP70 

TURR0830 
TURROBAO 
TURR0R50 
TURBOR60 
TUP  B0870 
TURP08R0 
TU  RBORPO 
TUR80900 
TURB0910 
TURBOPPO 
TURB0930 
TUR  RQPAO 
TUR  80950 
TURP0960 
TURR0970 
D)  TURR09P0 
rji R0990 
TURBinOO 
TURBlOlO 
TURP1020 
TURB1030 
TURPIOAO 
TURR1050 
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r>  o o ->  TO 


t- 


I 

I 


rw  = iRS  ( FNH  - FM  ) 

IF  ( nw  .LF.  nwT  ) on  to  20 

WftK2  = WAK2  ♦ FNO  / FN 
rn  TP  10 
20  AM^TJMACF 
AF  = AOqo 
0YNP  = 0.  7*Prj*AM*AM 
OAPPL  = rn  * OYNP  ♦ ACAP  / 

FNFT  = FN  - OAPBL 
FFC  = wnoTF  / FNET 

WAF=KiFfn<;*(P2/2  116.25)/  SOR  T ( T2 /5l  8.  6 ) 

CALL  WATFIHAFI 

WATF  OIITPOT';  fnginf  lfngth,  diametfr,  height 
Kr77LF  WEIGHT 
XI  Nr?  = 1.6*DFTIP 
rNn7=SOPT (A.*A9/PI*1AA.I 
SFX  IT=AP 

SNP7=SOPT(  XLMn2**2  * 0.25* ( OF TI P**2-ONOZ**2) I 
ALMp; =P i*SMr7*( 0.5*nFT  IP  ♦ 0.5*DN0Z) 

WM17  = 3.  ’5*ALN0Z  /lAA. 

WFNG  = WT  WNOZ 

XPAPNZ=XI Nnz*( 0.5*0FTIP  ♦ DNO Z J / 3. / ( 0. 5 *0F T I P ♦ 0.5*DN07) 

RFNGO  = 0.5  * OFTIP 

xr\iG  = l PAPE  ♦ XLNDZ 

XI  FNG  = XFNG  ♦ 2.0  * RENGO 

IF  I IPSY  .GT.  0 ) WRITE(6fCKK) 

IF  (PMAX  .GT.  OCASF)  GO  TO  995 
fAl  L INLF XP 

IF  ( INOL  .GT.  C I GO  TO  995 

INLFTP  COMPtlTFO  INIET  C OL'CT  LENGTH,  WFIGHT,  LOCATICA  . . . 
HETAL  = 1,  ALU»«INUH 

= 2,  TITANIUM 

= 3,  STEEL 

Cr  T'^  ( AO,  5C,  6C»,  MFTAL 
AO  PI-PMTL  = O.l 
F = 10.A7F6 
cr  TO  70 

50  PHOMTL  = 0.167 
E = 15.89  F6 
GP  TP  7C 

60  PHOMTL  = 0.25 
F = 2fl.e6F6 

70  TC  = 2.725  * DTANK  / E**C.A 
IF  ( TF  .LT.  0.0  31  TC,  » 0.03 
XLTW  = 0.6667  * XINLET 
IF  (KFNG  .GT.  1)  XLTW  » 0.5  ♦ XINLET 
TFRMA  = (0.5  * DTANK  - TG  - 0.03)**2 
XI  FH  = 0.5  * OTANK/REH 

TFPMP  = (XLFH  - TC  - 0.031  • PI  • 0.6667 

XL  ah  = XLFH 

VPLHD  = TERM  A * TFR»<B 

RFH2  = RFH  • REH 

TFRMG  = S0RT(REH2  - 1.  ) 

TFRMP  = 0.3925  / (REH  * TFRMG I 
TERMC  = (REH  ♦ TEPMC)  / (REH  - TERMC) 


TUR01060 
TURB1070 
TURR1080 
TURP1090 
TURBl 100 
TURRlllO 
TURR1120 
TIJRR1130 
TUPRl lAO 
TUP  PI  150 
TURPI  160 
TURPllTO 
TURBI 180 
TURBl  190 
TURB1200 
TURP1210 
TURP1220 
TU  PB1230 
TURB12A0 
TURBl 250 
TURB1260 
TUPB1270 
TURI31280 
TUP  PI  PRO 
TURBl 300 
TURBl 310 
TURP1320 
TURPI  330 
TURP13A0 
TURP1350 
TURBl  3 60 
TURPI  3 70 
TURPI  380 
TURBIPPO 
TURPIAOO 
Tl)R  m A I 0 
TURPI  A20 
TURPI A30 
TURBl AAO 
TIIRP  1 A50 
TURR  1A60 
TURP1A70 
TURBIABO 
TURPI AOO 
TURP1500 
TURPI  510 
TURR1520 
TURB1530 
TUOB15A0 
TURB1550 
TURei560 
TUR  PI  570 
TURB1580 
TURR  1590 
TURB1600 


i 


1 

■i 


I 
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i 

t 


t 


r 


c 

c 


Sh  = ptamk**2  * ( 0.785A  ♦ TFRMn  * aLOGCTERMCJ  ) 
WSH  = SF  * TC  ♦ RHPMTL 
XI FS  = C. 5 * CTANK  / REH 
HTANK  * XLFS  * 


172P. 


1)  m TO  95 


OTANK 
XL  TW 


nTANK**2 


WF5  = PI  ♦ HTANK  * XLFS  * PHOMTL  • TC 
WAS  = WFS 
Rt-OF  = ohoF  / 

wwT  = o.n 
VPLWT  = O.n 
IF  (KTANK  .GT 
WFOPE  TANK  COMPUTATIONS 
APWT  = 0.25  ♦ PI  * XL TW 
AlWT  = C.5  • PI  * OTANK 
AWT  = ABWT  ♦ ALWT 
WLWT  = Al  WTT'PHnMTL*TC 
WWT  = AWT  ♦ RHOMTI  ♦ TC 
WPWT  = WWT-WL  WT 

VPLW  = 0.125  * PI  ♦ XLTW  * 

VCLWT  = VOLW  ♦ VOL  HO 
ASKINP  = PI  ♦ OCASF  ♦ (XLENG 
ASK  INW=P  I«nCASE*XLTW*0.5 
(5  CP  TP  (75,  80,  85) , I STR 
75  WSTPPS  = ASKINP  ♦ TC  ♦ RHOMTL  * KSTR 
GO  TO  oc 

80  WSTPPS  = ASKINP  ♦ WnVAST  * KSTR 
GO  TP  90 

£5  WSTRP^  = WSTRI 
CO  CPMTINDF 

WSUM=wPL+WaSURF*WMISTJ+WENG-fWl  NL-*-WSTRPS+  WFS 
IF  ( KTANK  T.  1 ) GO  TO  7> 

xrYL  = (WTTj  - WSUM  -WSH-WWT-RHnF*V0LHD-V0LW*PH0F)/{  0.785A’»nTANK**2 
1 ♦PI*nTAMK*TC*RHPMTLI 


♦ 0.5*XLTW  ♦ XLMISC) 


TURB1610 
TURBL620 
TURB16O0 
TIJRP  INAO 
TUPR1650 
TURB1660 
TIJRB1670 
TUPBl 580 
TIJRB1690 
TURBl 700 
TURB1710 
TURB1720 
TUPP1730 
TURBl  750 
TI)RB1750 
TI)RB1760 
TURB1770 
TURB1780 
TURBl 790 
TUP BIB 00 
TURBl BIO 
TUPBl B20 
TURBl 830 
TUPBIBAO 
TURR1B50 
TUP  B1 B60 
TURB1870 
TUP  B1 BBO 
TJl ni BOO 
Til  RB  1900 
TURB19 10 

TMO  Q 1 O *>0 


VOLTNK  = (VCLHO  + VOLWT  ♦ 0. 2 5*P I *0 TaNK**2 ♦ XC YL ) * 0.95 

GO  TP  ion 

C5  ASKINP  = PI  ♦ OTANK  * (XLENG  ♦ XLTW  XLMISC  - XLAH  ) 

CO  TP  55 

56  XCYL  = (WTTJ-WSUM-2.0*WSH-WAS-RH0F*V0LHr)*2.0)/(0.  7e5A*nTANK*a2-TPI 
l*rTANKTrTr*RHOMTL  ) 

IF  (YCYL  .IF. 0.0)  GO  TO  990 

57  VPLCYL  = PI*0TANK**2  ♦ XCYL  ♦ 0.25 
VPLTMK  = (VOLHD  * 2.0  ♦ VOLC  YL ) * 0.95 

ICO  WFUEL  = VOLTNK  * PMOF 

WCYL  = PI  * OTANK  * XCYL  ♦ TC  * RHOMTL 
WTANK=WCYL  ♦ WWT  ♦ WSH 
IF(KTANK.r,T.  1)  WTANK=WCYL  ♦ 2.*MSH 
WP5  = WTTJ  - WPL  - WASUPF 

XI  PS  = XI  FNG  ♦ XLTW  ♦ XCYL  ♦ XLFH  ♦ XLMISC 

IF  ( KTANK. CT.l)  XLP S*XL ENG  + XL TW^ XC YL+ XLFH+ XLM I SC 

XTOTAL  = XLPS  ♦ XI  PAY 

niNL«SOPTI A.*TVI e)*lAA./PI  ) 

XLTANK=XLTW  ♦ XCYL  ♦ XLFH 
IF(KTANK.GT.l)  XLTANK*XCYL  ♦ XLFH  ♦ XLAH 
C C OF  PROPULSION  SYSTEM 
ACT  CG  COMPUTATIONS  HFRF 
XPAP 1*0.5*XLM ISC 


TUPB1930 
TURBl 950 
TURB1950 
TURB19f,0 
TURB1970 
TURB19R0 
TUP  R1990 
TURB?nOO 
TURB2010 
TURB2O20 
T'JR  8 20  30 
TURB2050 
TURB2050 
TUPB2060 
TURB2070 
TURB20P0 
TURB2090 
TURB2  100 
TURB21 10 
TURB2120 
TURB2130 
TURB2150 
TURR2150 


A 
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I =X  P/'C' 1*(  V.M  I STJ  ♦ P I*nc  ASF*XLMI  SC*TC*PHnMTL) 
XPA«2  = XL*MSr  ♦ o.f^xifh 

XMOM  ? = v par  ?*wfs 

X PAP  3 = X PAR  2 
XMn''^=XPAR  3*WSH 

xpAP4=xpAPi  ♦ 0.5*^(XIFH  -f  XCYL) 

XMnM4  = X PAR  -i^WCYL 

1F(  KT  ank  .gt  . 1 ) on  in  no 

XRAR3=XPAR4  ♦ 0.5*XCYL  f XLTW/J. 

XMPMPrXRAP  5*WLWT 
XPAR6  = XPAP4  4 0.5*XLTW 
XMnM6=X  PAn64V,PWT 

xPAP7=XLMISr  4 XLFS  4 XCYL  4 XLTW*0.667 
y PPM  7 =X  PAP  7*  ASK  I N ^,*R  HOM  TL  ♦ Tf 


TURP2160 
TURS2  170 
TURP21R0 
TIJRR2190 
TURP2200 
T(JRR2210 
TURR2220 
TURR2230 
TURR22^0 
TURR2230 
TIIRR2260 
TIIRR2270 
TURR2280 
TIIRR2290 


or  TP  120 

110  XPAFS  = XFAR4  4 0.5»xr,YL  4 C.5*XLAH 
XRnM5=XPAP  54V^SH 
XPAP6=XPAp  S 
XVnMf,=x  BAR  6X'^SH 
XPAR7  = yPAP6  4 0.3<-XLTW 

XMrM7  = X PAR  7*P  nnTAMK*RHnMTL*( XLTW-XLAH  ) 

120  XRARP=XlMIsr  4 XLFS  4 XCYL  4 0.5*XLFNn  4 XLTW 
XMnMn=xpAPR  ♦(WSTFPS  - A SKI NW*RHOMTL*TC ) 

XPA.P9  = XLPS  -XLMn?  -0.54XFNG 


Ti)RP2300 
TUPP2310 
TURP2320 
TURB2330 
TIIRR23AO 
T(,IRR2350 
T|)RR236n 
TURR2  3 70 
TUP  R2380 
TURR23O0 


XMnMP=XPAR94WFNG 
XPAR IM=7rG 

XMrHIN=XBARTM4WE IGHT 
XPAR10=XLPS  - XLNOZ  4 XRARNZ 
XP'nMl0=WN07  4 XBARIO 

XvnM  = XP'nA‘l  4 XMCH2  4 XMrH3  4 XM0M4  4 XMCMS  4 X*«nM6  4 XYCY7 
I 4XMnM8  4 XMPMO  4 XMOMIO 
xrGPSE=XMn»i/v,PS 
XPAPFL=XBAP4 

1F(  K TAA'K  .GT.  1)  XPAR  FL  = ( VOLHO^RHOF*  XBAR3  4 RHOF*XB  AF44V0LCYL  4 
1 V0LWT4RHnF*(XBAR5  4 C. 1 7* XI  TW ) ) / WFUF L 
XMPM FL=KFUEL*XRARFI 

XMnMF=XMrM  4 XBORFL 

XCr,PSF  = XRPMF/(  WPS  4 WFUFL) 

FNFTX  = TJTHR 
CMAX  = TJTHR 
KTX=WTAAK 
WFX  = WFUFL 


TUOP2AOO 
TURR2Ain 
TURR2920 
TURR2930 
TURR2AA0 
TUPP2A3n 
TUBR296^ 
TURR2470 
TURR24R0 
TURRpAPin 
TURR2300 
TUP  P2S  1 0 
TURR2  520 
TURB2F30 
TIJRR?5A0 
TURR23S0 
TURP2S6a 
TIJR  R2S7n 


TAX=T4  TURP25P0 

MFTTJX  = METAL  T|)PP?5qo 

IF(  IPSM  .ME.O » WR  ITF(6,  1000)  TUHR2600 

1000  FORMAT! /9X,  26HTLPR0JFT  DESIGN  PARAMETERS  > TUPR2610 

IF(  IPSM  .NF  .0  I WRITE(6,105CI  T JMACH  ,TJALT  ,T  JTHRt  T4T  J 
1050  FORMAT! /"X,  ITHDESIGM  MACH  = , F 4. 2 t4 X , i6HDE S I GN  ALT 1TUDF= , F6.0t 4H  FTURB2630 
1T.,/9X,  14HDFSIGN  ThR UST= ,F P. 2 ,5H  LB S ,4 X , 1 IHDES I GN  T4  =,F7.2)  TUPR2640 

IF!  IPSM  .MF.O)  WR  ITF!6,  1100)  tiirr^sSO 

IICO  FORMAT!  /9X,  lOHCOMPONFNT  , 4X  1 1 2HD I AMETE  R-I  N.  , 4 X 1 1 0 HL  ENGT  H- I N . , 4X  , TURR2A>fin 
lllHWFIGHT-LPS.f  4X,  17HC.G.  LOCATION-IN.  ) ’■(|R(,2^70 

IF!  IPSM  .NF.O)  WR ITF!6, 12001  DMA  X , XE NG t MENG t XBAR9  TUPR2680 

1200  FORMAT! /10X,tHENGINF,l0X,F5.2,9X,F6.2f8XtF7.2,l0X,F6.2)  TURR2690 

IF!  IPSM  .NF.O)  WRITF(6,1300)nNOZ,XLN02,«NOZ,XRAR10  TURR2700 
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1 ?co 

FPHH4T( /lOX, 6HNnzZLF, 10X,F5.2,9X,F6.2t8X,F7.2tlOX,F6.2) 

TIJR82710 

IF(  IPOH.NF.C)  WB ITF(6,l^C0)  D I NL » XI NLE T, HE IGHT , X BAR  I N 

TURB2720 

l^CO 

FORM  ATI  /nx,  5HINLFT,1  1X,F5.2,0X,F6.2  t8XtF7.2tlOX,F6.2) 

TUR 82730 

IF!  IPS^'.MF.O)  WB  ITF(6f  15001  D TANK  , XLTANK  ,HTANK 

TUR827A0 

I5cn 

FPPM AT( /lOX, AHTANK , l2X,F5.2t9X,F6.2.8X,F7.2,10X ,F6.2) 

TURB2750 

IFI  IPSM  .NE.O  ) WR  lTE(6f  1600)  HSTRPS.XBAR7 

TUR82760 

16C0 

FPRM  ATI  / lOX,  AFSTR.  ,<.OX,F  7.  2 1 1 CX,  F6. 2 ) 

TURR2770 

IF!  IPOM  .NF.O  1 WR  ITEI  6,  1700)  HHlSTJtXBARS 

TUR82780 

17C0 

FPPMATI  /lOX,  5HM  ISC.,39X,F7.  2,10X,F6.2) 

T'JR82790 

IFI  I PSM  .NC.C)  WR  ITEI  6, 1800)  OMAX «XLPS,HPS, XCGPSE 

TURBZflOO 

1300 

FORMAT! /lOX, lOHPROP  SYS.f6X,F5,2t9X,F6.2»8X,F7.2»l0X,F6.2) 

TURP2810 

I F(  IPSM  .MF .0  ) WR I TFI 6,  1900)  OTANK  , XLTANK, WFUEL »XBAR5 

TIIRR2820 

loco 

FPOMATI /lOX, AHFUEl  , 12X,F  5.2t9X,F6.2 ♦8X,F7.2  flOX,F6 .2) 

TUR82830 

GP  TP  1 

TUR 82 840 

oso 

KFAIL  = 1 

TURP2850 

IF  ( IPSM  .LF.  C ) GO  TO  1177 

■^URP2360 

WPITEI 6,1) 

TUR82870 

1 

FCPMATI 30HTANK  CYLINDER  LENGTH  .LE.  ZERO) 

TUR82880 

r.n  jp  pcft 

TUR82890 

oso 

rPNT INOF 

TUBP2°00 

KFAIL  = l 

TUR  B2910 

OOf  1 

CPNTINUF 

TUR82920 

IF  I IPSM  .lE.  C ) GO  TO  1177 

TURP2°30 

WRITFI 6, TANK ) 

TUR82940 

1177 

CPNTINUF 

TURB2950 

006 

CONT  INUF 

TURB2960 

PEPE  = RHZF 

TURB2970 

R FTURN 

TURR2980 

END 

TU  ROPT^O 

SUBFOUTINF  CAR D I N5, N6, NX,  CLAS,PCOOF) 

r ARnoolO 

C FGM 

=MAIMAAITYPE  B)  L.D.G.  VER.  2 10-25-74 

FORT  IV  FRCD 

CARD0020 

C TO 

RFAC  CARO  IMAGES  FROM  N5,  COPY  ONTO  NX,  AND 

PRINT  ON  N6 

CARDOOOO 

1000 

FORM  AT  I 20A4 ) 

CAPD0040 

1001 

FORMAT  1 IX, 10A4, A3) 

CARn0050 

2000 

FOR'^AT  I 16,  1H.,2CA4) 

CAR00060 

2001 

FORM  AT  I I 6,  IH., IX,  19A4,A3) 

CARD0070 

2002 

FORM  ATI 6X, 17HINPUT  CARD  IMAGES/) 

CARDOOPO 

PIMFNSION  KARDI20),CLASI20),PCODEI20) 

CARn0090 

PATA  K7  rP,K  lO/4HZfP  ,4H10  / 

CAROOlOO 

K1  =1 

PARDO  1 10 

KCAPC  = 2 

CARDD 120 

NL IME  = 2 

CAR00130 

WR ITFIN6, 2002) 

CARDOIAO 

WRITEINX,  1001)  CLAS,  PCOOE 

CARDOl 50 

WRITEIN6,  200  I)  Kl,  CLAS,  KCARO,  PCOOF 

CARD0160 

GO  TO  2 

CAR00170 

1 

ALINE  = 0 

CARDO  180 

WRITEIN6,2C02) 

CARDO  190 

2 

NL INE  = NL INE  ♦ 1 

CAR  00200 

KCARD  = KCARD  ♦ 1 

rARD0210 

RFAO  I N5, 1000)  KARD 

CAR00220 

WRITEINX,  1000)KAR0 

CAR00230 

HA  200 
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LTV  AEROSPACE  CORP  DALLAS  TEX  VOUSHT  SYSTEMS  DIV  F/6  15/7 

SEATIK  analysis  PROCESS.  VOLUME  III  E.  CRUISE  MISSILE  - CONCEP*>ETC(UI 
FEB  75  R K MCDONOUGH  DAAB09-72-C*0062 

VSO-00.1636-VOL-3E-REV-A  NL 


V'P  ITF(  N6,  2C00)  KCftRO,  KARO 

IF  { KAPDI n .FQ.K7 IP.ANn.KAPDI 2I.E0.K10I  GO  TO  8 
IF  INL INF .LT.  50  I GO  TO  2 
CALI  PAGF 
GO  TO  1 

0 CNF  FIl  F NX 

REWIND  NX 
RFTDRA 
FND 


CAR  no  2^0 
CARn0250 
CAR  00260 
CAP00270 
CAR00280 
CAR00200 

FARnoBOO 

CAROOBIO 

CAR00320 


SUPPnilTlNE  INCOSTI  I ZIP  ,INPP  1 N» 

BFAl  NPZWT.MP 

common  /roNiY/  KiNnPs.niAFR t,shmc.sdthrt,srnozi tSHPfSCMMORi 

common  /SCRNNL/  NPTSI 2CI ,PARVNL( 7,20) ,DWNLI7,20» .nUPPYISO) 

I  .NSCOST,  IDUAMA  (A) 

COMMON  /C.UIOCn/  CnSN,NSCRC,WTGUin,SAHTI  (3)  ,SAWTJ(3),SAFCI(3), 

1 SAFCJI 3) ,KSASTR,KSAAGT  ,NSACHN , KSA SGT , AWTI ( 31 , AWT J (3 ) , 

2 APPEK  11 3 ), APPEKJI 3) , AFCI ,AFC  J, KA STB ,KA ACT ,NACHN, K ASGT , 

3 C.IPWTI  3)  .GIPPSPI  3)  .GIRNOTIB)  ,GIBFC  (3)  , KGTABL, KGT V PE , 

A ni)MCX(P) 

common  /comvls/  wtank ,vfxin,vrfo,ggw,hppump,wtfuel,wccpp,vccrt , 

1 R5, Yl, WNOZ.KFM ,MATTK,A,nCOH,WMC ,VBt ♦PTHRT.RNOZI ,NCZWT , Mp,C ASFM, 

2 FNFT,WT,WF,FMAX,  S,TA,ME  TTJ  ,ZXNB  ,0,WK,FC,  PPEAK,  BSP»NCFT,OA,WCS, 

3 WWH.WTC, WTP ,WGG,WSC ,WLV, VGT .HO , WP ,0P , WN, METAL, NCONFG 

COMMON  /COSTIN/  PRIAI,PR1A2,PRJC,PRI A3,PRIR3,PRIAA,PRIEA,PRIA5, 
IPP IA6,PPIA7,PRI AE,PRIBe,PRIA9,PRlG9,PRIAlO,PRlAll,PBIGll,PRI A12, 


INCnOOlO 
INCO0020 
INC000  30 
IMCnOOAO 

iNCnooso 

iNcnooeo 

INC00070 
INrooORO 
iNronn90 
iNcnn  100 
iNcnono 
INCO0120 
iNcnniBO 
INCnoiAO 
IMCOO 150 
iNcno 160 


2PPIB12,PP.  IF  12,PR!  Al3,PRIEl3,PRIAlA,PRIFlA,PRr  A15,PRIE15,  PRI  Alb,  INC00170 
3PP IE 16,PF 1 A 17,PR IF  1 Z, PR T A 1 8,PR I R1 3 , PR  I E 1 8 ,PRI A19 ,PP I E19 , PR  I A?0 , IMCOOIBO 

APRIA21,PP IA22,PR IP22,PRIA23,PRIB2  3,PRIC23,PRI A24 ,PR  IC2A , PP  I A25 , INCO0190 
5PRI B25, PP I A2  6,PR  IP26,PR  TC 26,PR NA 1 , PRNA2 , PRN A3 , PRNB3  , PRN AA , PRNF A,  INCOOZOO 
ePRNA5,PRMA6, PRNA7, PRNA8,PRNP8,PRNA9,PRNG9, PRNA10,PRNAll ,PRNC11 , 1^000210 

7PRNA12,  PRNB  12,PRNF12,PPN  A13,PRNF  13  ,PRNA  1 A,  PRNF  I A , PRN  Al  5 , PRN  A16  , 1^0,00  220 

8PPNA17,  PRN  A1  e,  PRNB  18,  PRNA19,  PRN819,PRNC19,PRNA2  0,  PRNC20  ,PRNA21  , IMCFiOZBO 

9PRNB2  1,PRNA2  2,PRNP22,PRNC22,PLPC  tPLAl,PLA3 ,PLB3 ,PL AA ,PL Ab , PL Aa , INCn0  2A3 
APLBP,PL A9,PLA11,PLR11,PLA 13, PLB13, PL  Cl  3 ,PLD1 3 ,P LAI  A ,PLn 1A , PL A1 5,  INrn0250 
ePLB15,PLF15,PLF15,PLA16,PLEl6,PLAl7,PLAl8,PLB18,PLCl8,PLAl9,P| A20, lNCO026n 
CPLB2n,PLA21,PLB2l,PLC2l,PTAl,PTDl,PTAA,PTBA,PTA5,PTE5,PTE5,PTA6,  lNCn0270 
OPTr6,PTA7,PTB7,PTC7,PTJC,PTA8,PTn8,PTA9,PTR9,PTAlO,FTB10,PTClO , INCO0280 
EPFA3,PFP3,PFAA,PFFA,PEA5,PEF5,PEA6,PEB6,PEE6,PF AT, PFE7,PEA8, PE A9,  INCO02O0 
FPFAlO,PCRin,PFC 1C,PEA11,PEBII,PEE11,PFBC,PSPC,PSA3  ,PSB3,PSAA,PSFA,  IN  COO ^03 
GPSA5,PSF5,PSA6,PSF6,PSG6,PSA7,PSF7,PSA8,PSA9 ,PSA10  ,PSB10,PSr 10 , INCOOOIO 
HP5A11,PSR11,PSF  1 1,CFT,PFT,CFCASF  ,PFCASE,CFC,PFC,CFM,PFM,1YFAR  INCr'0320 

COMMON  /COSTIN/  PR  IB  1 , PR IC I, PR IB2 , PR  I C2, PRI BA , PR  I CA ,PR lOA , PP I P5, 1 MCn0  330 

IPPl C5,PPIB9, PRIG  9, PR  109, PRI E9 ,PR I F9, PR  IB  1 1 , PRI C 1 1 , PRI 01 1 ,PR I El  I , INC 00 3 AO 
2PRIF 1 1,PRIC 12,PR ID12,PRIB13,PRIC13,PRID13,PRIBIA,PRICIA,PR1DIA,  INCOOISO 
1PPlfll5,PRlC15,PP 1015,PRIBI5,PRIC16,PRI016,PRIB17,PRIC17,PRID17,  INC00360 
APPl F 17,  PR IC ie,PR ID13,PRI019,PRIC 19, PRI 019,PRIfl2A ,PRNB I , PRNC 1 , PRNP2 I MCOO ^70 

5, PPNC2,PPNRA,PRNCA,PRNDA,PRNP5,PRNC5tPRNB9 ,PRNC9,PRN09,PRNE9,PRNF9INC003eO 

6, PRNR11,PRNC11,PRN011,PRNF11,PRNF11,PRNC12,PRN012,PRNB13,PPNC13,  INCCOaPO 
7PRNni3, PRNBIA,PRNC lA, PRNOl A , PRNB 1 5 , PRNC I 5, PRNOl 5 , PRNP16 , PRNClb , INCOOAOO 
ePRNOlb, PPNR17,PRNC17,PRN017,PRNE 17,PRNB20,PLBI ,PLC 1 , PL A2 , PL P2 , PL  BA INCOOA 10 
9,PLCA,PLA5,PLB5,PLB6,PLC6,PLA7,PLB7,PLB9,PLC9,PLA10,PLB10,PLA12,  1NCO0A2O 
APLB12,PLB1A,PLCIA,PLC15,PL015,PLB16,PLC16,PL016,PLB19,PLC19,PTB1,  INCOOABO 
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iNcno4*o 

INC00<»50 

lNCn0A60 

INCn0470 

INCno^RO 

fNCOOAQO 

iNcnosoo 
iMcnosio 
i^r,nos20 
I Nr.  no  5 10 
INC00540 

iNcnosso 

INCnO560 
INCnOSTO 
INC005R0 
INC no  590 
lNCn0600 
INCn0610 
iNcno6?o 
INCn0610 
INC00640 
iNrno650 
INC no 660 

INC'^0670 

INC0n680 
INCn0690 
iNcno7oo 
INCn0710 
INCn0720 
INCn0730 
IMCn0760 
INn0750 
rNCn0760 
INCn0770 
H CD07n0 
IN  CO  0790 
TNCnOflOO 
INCnOR  10 
INr00520 

iNcnoaoo 

INCn0R60 

!NCn0850 

INCn0960 

iNcnon7o 

INCnORBO 

INCnOROO 

iNcnoooo 

iNcnoolo 

INC00920 
INCn09  30 
INCn0940 
INC00950 
INCn0960 
INCn0970 
1NC00980 
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1 


APlRSfPl  /IP.PL  Ai  It  PLflll.PL  A13tPLni3,PLC13t  PLD13.pl  A14tPLni4«PLA15«  I»irn09<»0 
PPLPil5,PLr  15,PLr  l5,PLA16,PLP16,PLAl7,PLAl8.PLfll8.PLCl8,PLAl<»,PL  A20,  INCH  1009 
CPI 92n,PLA2  lyPLR?I,PLC21.PTAl,PT01 .PTA4,PTB4*PTA5*PTR5tPTF5.PTA6*  INCOIOIO 
CPTPf,,PT47,PTn7,PTr  7,PTJC  .PTA  8 . PTD8  . PTA9  . PTB9  .PT  A 10  , PT  8 10  . PTC  10  , I''Cni020 

EPFA3,PEP?,pFA4,PFF4,PFA5,PFF  5,  PF  A6,  PE  B6  ,PFE6  . PFA7  , PEE7  ,PE  A8  . PE  A9,  fNC01030 
FPFAIO.PEPIO.PFC IC.PFA ll.PFBll ,PFF11,PFBC,PSPC,PSA3  .PSB3 ,PS A4, PS E4, IMC01040 
GPSft5,PSFS,PSA6,PSF6,PSG6,PSA7,PSF7.PSA8»PSA9»PSAl0.PSPl0,PSC10.  INCH  10  SO 
FPSA  ll.PSm  l.PSF  1 1 tCFT.PFT.CFC  ASF  .PFCASE  .CFC.PFC  ,CFP,  FFM  I9Cni060 

X ,PLC14  INCni070 

NAMFI  1ST  /NAMCCP/  PPIPl,P«ICl,PRIP2,PBIC2.PRIB4,PRir4,PBTn4,PBIP5.rNCni0n0 
lPRir5.PPIP9,PRICS,PRin9,PRIF9.PRIF9.PRlBll .PBICll.PPlDll.PRIFl I,  IVCni090 
2PRlFll,PRICl2tPP  rni2,PRlB13,PRIC 13, PRI 01 3,PR I Bl4 ,PR 1C  14 ,PR ID  14 , TNCOllOO 
3PRIPlStPPir.l5,PR  ini5,PRtP16,PRICl6,PRI0l6,PRIBl7,PRIC17,PR10l7,  INCOlllO 
4PPIF  17, PRlCl e,PR IPlRtPRIR  19,PRIC 19 ,PR I 0 19, PRI B24, PPNBl , PRNC I ,PR hP2 INCni 120 

5, PRMC2,  PPMR4,  PRNC4,PPMn4,PRNR5,PRNCS,PRNB9,PRNC9,PRSC9,PRNF9,PRKF91\<Cr)l  130 

6, PRMRll,PRNr  U,  PPF‘D11,PPNF11,  PRNFll,PRNC12,PRN012  ,PBNR13.PRNC13,  INr.nil40 

7PPMr5  13,PPNR14,PPNC  14 , PRND  14,  PRNB  1 5 , PRMCl 5 . PRNDl 5 »PRAR16  . PRNf.  16 , INCH  1150 
SPRMni 6, PHMR17,PRNC  1 7 , PRND 1 7, PRNF 1 7, PRVBZO, PLBl ,PLC I ,PLA2 ,PLB2 , PLB4I 9C01 1 60 
9,  PLC4,Pt  AS,PLB5,PLB5,PLC6,PLA7,PLB7,PLB9,PLC9,PLA10,PLR10,PLA12,  INCOIWO 
APLRI?,PLP14,  PLC  15,PLD15,PLB16,PLC16,PL016  ,PL  019,  PLC19  , INmuRQ 

P PTA2,PTP2,PTA3,PTB3,PTCS,PTD5,PTB6.PTC6,PTD6,PTR8,PTC8,PEai,  INCH  1 190 

CPFP1,PFC1,PFA2,PFB2,PFC2,PEB4,PEC4,PE04,PEB5,PEC5,PFC5,PFE5,PFC6,  IN  CO  1200 
CPFr6,PFP7,PFC  7,PFD7,PFC1 l.PFDll.PSAl ,PSB1 ,PSC1 ,PS A2,PSB2, PSC2, PSe4tNCOl2lO 
E,PSC4,PSn4,PSP5,PSr  5,PSn5,PSE5,PSB6,PSC6,PSn6,PSF6  ,PSB7,PSC7,PSn7,  INr.ni22  0 
FP5F7,PSril,PS011,PRNr22,PLD21 ,PLE21,PT010,PTE10,PRIC26  INCH  1230 

X ,PTP1,PTC1  INCni23l 

N'AMFLIST  /NAMCNP/  PRCFIT,  AFAl  ,AFB1,AFC1,  AFDl,  AFI  l,AFA2  ,AFB2,  INC01240 

lAFr,2,  AFA3,  AFP3,AFn3,  AFA4,AFB4,AFC4,AFn4,AF  J4,AFA5,  AFBS,  AFCS,  AFH5,  IN  CO  12  50 
2AFA6,AFB6,AFG6, AFA7,AFC7,AFD7,AF48,AFB8,AFC8,AFD8, AFI8, AFA9, AFP9,  INCH  1260 
3AFCQ, AFPO, AFJ9,AFA10,aFB 10, AFClO.AFHlO.AFAll , APR  11 , AFG 1 1 , AF A1 2 , INTO  1 270 
4AFC1?, AFP12, AFA  13,AFP 13,AFC13,AF  A14, AF R14, AFC14 , WA 1, WE  I , WF 1 , IMCO 1 200 

5WA2, wn2,WF2,  CA  1,CE  1,CF 1 ,C A2 ,CE2 ,CF2 ,CA3 ,C E3 , CF3 ,G A 1 , GBl , GF 1 , INCH  1290 

t GA2,GB2,GK2,GA3,G03,GO3,GA4,  1^001300 

7GP4, CM4,CA5,GB5, GH5  IMCOIXIO 

NAMELIST  /NAMCCN/  AF E 1 , AFF 1 , AFGl , AFH I , AFC2 , AFD2 , AF F2, AFF2 , AFC3 , TNC0i320 
IAFC3, AFE3, ArF3, AFE4,AFF4,AFG4,AFH4,AF14 ,AFD5,AFE5, AFF5, AFG5, AFC6,  INCni 330 
2AFC6, AFF6, AFF6, AFB7,AFEa,AFE8,AFG8, AFH8,AFE9  ,AFF9 , AFG9 , AFH9 , AF 1 9,  INfOl 34  0 
3AF010, AFE10,AFF10,AFG10,AFC ll,AFDll ,AFEI IfAFFll ,AFB12,WR1,WC1,WD1, TNCCIBSO 


4WP2,WC2,CB1,CC1,C01,CB2,CC2,CD2,CB3,CC3,CD3,GC1 ,G01,GEl ,GC2,GD2, 
5GF2,GF2,GG2,GH2,GI2,CJ2,GC3,GD3,GE3,GF3,GG3,GH3,GI3  ,GJ3,GK3,GL3, 
6GP3,GN3,GP3,GC4,Gn4,GF4,GF4,GG4,GH4,GI 4,G J4, GK4 ,GL4 ,GC5 , G05, GF5 , 
7CF5,  r,G5 

GO  TO  ( 30,40,50,60,70,801,1 ZI P 
PFADI  N5,NAMCNP1 


IF(  lA'PP  IN.GT.O) 
GC  TO  10 
RFADINStMAMCCNI 
IF(  INPR  IN.GT.O) 
GO  TO  10 
BFAC(N5,NAMCPS) 
IF(  INPP  IN.GT.O) 
GO  TO  10 
PFAPI N5,NAMCCP) 
IF(  INPR IN.GT.O) 


WR  )TF  (N6,NAMCNP) 


WRITF(N6,NAMCCN) 


WR  ITF  (N6,NAMCPS) 


WR ITFIN6,NAMCCP) 


INGDl 360 
INC^l 370 
iNmnno 
INTO  1390 
iMrni400 
INCni/vio 
INrni420 
iNrni430 
tNr.'Tl440 
iNrni450 
lNr,ni460 
iNrni47n 
INC0i480 
iNr.ni49o 
iNcni5oo 
INCniSlO 
IN»‘ni520 
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GP  TO  10 

INr01530 

7C 

PFAGC  N8,NAMCBY» 

INC01540 

FMAX  = FNFT 

INCniSSO 

IF(  IMPR  IN.GT.C)  WR  ITE<N6,NAHCeY> 

INC01540 

or  TO  ic 

INC01570 

en 

CPNTINUF 

INC015P0 

RFAr(N5,NAMC<:T) 

INCH  1590 

[FCKGTABL  .L  F . 01  GO  TC  24^8 

INC01600 

NV=3 

INC01510 

IF(KGTYPF  .r.T.  12  ) GO  TO  2428 

lNr.01420 

IF  ( KGTYPE  .NF.  11  ) GO  TO  2408 

INCni630 

I BANG  PASSIVE  - SFMTACTTVE 

!NCni640 

CALL  SLU(NV,SAWTI,SAFC1 fWTGUIO,FC  tILO.IHl 1 

INC01650 

CP  TP  2418 

INCni660 

J PAMH  PASSIVE  - SFMIACTIVE 

INCOlfiTO 

2^Cf! 

CPNTTNUF 

lNCni680 

CALL  SLUl  NV,  S AWT  J f SAFC  J t WTGUIO  »FC  tlLOtlHI  1 

INr.01690 

24  18 

CPMT INUF 

1NC01700 

KSTAB=KSASTB 

IN  cm  7 10 

KAGATE  = KSAAGT 

INC01770 

NGHAN  * A'SACHN 

INCr»1730 

KSGATE  = KSASGT 

lNCni740 

GP  TO  2498 

INC01750 

2428 

rPNT INUF 

lNCr'1760 

IF  ( KGTYPE  .GT.  22  ) GO  TO  2458 

INCOITTO 

IF  ( KGTYPE  .NF.  21  » GP  TO  2438 

INC01780 

I BANC  ACTIVE 

INCni790 

CALL  SLLINV, AWT  1 , APP FK I ,WTGUI 0, PPE AK ♦ I LO, I HI  1 

INCni 800 

FC=AFCI 

INCOISIO 

nr  TO  2448 

INCni820 

2428 

CPNTINUF 

INCP1830 

J BAND  ACT  IVE 

IN  COIR  40 

CALL  SI UtNV,AWTJ,APPFKJ,WTGUIO,PPEAK,ILO,IHI I 

INC01850 

FC=AFCJ 

INC018A«0 

2448 

CONT  INUE 

IN  CO  1870 

KSTAPaKASTB 

INCni880 

KA  GA  TE  = KAA3  T 

INCni890 

NCHAN  = NACHN 

INCni900 

KSGATE  * KASGT 

iNcni9io 

GO  TO  2498 

IN'CP1920 

2458 

CONTINUE 

INCni930 

IF  { KGTYPF  .GT.  3 1 ) GO  TO  2498 

INC01940 

IP  SYSTEM 

INCni950 

call  SLUINVtGIRWTtGIRBSPtWTGUIDfBSP  tlLOtlHI) 

lNCm960 

CALL  SLU(NVtGIRMT*GIRNOT,WTGUlO«NOET«ILOf IHI ) 

IN  001970 

CALL  SLU(NV,GIRHT,GIRFC  .MTGUIO.FC  #IL0,1H1) 

lNCni980 

24Sfl 

CONTINUE 

INCH 1990 

IGTYPE  « 1 

TNC02000 

IF  ( (KGTYPE.GT.  12)  .AND.  (KGTYPE. LT.31 ) 1 IGTYPE  « 2 

INC02010 

1FIKGTYPE.GE.31)  IGTYPE»4 

IN0n2020 

IF!  INPRIN.GT.O)  MR  I TE(N6«NAMCST) 

INCr)2030 

10 

CONTINUE 

INC02040 

RETURN 

1NC02050 

END 

INC02060 
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SIIPPPUTINF  rnST(  ITNO) 

COMMON  /rnsTSC/  ctot, 
COMMON  /CONLY/  K!Nr),n 
COMMON  /SCRNNL/  SORBS 
FOUIV4LFNCE  ( IDUAMA( 
COMMON  /OACnST/  OMAXO 
COMMON  /HASVAR/  CPASR 
PFAL  Nn?WT,MP 
common  /COMVLS/  WTANK 

1 R5,Yl,WNnZfKFM,MATTK 

2 FNFT,WT,WF,FMAX,S,T4 

3 WWH.WTCfWTP  ,WGr,  tWSC  # 
common  /CnSTlN/  PR  I 

IPPIA6,PR1 A7,PRIA8tPRI 
2PRIP12,PPIF12,PR1A13, 


CPTOT,CRTOT,COMPC 117) 
lAFRT, SOMMOR(8l 
UnSl),  IDU4M4(4) 

3),  fCnST  ) 

. VMAXO*  OUMQA(R) 

(8),  TAREA,  DBASlKll) 

,VEXIN,VREQ,GGW,HPPUMPtWTFUELfWCCMM,VCCMI, 
»A,DCOM,WMC,VBl ,nTHRT,RNOZl .NCZHT, MP, C ASFM, 

>•  MF  TTJ  ,ZXN8  tO  t MP.FCf  PPEAKtBSP  tNOET  ,0A,WCS  , 
MLV«VGT»WO*WP,OP»WNtMETAL»NCONFG 
AI,PR1A2»PRJC tPRI A3tPRI B3tPRI A4,PR1F4,PRI A5, 
P8.PRIA9fPRIG9«PRIA10«PRIAll, PRIGll,PRIA12f 
PR  IF  13.PRI  A14.PRIF14.PRI  A1S.PRTF1S.PRI  Alf.  . 


COSTOOlO 

cosTonzo 

CnST0030 

roST0040 

cnsTooso 

rnsT0060 

rOSTOOTO 

cosTooeo 

C0ST0090 
COSTOlOO 
COSTOllO 
COSTO  120 
cnsTono 

COSTO  140 
COSTO ISO 


3PR IE  16f  PRI A17»PR lFl7tPRI Al8tPRlR18,PRIE18,PRI A19, PR  I E 19 t PR  I A20 * COSTOieO 
4PRI A?1,PR IA22,PR lB?2tPRIA23fPRlB23fPRIC23  f PRI A24fPRIC24tPRI A2S t COSTO I 70 
5PRI P?St  PR  I A26,PR  IP?6f PR IC 26 1 PRNA I , PRNA2 , PRN A3 , PRNB3 , PRN A4 1 PPNF 4,  COSTOIBO 
6PRNA5, PRNA6, PRN A 7, PRMA8 »PRNB 8 # PRNA9. PRNG9, PRNAIO t PRN Al I , PRNGl I , COST 0190 
7PRNA12f  PPNR12fPRNFl2, PRNA13,PRNE 13 « PRNA 1 4« PRNE 14 « PRN Al 5 » PRN A16  t CnSTOZOO 
8PPNA17,  PRNA18tPPNP18,PRNA19tPRNBl9,PRNC19.PRNA20f  PRKC20,PRNA21  ♦ Ff’STOZlO 
9PRNP21f PRNA22fPRNB22,PRNC22,PLPC ,PLA 1 »PLA3» PLB3 t PL A4 1 PL A6 1 PL A8 , C0ST0220 
APLBR,PLA9,Pl  A 1 1 , PLR 1 1 , PL A 1 3f PLB 1 3 » PLCl 3 t PLDl 3 . PLA14  ,PLD14, PL Al S,  COST0230 
PPL  PI  5, PL  FI  5, PLF 15, PL A 16, PLE 16, PL A 1 7, PL Al 8 , PL  818 ,PLC 18 , PL A 19 , PL A20 , roST0240 
CPLR?0,PLA21,PLB21,PLC21,PTA1,PT01 ,PTA4,PTB4 ,PTA5 , PTBS , PT E5 , PT A6 , COST02S0 
nPTE6,PT A7,PTR7,PTr 7,PTJC ,PTA8 ,PTD8 , PTA9 , PTB9 , PT AlO , PTBIO ,PTriO , COSTO 260 
EPFA3,PFP3,PEA4,PEF4,PFAS,PEF5,PFA6,PEB6,PEE6,PEA7,PEE7,PEA8,PFA9,  C0ST0270 
FPFAin,PEBlO,PFC lO.PEAl l,PFBll,PEE 11,PFBC,PSPC»PSA3,PSB3,PSA4,pSF4,COST0280 
CPSA5,PSF5,PSA6,PSF6,PSG6,PSA7,PSF7,PSA8,PSA9,PSA10,FSB10,PSC10,  Cf'STOZPO 
FPSAll,PSRll,PSFll,CFT,PFT,CFC ASE,PFCASE,CFC,PFC,CFP,PFM,IYFAR  COSTOBOO 

COMMON  /CO  ST  IN/  PR  I B 1 , PR  I C 1 , PRI B2 , PRI C2 , PRI B4 , PR  I C4 , PR  1 04 , PR  1 8 5, C0ST03 10 
1PRICS,PRIB9,PRIC9,PRI09,PRIE9,PRIF9,PRIB11,PRIC11 ,PPI011,PRIF11,  COST  03 20 
2PRIFll,PP IC12,PR  ini2,PRIB13,PRICl3,PRID13,PRIB14,PRIC14,PR  1014,  COSTO 3 30 
3PRIP1S,PRIC  15,PR  ini5,PRIP16,PRlC16,PRI016,PRIB17,PRIC17,PRID17  , C.nST0  340 
4PR1F  17,PR1C  ie,PRI0ie,PRIB19,PRIC19,PRIDl9,PRIB24,PRBBl,PRNCl,PRNB2C0ST0  3S0 

5, PRNC2,  PRNB4,PPNC4,PRND4,PRNB5,PRNC5,PRNB9,PRNC9,PRM}9,  PRNF9,PRKF9rosT0360 

6,  PRMB11,PRNC 1 If  PRNOll ,PRNEl 1,PRNF11,PRNC12 ,PRN012 ,PRNB13, P0NC13,  C0STn3  70 
7PPN0  13, PBNB14,PRNC 14, PRNO 14, PRNB 1 St PRNCl 5 , PRNOl 5 , PRNfll6 , PRNC16 , COST0  3PO 
8PPN0I6, PRN817,PRNC 17, PRNO 17,PRNE 1 7, PRNB20, PLBl ,PLC 1 ,PL A2 , PL B2 , PLB4rOST0 390 
9,PLC4,PLA5,PLB5,PLB6,PLC6,PLA7,PL87,PLfl9,PLC9,PLA10,PLB10,PLA12,  CnsT0400 
APLB12,PLB14,PLCl4,PLCl5,PLD15,PL816,PLC16,PLD16,PLei9,PLC19,PTei,  C,0ST0  410 
ePTCl,PTA2,PTR2,PTA3,PTB3,PTC5,PTD5f PTB6 ,PTC6 ,PT06 , PTB8 , PTC8 , PE  A 1,  roST0420 
CPFRl,PECl,PEA2,PEP2tPEC2,PFB4,PEC4,PE04,PEB5,PEC5, PEGS , PEES ,PEC6,  COST0430 
CPEC!6,PFP7,PFC7,PEr7,PFC  1 1,PE011,PSA1  ,PSB1  ,PSC1  , PS A2  f PS B2 , PS C2,  PSP4Cf^STn440 
E,PSC4,PSD4,PSB5,PSC5,PSD5,PSE5,PSB6,PSC6,PSD6,PSE6,PSB7,PSC7,PSD7,C0ST0450 
FPSE7, PSCll,PS011,PRN022f PLD21,PLE21 ,PT010,PTE10, PRI026  COST0460 

COMMON  /COSTIN/  PPOFl T ,QO,R , AF Al , AFB 1 , AFC  1 , AFOl , AF  II , AF A2 , AFR2,  COST0470 
1AFG2,  AFA3,AFB3,AFG3,AFA4,AFB4,AFC4,AF04,AFJ4fAFA5,AFB5, AFC5, AFH5,  C0ST0480 
2AFA6, AFB6,AFG6,AFA7,AFC7,AF07f AFA8,AFB8,AFC8,AFD8,AFI8,AFA9,AFP9,  C0ST0490 
3AFC9,AFr9,AFJ9,AFA  10 ,AFB 10, AFC  10, AFHIO , AF Al 1 , AFBl 1 , AFGl 1 , AF A 12,  COST0500 
4AFC12, AFD12,AFA13,AFB13,AFC 13, AF A14, AF B14, AFC14 , KFUZF , WA 1 , WE  1 , WF 1 , COST OSl 0 
5WA2,WC2,WE2fKGAIN,CA ltCEl,CFl,CA2,CE2fCF2fCA3,CE3,CF3,GAl,GBl,GFl,COSTn520 
6KLE6,KGT6,KSTAB,KAGATE,NCHAN,KSGATE,GA2,GB2,GK2,GA3,GB3fr.Q3,GA4,  COST0S3O 
7GP4,GM4,GA5,GB5,GH5,KG,KC,KW,KA,RP,IGTYPE,ICTYPE,I PRCST  CnST0S40 

COMMON  /COSTIN/  AF F 1 , A FFl , AFGl , AFHl , AFC2 ,AF02 , AF E2 , AF F2, AFC3,  COSTOSSO 
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lAFC3t AFE3,AFF3,AFE«,AFFAtAFG4,AFH4,AFI4,AFD5tAFE5,AFF5,AFG5f AFC6,  C0ST0560 
2AFn6, AFE6, AFF6, AFP7#AFFR.AFF8tAFG8f AFHSf AFE9tAFF9*AF69#AFHq,AFT9t  COSTOSTO 
3AFOin, AFElOt AFFlOtAFGlOt AFClltAFDll»AFEll*AFFll»AFei2tWBl tMCltWCltCnST0880 
4WP?,WC2,C8l,CCl,CPl,CB2,CC2»C02tCB3iCC3fC03.GCltG0l tGEl tGC2fGn2,  CnST0590 
5CF2iGF2»GG2tGH2f Gl2«Gj2fGC3tG03tGE3»GF3»GG3«GH3,GI3tGj3tGK3tGL3*  CHSTOSOO 
6rv3,GN3tGP3,GC4»Gn4tGEA»GF4«GG4*GH4tGI4tGJ4tGK4tGL4tGC5tGn5«GF5«  C0ST0610 
7GF5,GG5frFTTA8(  m,PFTTAB(ll|  CnST0620 

CrwMHN  /CSTPRV/  CBLC.CBMC tCCASE,CCFUtCCL»CCMfCCOMI ,CCCPL,CCCFM,  CPST0630 

1 rCONT, CCRO,CEBFUtCEBPO,CETj,CEXIN,CGFUfCGRD»  CnST0640 

2 CGT.CGTpT.c IGN.CIPJFUf  CIRJRD,  CLF ,CLFL tCLGGf CL  1 1 CL M,  C0ST0650 

3 CLRFU»ClPRD,CLRT,CLTC»CLTP»CMfCWGG»C»<F»CMTC»CMTP,  CnST0660 

4 CMVtCNnZtCNRJFU,  CNRJRO,  CPtCPAFI ,CPENG,CFLtCPLC,  CnST067n 

5 CPMFGL,CPMFGM,CPOA,CPR,CPRC,CPStCPSMGGtCPSN2»CPSRAPtCPSSGG»  CnST0680 

6 CpTPOL ,CRAFI,CRnEV,CREGfCRENGfCRFTOfCRJC.CRMFGL,CRPFGPfCROA,  C0ST0690 

7 CRTOriL  ,CSA,CSRFU,CSPRn,CSRT,CT,CTAF|  tCTCtCTEBtCTIRJ.CT  JFUt  C0ST0700 

8 CTJLF.CTJLFL.CTJRO.CTJT,  C TL tCTMtCTNRJ tCTP, CMH,CWHFU, CHHP , C0ST0710 

9 CBOOC, CPPStCPFU.PROFPP ,PRFUAF,PRRAF .CCLBtCCMBfCTCBtCLI BtCNOZB,  CGST0720 

A rPRR,rPLB,CIGNB,CSAB,PROFEX  CnSTn730 


CIMFNSTCN  DUMMY( 11 
EOUrVALENCE  (CBLC,DUMMY( 1 11 
CTMEMSTON  CnMV(5l)#  ICOMV<5ll 

EQUIVALENCE  ( COHVIl),  WTANK)  * < ICOMVID*  WTANK  ) 
NAMELIST  /NCOUT/  COM  V, ICOMV ,KSTAB t KAGA TE . NCH AN, KSG ATE, 

1 KG,Kr,KW,KA,KP, IGTYPE, ICTYPE 

2 ,K IND,01AFRT, SOMMPR 

3 ,OMAXC,VMAXQ,nUMQA,TAREA,QASAV,SSAV 
OASAV  = OA 

SSAV  = S 

IF  ( QMAXQ  .GT.  0.0  ) QA  « OMAXQ  * TAREA  / 144./  1000. 
IF  ( VMAXO  .GT.  0.0  I S * VMAXQ  * 3600.  / 6076.1155 
IF  ( ICPST.NE.O)  CALL  PAGE 
IFf ICnST.GT. 1)  WR1TE(6,NC0UT> 

CO  80  1=1,  104 
CUMMYI  I )*0.0 
WTANX  = 0.0 

IF  ((KIND  .GE.  20)  .AND.  (KIND  . L T.  30)1  WTANX«MT 
IF  ((KINO  .GE.  40)  .AND.  (KINO  .LT.  50))  HTANX*HTANK 
IF  (KIND  .GF.  50)  WTANX*H7 
AZ=A*RTANX 

IF  (KG  .FO.  0)  CALL  GUCOST 
IF  (KC  .FO.  0)  CALL  CTCOST 
IF  (KW  .EO.  0)  CALL  WHCOST 
IF  (KA  .EO.  0)  CALL  A A IC ST( AZ ,DUMPY, 1 ) 

IF  (KP  .NF.  0)  GO  TO  50 

IF  (KINO  .NE.  10  .AND.  KINO  .NE.  13)  GO  TO  10 
CALL  PSRCST 

IF  (KINO  .FO.  13)  CALL  PEBCST 
GO  TO  50 

IF  (KINO  .NE . 20  .AND.  KINO  .NE.  23)  GO  TO  20 
CALL  PLRCST 

IF  (KINO  .EO.  23)  CALL  PEBCST 
GO  TO  50 

IF  (K INO  .NE . 41 ) GO  TO  30 
CALL  PIRCST 
GO  TO  50 


Cr)ST0740 
rnsTOTso 
CPST0760 
C0ST0770 
CPST0780 
CnST0790 
COSTOBOO 
CnSTOBlO 
CnST0820 
CT  ST0830 
CnST0840 
rnsT0850 
rnsT0860 
CnSTOBTO 
COST0B8O 
CPST0890 
CPST0900 
rosT09io 
CPST0920 
CnST09  30 
rPST0940 
msTOQso 
CnST0960 
CPST0970 
CPST0P80 
CnSTOPPO 
COST  1000 

cnsTioio 

CnST1020 
CDST1030 
CO  ST 1040 
C0ST1050 
COST  1060 
C0ST1070 
CnSTlOBO 
CO  ST  I 090 
COSTllOO 


30 

IF  IKIf'C  .NF.  43  .AND.  KINO  .NE.  44)  GO  TO 

40 

COSTlllO 

TALL  PHRCST 

COST  1120 

IF  IKINP  .eO.  43)  CALL  PEBCST 

COST1130 

CP  TO  50 

CPST1140 

40 

IF  !KINC  .NE.  50  .ANP.  KINO  .NE.  53)  GO  TO 

50 

CnsT1150 

CALL  PTJCST 

r0ST1160 

IF  IKING  .FO.  53)  CALL  PFRCST 

COST  11 70 

50 

CPNT INUF 

fosTiieo 

CPSINT  = ! CPFU  - PROFPR  ) • 0.15  / 1.15 

COST  1190 

CPFU  = rPFll  ♦ 
CPPS  = CPPS  ♦ 
rPTHT  = CPAFI 
CPTOT  = COAFl 
CTOT  = CPTOT 
CP'^PCC 
rrMPf ( 

coMprc 

rnMPC( 

CP'^PC< 

CPMPPC 
C^'^PP  ( 
rrvpp ( 

C''»<PC( 


CFPFU 

CFPPO 


CGFU 

CGRO 


CCFU 

CCRO 


CWHFU 

CWHR 


CPFU  ♦ 

CPPS  ♦ 

CPTDT 

n=CPAFI 
2)=CPFU 
3»=CGFU 

4) =CCFU 

5) =CWHFU 

6)  = rp  AFI 
71 =CPPS 
8)=CCRn 
9 l = CCRP 

CP'^PCC  10)  = CWHP 
NTFN'  = 10 

NK  INP  = MOC(  K IND.MEN  » 

IF  ( ICPST  .FQ.  0 ) GP  TP 
WP  ITF(  6f  51  1 1 ) NCPF'FG 
FPPMAT(  //  PX,  l3HCnNFIGURAT10N, 

WP  ITF(6, A?10  1 lYFAP 

FORM AT( ///23X23HRFLAT1VF  COST  SUMMARY  / 

1 16X22H(C0STS  IN  THOUSANDS  OF  , I5f  IX8H00LLARS) 

WFITF(6, A212  I CP  TOT, C RAF  I , CRPS, CGRO, CCRD, CWHR 
A21?  FPRM('T(  / RX25HM1SS1LF  DFVFLOPMENT  COSTS,  F35.2  / 

1 iqx22HAl  RFRAMF  «■  INTEGRATION  , FU.2  / 19X17HPPCPULSI  ON 


9876 


5111 


A210 


15  ) 


/ ) 


CnST1200 
CnsTl2lO 
CPST1220 
COST  1230 
CPST  12<i0 
COST  1250 
rnST1260 
CnST1270 
CPSTl 280 
COST  1290 
r^ST 1300 
COST  1310 
r.nST  1320 
CnST1330 
<■0571340 
C0ST1350 
COST  13  60 
C^ST 1370 
C.PST  1380 
ro<;Ti390 
POSTIAOO 
COST! 41 0 
<0571420 
r'iST1430 
COST1440 
SYSTFMCPST1450 


2 ,F19.2  / 19X15HGUI DANCE  SYSTEM, F21. 2/  19X15HCCATRCLS  SYSTEM,  rnsT1460 

3 P21.2  / 19X7HWAPHEA0,F29.2  I CPST1470 

WPITF(6, 42141  CPTCT, CPAFI, CPFU, CGFU, CCFU, CWHFU  COST  1480 

4214  FORMAT!  8X35HM1SSILE  FIRST  UNIT  PRODUCTION  COSTS  , F25.2  / C0ST1490 

1 19X22HAIPFRAME  ♦ IN TEGR AT  ION ,F 14. 2/  19X1 7H PROPUL  SI CN  SYSTEM  , COST  1500 

2 Fl°.2  / 19X15HGUIDAMCF  SYSTEM, F21. 2/  19X15HCCNTRrLS  SYSTEM  , C^STISIO 

3 F21.2  / 19X 7HWAPHEAD,F29.2  I C0ST1520 

WR ITF(6,4216)  CTOT  roST1530 

4216  FORMAT!  8X40HTrTAL  COST  THROUGH  FIRST  UNIT  PRODUCTION  , F?0.?)  0^5^1540 
IF  IlCOST  .IE.  0 » GO  TO  9876  COST1550 

CALL  PAGE  rn5T1560 

WRITE  !6, 51111  NCONFG  COST1570 

WP ITE! 6, 5210)  lYEAR  COST1S80 

5210  FORMAT!  1 5X3 7HR ELA T I VE  COST  BREAKDOWN  - DEVELCFMENT  / CnST1590 

1 16X22H!CnSTS  IN  THOUSANDS  OF  ,15,  lX8HnOLLARS)  ) COST1600 

WRITE! 6, 52  12)  CR AF I , CR ENG ,CROE V,C RF TO, CRTOOL ,CRMFGL ,CRMFGM,C RO A , COST  1610 

1 PRRAF  COST1620 

5212  FORMAT!  8X22HA IRFR AME  ♦ INTEGRATION  ,F37.2  / COST1630 

I 19X11FFNG1NFERING,F25.2  / 19X1 IHDE  VE  LOPMENT , F25.2  / COST1640 


I 


r 

t: 

i, 

ft 


3  l9Xl0hMFG.  LABOR,  F2t.2  / ISX14HMFG.  MATFRI ALS  ,F22.2  / Cn«;Tl660 

<1  19X 17HOUAL  I TV  ASSURANCFt  F19,2  / 19X6HPR0FIT,  F30,2  ) CnSTl670 

WRITF(  ft,S2U)  CRPS,CGRO,CCRO,CtA^RtCRTOT  COSTI6flO 

•52  14  FTRMATC  RXl7HPRnPUL  SI  ON  SVSTEM,F42.2  / COST  1690 

1 BX  15HGIJIDANCF  SYSTEM  ,F64.2  / 8X1 5HC  CNTROLS  SySTFM»F44.2  / COSTITOO 

2 8X7HWARHEADtF52.2  / BX 5HT0 TAL t F54.2  ) COSTITIO 

WRITF(6,31 10  nYFAR,CPAFI  COST  1720 

3110  FPRMAT(/  14X,47HRELAT1  VE  COST  BREAKDOWN  - FIRST  IJMT  PRODUCT  ICN  CnST1730 

1 / 19X,22H(C0STS  IN  THOUSANDS  OF  ,I5f  IX,  BHOCLLARS)  / CnST1740 

2 8X24HAIRFRAME  AND  INTEGRATION  , F35.2  I r0STl750 

WPITF(6,311l  I CPFNG,CPTOnL,CPMFGLfCPMFGM,CPOA,PRFUAF  CnST1760 

3111  FPRMAT(  19XIIHENGINEFRING,F25.2  / 19X7HT00LING,F29.2  / COST1770 

1 iqxlOHMFG.  LABOR  , F26.2  / 19X14HMFG.  MATERIALS  , F22.2  / COSTITBO 

2 iqX17H0UALITV  ASSURANCE  , F19.2  / 19X6HPR0FIT  , F30.2  J C0ST1790 

WPITFC  6,  3120  CGFU,CCFU,CWHFU,CPFU  COST  IROO 

3120  FHpNaTI  3X15HGLI0ANCF  SYSTEM  , FAS, 2 / 8X15HC0NTR0LS  SYSTEM  , COSTlfllO 

1 FAS.?  / ex7HWARHEA0  , F53.2  / 8X1 THPROPULSI ON  SYSTEM  ,FA3 .2 ICOST 1820 

IF(  NKINO  .FO.  3 I WRITE(6, 31301  CEBFU  CnST1830 

3130  FORMAT!  1 3X  I EHF XTFRNAL  BOOSTER  , F31.2  ) COSTIBAO 

IP  (NKINO. FO.  3)  KPITF  (6,31401  C TCB  ,C  LI  B ,CNOZ  B ,CPRB,  C PLB,  C I GN  E,  mSTlBSO 

I rSAB.PROFFX  CnSTl860 

31A0  FORMAT! 19X4HCASE,F32. 2 / 19X lOHI NSULATI nN,F26.2  / C0ST1P7C 

1 19X6HN0ZZLE,F30.2  / 19X10HPR0PE LLANT,  F26.2  / COSTIBBO 

2 19X13HPRPP.  LOADING  ,F23.2  / 19X 7H1 GNI TER , F29.2  / C^ST 1890 

3 19X10HSAFF  ♦ ARM,  F26.2  / 19X6HPR0FIT,  F30.2  ) CnST1900 

IF  ! KINO  .LT.  2C  ) HP  I TE ( 6, 3 1 50 » CSRFU  COSTIOIO 

3150  FORMAT!  13X22HS0LID  ROCKET  SUSTAINER  , F25.2  ) COST1920 

IF  ! KINO  .LT.  20  ) HR  I TE  ( 6,  3140  ICC  A SE  , CLI  , CNOZ  ,CPRC  , r,OSTl930 

I CPI  C,CIGN,CSA,PROFPR  r,0ST1940 

IF!  (KINO. LT. 301. AND. (KIND. GE. 20)  I HR  I TE ( 6 ,3160)  CLRFU,CTC,CT P,  rnSTlPSO 

I CM,CPS,CT,CP,CPL,CSA,PRnFPR  C0ST1960 

31C0  FORMAT!  13X23HL10U1D  ROCKET  SUSTAINER  ,F24.2  / COST1970 

1 19X14HTHRUST  CHAMBER  ,F22.2  / 19X9H TURBOPUMP  , F27.2  / COST1980 

2 loXlSHMISC.  EQUIPMENT  , F21.2  / 1 9X2  IHPRE  SSUR  I Z AT  I ON  SYSTEM  , rnSTl990 

3 FIS,?  / 19X7HTANKAGF  , F29.2  / 19X7HFUEL/0X  , F29.2  t COST2000 

4 19X13HPR0P.  LOAOING  , F23.2  / 19X10HSAFE  ♦ ARM  , F?6.2  / COSTZOIO 

5 19X6HPPnFIT  , F30.2  ) roST2O20 

IF!  KINO  .GE.  SO  ) WRITE(6,3170)  C TJFU,CETJ,CT ,CT JLF,CTJLFL, PR0FPRCnST2030 

3170  FORMAT!  13X 18HTURB0 JEt  SUSTAINER  , F29.2  / 19X6HENGINF,  F30.2/  C0ST2040 

1 19X7HTANKAGF  ,F29.2  / 19X4HFUEL,  F32.2  / 19X13HFUEL  LCAOING  , rnST20SO 

2 F23.2  / 19X6HPR0F1T,  F30.2  ) CnST?060 


1P0UT=0 

IF(  (KIND. GE. AO)  .AND.  (KIND. LT. 50)  ) I P0UT*1 

1F(K IND.E0.41)  IPCUT«IPOtT  ♦ I 

IF( IPOUT.EQ.l)  HRI TE(6,3210)  CNRJFU 

3210  FORMAT!  13X25HNON-1NT.  RAMJET  SUSTAINER  , F22.2  ) 

IF( IP0UT.EQ,2)  MRITE(6,3230I  CIRJFU 

3230  FORMAT!  13X25H1NTEGRA L RAMJET  SUSTAINER,  F22.2  ) 

IF!  IP0UT.GT.0)WR1TE(6,3211)  C T,CE XI N,C PS, CLF ,CLFL 

3211  FORMAT! 19X7HTANKAGE  ,F29.2  / 19X15HEX1.  INSULATION,  F21.2  / 

1 19X21HPRESSUR1ZATI0N  SYSTEM  ,F15.2  / 19X4HFUEL,  F32.2  / 

2 19X12HFUEL  LOADING  , F24.2  ) 

IF!  IPOUT.EQ.1)MB1TE(6,3220)  CRX  ,CCOML  ,CCOMM,CCCMl  ,CNCZ,PRCFPR 
3220  FORMAT!  19X9HC0MBUST0R ,F 27. 2 / 22X5HLABOR,F16.2  / 

1 22X8HMATERIAL,F13.2/  22X10HI NSULATI ON, Fll. 2 / 


rnsT2070 
COST2080 
CPST?OPO 
CnST2100 
rosT2i 10 
CnST2120 
COST2130 
COST  2140 
COST2150 
C0ST2160 
C0ST2170 
roST2180 
CPST2190 
C0ST2200 
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M 


2 ?2X6HMn7ZLEfr 15.2  / 1 5X6HPR0F1 TfF 30.2  » 

IF(  lPni)T.F0.2J  WRITF(  6,32401  CBOOC  ,C  Rl  C ,CBMC  ,C  L I ,C  NCZ , C PRC, 

1 CPLC.C  IGN ,r SA, PRPFPR 

32An  FORMAT! lQXl7HttnnSTFP/CnMnuSTnR,Fl9. 2 / 22X10HCASF  IARCR,F11.2  / 

1 22XIOHCASE  MATl.,F11.2  / 22X10HCASE  INSUL,Fll.2  / 

2 22X6HNnZZLE,Fl5.2  / 22X<)HBOO.  PR0P,F12.2/  22X11HB,  P.  LOAD. 

2 FIO.2  / 22X7HIGNITER,F14.2  / 22X10HSAFF  ♦ ARM,  Fli.2  / 

A l9X6HPRnFIT,  F30.2  ) 

WR ITF(  6, 3366  ) CPSTNT 

3366  FORMAT! IPXIIHINTFGRATION  , F25.2  ) 

9R76  rONTIMUF 

OA  = QASAV 
S = SSAV 
RFTIIRM 
FAD 


rnST22lO 
COST 2 2 20 
rnsT2230 
CnST??4n 
CnST2250 
Cn<;T?260 
rnST2270 
C'’ST??80 
CnST22oO 
rnsT2300 
CnST23lO 
CnST2320 
CnST2330 
rn5T2340 
COST  23 50 


( 


f; 


c 

c 

c 


SL'BRnUTI^E  AAICSTIASUPLD  ,TEMP8,1NDI  I AAICOOIO 

AAir.nn20 

AIRFPAMc  ar^p  integration  COST  AAir.0033 

AA  IC0040 

RFAL  NrZWT,MP  AAICOOBO 

COMMON  /rOMVLS/  HTANK,VFXIN,VREQ,GGW,HPPUMP,WTFUEL,WCCRM,VCrMI,  Aair''O60 

1 P5,Yl,WMnZ,KFM,MATTK,A,nC0H,WMC,VBl  ,DTHRT,RNaZI  ,NCZHT  , MP,  CASFm,  AA1C0070 

2 FNFT,KT,  WF,FMAX,  S,T4,MFTTJ,ZXNB  ,D,WM,FC,  PPEAK,8SP,NCET  ,(:A,WC5  , AAICOORO 

3 WWH,WTC,  WTP  ,WGG,WSC.  ,WLV,VGT,MC,WP,DP,WN,MFTAL,NCC^FG  AA  10.0090 

COMMON  /CnSTlN/  PR  I AI,PRIA2,PRJC,PR! A3,PRIR3,PR1 A4,PRIF4,PR1 A5,  AAICniOO 

lP‘’lA6,PPTA7,PRIAe,PP!R8,PRlA<3,PRIG9,PRI  AlO.PRI  All,PRIC,ll,PRI  A12,  AA  I CO  1 10 
2PR1  B12,  PP  IE  12,PR  Un.PR  IE  13,PRI  A14,PRIE14,PR1  A15  ,PRIF15  ,PR  I Alft,  MIC0120 
3PPIE16,PR IA17,PR  IF17,PRIAl8,PRIBl8,PRlEl8fPRl A19,PP1E19,PRI A20,  AA ICO  I 30 
4PPI A21,PRT A22,PR IB  22, PR  I A 23, PR  I B2 3, PRI C23 ,PR I A24 ,PR 1C24 , PR  I A25 , AA ICO  140 

5PPI P2  5, PR  I A2  6,PP  IP26,PRIC26,PRNA1 ,PRNA2,PRNA3,PRNB3,PPNA4,PPNF4,  A A ICO  150 
6PRNA5,PRNA6,PRNA7,PPNA8,PRNB8,PRNA9,PRNG9,PRNA10,PRNA11,PRNG11 , AA I CO  160 
7PPMA 12, PPNR12,PRNE12, PRNA13, PRNE 13,PRNA14  ,PRNE14, PRA A15, PRNA16 , AA ICO  170 

8PRNA17, PRN A18,PRNR  ie,PRNA19,PRNBl9,PRNCl9,PRNA20,PRNC20,PRNA21 , AA  I CO  1 80 
9PRNB?l,PPNA22,PPNfl22,PRNC22,PLPC ,PLA1 ,PLA3 ,PLB3 ,P L A4 ,PL A6 , PL AB , AAIC0190 
APLBR, PL  A9,PL A11,PLR11,PLA13,PLBI3,PLC13,PLD13,PLA14,PL014,PLAI5,  AA!CO?nO 
PPl B15,PLF15,PLF  15, PL  A 16, PLE 1 6 ,PLA 17 , PLAl 8 , PLBl 8 , PL C 18 , PL A19 , PL A20, AAIC0210 
CPLR?0,PLA21,PLB?l,PLC21,PTAl,PTDl,PTA4,PTB4,«»TA5,PTP5,PTE5,PTA6  , AM  Co  220 
rPTE6,PT A7,PTB7,PTC7,PTJC,PTA8,PT08,PTA9,PTB9,PTA10,FTBIO,PTC10,  AA ICO  2 30 
EPFA3,PFR3,PFA4,PEE4,PEA5,PEF5,PE A6,PEB6,PEE6 ,PE A7 , PE E7 , PF AR , PF A9,  AAIC0240 
FPFA10,PFR 10, PEC  10, PE A 1 1 , PE B1 1 , PEEl 1 , PF8C , PS  PC, PS A3  ,PS P3 , PS A4 , PS E4 , A A I CO250 
GPSA5,PSF5,PSA6,PSF6,PSG6,PSA  7,PSF  7,  P SA8  , PSA9  , PS  AlO  , PS  R 10  , PS  CIO  , A A ICO  260 

HPSAll,PSBll,PSEl  1,CFT,PFT,CFCASE , PFC ASE ,CFC, PFC ,CFM ,PFM, IVFAR  AA I CO  270 

common  /CO  ST  in/  PR IR1,PR IC l,PRIB2,PRIC2 ,PRI 84,PRIC4,PRin4,PR I P5, AA  IC0  2PO 
lPPIC5,PRIP9,PRICe,PRlP9,PRIF9,PRlF9,PRIRll,PRICll,PPinil,PRIFll,  A A 100  290 
2PBIF  11,PRIC I2,PRini?,PRIB13,PRIC l3,PRIDl3,PRIBl4,PRtCl4,PRini4,  A A ICO 300 
3PRIR15,PRIC1«,PR ID  15, PR  I Bl 6, PR IC 16, PRI 016, PR  I Bl 7, PR  IC 17, PR  10 17,  AA  IC0310 

4PRIEI r,PP IC 18,PR  ID18,PPIR19,PRIC19, PRI D 19 , PRI B24 , PRNPl , PRNC 1 , PRNP2 A A I CO  320 

5, PRNC2, PRMR4,PRNC4,PRNn4,PRNB5,PRNC5,PRNB9,PRNC9,PRKC9,PRNE9,PRNF9AAlC0330 

6, PRNBll,PRNCll,PRNnil,PRNFll,PRNFll,PRNC12,PRN012,PRNB13,PRNC13,  AAIC0340 
7PBN013,  PRNB14,PRNC14,PRN014,PRNB15,PRNC15,  PRNni5,PRNei6,PRNC.l6  , AA  IC.0350 
8PPNP16, PflNR17,PRNC17, PRND 1 7 , PRNE 1 7 , PRNB20 , PLBl ,PLC I , PL AZ , PL R2, PL  64 A A 1 CO 360 
9,PLC4,PLA5,PLB5,PIB6,PLC6,PLA7,PLB7,PLB9,PLC9,PLA10,PLB10,PLA12,  AAIC0370 
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API  B1?,PLRU,PLC  MtPLf  15fPLD15fPLB16fPLC16,PL016,PLei9,PLri9,PTRl,  A A 
BPTC 1,  PT A?,PTB2,P  TA 3,P TB3 , PTC  5 t PTO 5» PTB6 ,PTC6 t PTD6 » PTB8  f PTC8  t PF Al , AA 
CPFei,PFClfPFA2,PFP2tPEC2 tPEB4»PFC4#PED4,PFB5,PEC5,PEC5,PEE5, PEC6,  AA 
nPED6,PrP7,PEC7,PEn7,PECl l.PEnil.PSAltPSPl tPSCl ♦PSA2,PSB2tPSC2,PSP4AA 
FtPSC4,PSn4,PSB5,PSC5,PSD5.PSE5»PSB6,PSC6,PSD6,PSE6,PSB7,PSr.7,PSC7,AA 
FPSF7,PSC1UPS011,PRND22»  PL  021 , PL  E2 1 1 PTOIO  tPTE  10  t PR  1 026  A A 

CnMf'PN  /CdSTIN/  PPOFIT.QO.R,  AFAl  «AFBl  ,AFCl , AFOl  ,AFll  t AFA2f  AFR2,  AA 
lAFO?, AFA3, AFR3t AFG3tAFAA,AFBAtAFC6#AFn4fAFJA#AFA5. AFB5f AFC5f AFH5,  A A 
2AFA6f  ArP6. AFG6f  AFA7,AFC7,AF07,AFA8, AFB8, AFC8,AF08t AF18»AFA9,AFB9,  AA 
2AFC9, AFPq, AFJR, AFA  lO.AFB  10, AFC  10 , AFH 1 0 , AF Al I ,AFBll , AFRl 1 , AFA12,  A A 

AAFC12, AF012, AFA13, AFP  13, AFC  13 , AF A 14, AF B 14 , AFC14 , KFU2E , WAl , WF I , WF 1 , AA 
5WA2,W0  2,WF2,Kr,AIN,CAl,CEl,CFl,CA2,CE2,CF2,CA3,CE3,CF3,r,Al,Gei,r-Fl,AA 
6KLF6,KGT6,KSTAB,KAGATE,NCHAN,KSGATE,GA2  ,GB2 ,GK2 ,GA3  ,GB3 ,003 , G A4 , A A 
7GP4, GM4,GA5,GR5,GH5,KG,KC , KW  , K A, KP, I 6T YPE , ICT YPE  , I PRCST  A A 

rpMMPN  /Cn«;TIN/  AFFl  ,AFF1,AFG1,AFH1,AFC2,AFD2,AFE2,AFF2,AFC3,  AA 
lAr03, AFE3, AFF3, AFF4,AFF4,AFG4,AFH4,AFI4,AFD5, AFE5, AFF5, AFG5, AFC6,  A A 
2APD6, AFF6, A F F 6, A FP 7, A FE 8 , AF F 8 , AFG 8 , AFH8 , AF E9 , AFF9 , AFG9 , AFHQ , AF T9 , AA 
3AFniO, AFE 10, APF 1C, AFGIO, AFC  1 1 , AF 0 1 1 , AFE 1 1 , AFF 1 1 , AF B 12 , W B1 , WC 1 , MCI , AA 


4MP2,WC2,CR  1,CC l,Cni,CB2,CC2,C02,CB3,CC3,C03,GCl ,G0 1 ,GE 1 ,GC2 , G02 , A A 
5GE2, Cr?,GG2,GH2,GI 2,G J2 ,GC3 ,G03 ,GE3 ,GF3 ,GG3 ,GH3  ,GI 3 ,G J3,GK3, GL 3,  A A 
6GM3, GN3,GP  3,GC4,GD4,GE4,GF4,GG4,GH4,GI4,GJ4,GK4,GL4,GC5  ,Gn5,GE5,  A A 
7GF5, GGS,r FTTABl  1 1 ) ,PFTTAB ( 1 11  AA 

CPMMPN  /CSTPRV/  CBLC,CPMC,CCASE,CCFU,CCL,CCM,CC0P! ,CC0ML,CC0PM,  AA 

1 rcnNT,Gf.'»n,CEBFU,rFPPn,CETJ,CEXlN,CGFU,CGRO,  AA 

2 CGT,CCTnT,CIGN,CIRjrU,  CIRJRO,  C LF  ,C  LFL  , C LGG  , CL  I , Cl  M,  AA 

3 CLRFIUCI  RRO,CLRT,CLTC,CLTP,CM,r,MGG,CPP,CMTC,CMTP,  AA 

4 CMV,r.NnZ,CNR  JFU,  CNRJRO,  C P ,C  P AF  I , CP  ENG  , C FL  ,C  PLC  , AA 

5 rPMFGL,f.PMFGM,CPO  A,rPR  ,CPRC  , C PS,  C PSMGG  ,CPSN2  ,CPSR  AR,CPSSGG,  A A 

6 CPTnni  , CRAFT, CROEV,CPEG,CRENG,CRFTa,CRJC,CRMFGL,CRMFGH,CRQA,  AA 

7 CBTOPL  ,CSA,CSRFU,CSPRO,CSRT,CT,CTAF  I ,CTC  ,CTE  B ,C  TI  R J,  CT  JFU  , A A 

8 CTJl  F, rTJLFL,CTJPO,rTJT,  C TL ,CT M ,CTNR J ,CTP , CWH, CWHFU , CM  HR , AA 

9 CBOnC,CRPS,CPFU,PRnFPP, PRFUAF,PRRAF,CCLB,CCM8,CTCP,CLT  B,CNG7B,  A A 

A CPRB,CPLB,C IGNB,rSAB,PROFFX  AA 

NAMFL  1ST  /FPRPRT/  CR FNG,rRnE V ,CRF TO, CR TOOL ,CRMFGL , CRPFGM,G RG A,  AA 
I GRAFT, CPENG,CPTOnL,CPMFGL,CPMFGM,CPQA,CPAFT,CTAFI  AA 

TFMP1=AFAI*AFB1*AFC1*AF01*(AFE1*ASUPL0*4AFF14S**AFG1*Q0**AFHI  A A 

1 / 1000.  HAFT  UAFOl  AA 

TF9P?=AFA.2*AFB2*  1.  163*(AFC2*ASlIPLn**AF02*S**AFE2  4QC**AFF2/  1000.  ) A A 
1 ♦AFB2*AFG2  AA 

TFMP3=AFA3*AFB3*  1. 163*(AFC3*ASUPLO*4AFD3*S**AFF3*00»*AFF3/  1000. ) «A 
1 ♦AFP3*AFG3  AA 

TEMP4=AFA4*AFB4*AFC4*AF04*(AFE4*ASUPL0**AFF4*S44AFG4*Q0**AFH4»R  A A 
1 ♦♦AFI4/1000. )*AFJ4*AFC4  AA 

TFMP5=AFA5*AFB5*AFC5*( AF05*ASUPLO*4AFF5*S**AFF5»004*AFG5/1000. ) A A 
1 ♦AFC5*AFH5  AA 

TFMP6*AFA6*AFfl6*  1.  163* f AFC 6*A SUPL0**AF064S**AFE6 •OC** AFF6Z 1000. ) A A 
1 ♦AFP6*AFG6  AA 

TFMP7*AFA7*AFP7*TEMP5*AFC7*AF07  AA 

TEMP8*AFA14*( 1. ♦PROFIT)* I TEMP1*TE MP4+TEMP5+TFMP6+T EMF7*T EMP2  AA 

1 ♦TEMP3)*AFB14*AFC  14  AA 

IF  ( INOI  .EC.  0)  RETURN  AA 

CRENG«TEMP1  AA 

CP0EV»TEMP2  AA 

CPFTP*TFMP3  AA 

CRT00L*TEHP4  AA 


IG0380 
IC03O0 
IC04OO 
I CO  4 10 
IC0420 
IC0430 
TC0440 
1C0450 
IC0460 
IC0470 
r C0480 
TC0490 
IC0500 
IC0510 
IC0520 
IC0530 
IC0540 
IC0550 
100560 
1^0570 
IC05B0 
tCOSoO 
IC0600 
100610 
I CO  6 20 
IC0630 
f G0640 
IC0650 
IC0660 
TC0670 
IC0680 
tC06O0 
I CO  7 00 
IC0710 
tC0720 
IC0730 
IC0740 
IC0750 
I CO  760 
IC0770 
IC0780 
ir07P0 
ICO  BOO 
ICOBIO 
IC0P20 
IC0330 
100840 
I CO 8 50 
IC0B60 
IC0870 
IC0880 
TC0fl90 

icopno 

IC0910 

IC0920 


o u I- 


ic 


1 1 


12 

13 


15 


SUR^nilTTNF  GUT.nST 


r.lJICAMCE  SYSTEM  COST 


RFAl  NOZWT.MP 
COMMON  /COMVLS/  WTANK 

1 R5,Yl»WMnZ,KFM,MATTK 

2 FrjFT,  WT,  WF,  FMAXtStT^ 

3 WWHfWTCf WTP fWGGtWSC f 
COMMON  /CnSTIN/  PR  I 

IPP IA6f  PRl A7|PRI A8.PR 1 
2PRlRl2fPRIF12»PP,lA13, 
3PBIF  16.PR IAl7tPR IF  17, 
APPI  A?l,PR  rA22,PR  IP22, 
5PPI 625, PR  I A26,PR  IP26, 
6PRN A5,PRNA6, PRNA7,PRN 
7PRNA12, PRNB12,PRNF12, 
8PRNA  17, PRNAl e,PRNR 18, 
qPRN621,PRNA22,PRNB22, 
API  RR,PLAQ,PLA  ll.PlBll 
PPLB15,PLF15,PLF15,PLA 
CPLB20,PLA21,PLB2  1,PLC 
0PTF6,PTA7,PTB7,PTC7,P 
EPFA3,PFP3,PEAA,PEFA,P 
FPEA10,PEB10,PEC10,PEA 
GPSA5,PSF5,PSA6,PSF6,P 
HPSA11,PSB11,PSE1 1,CFT 
COMMON  /CnSTlN/  PR  I 
1PRIC5,PR IB9,PR1CS,PR1 
2PRIF11,PR1C12,PR 1012, 
3PR1B15,PRIC15,PR 1015, 


,VFX1N,VRF0 ,GGW,HPPUMP,HTFUFL ,WCCMM,VCCMI , 
,A,nCnM,WMC,VBI ,0THRT,RN0ZI ,NCZWT,Mp,rASFM, 
,ME7TJ,ZXNB ,o,wm,fc,ppfak,bsp,noet ,oa,wcs, 
WLV,VGT,HO,WP,OP,WN,METAL,NCnNFG 
A1,PR1A2,PRJC,PRI A3,PR1B3,PR1 AA,PRIEA,PRI A5, 
B8,PRIA9,PRIG9,PR1 A10,PRIA11,PRIG11, PRI A12, 
PR1E13,PRI A1A,PRIE14,PRI A15 ,PR1E15,PRI A16, 
PRI A18,PRIB18,PRIE18,PRI A19 ,PP!E19 ,PRI A20, 

PR lA 2 3, PRI B23f PRI C23 , PR  I A24 , PR  I C 24 , PR  I A25, 

PR IC26,PRNAI,PRNA2,PRNA3,PRNB3,PRNA4,PRNF4, 
AP,PRNP8,PRNA9,PRNG9, PRNAIO , PRN A1 1 ,PRNG11  , 
PRNA13,PRNE  13  , PRN  A 14,PRNE  14  , P RA  A1 5 , PRN  Alf,  , 
PRNA19,PRNB19,PRNC19,PRNA20,PRKC20, PRNA21 , 
PRNC22,PLPC ,PLA1 ,PLA3 ,PLB3 ,PLA4 ,PLA6, PLAfl, 
,PLAl3,PLB13,PLC13,PL013,PLA14,PLni4, PLA15, 
16,PLE16,PLA17,PLA18,PLR18,PLC18,PLA19,PLA20 
21,PTA1,PT01 ,PTA4,PTB4,PTA5,PTP5,PTE5, PTA6, 
TJC ,PTA8,PT08,PTA9,PTB9,PTA10  ,FTP10,PTC10 , 
FA5,PEF5»PEA6,  PE  B6  , PEE5  ,P  EAT  , PFE7 , PE  A8  , PF  A9, 
ll,PEBll,PEEll,PEBC,PSPC,PSA3 ,PSB3,PSA4,PSF4 
SG6,PSA7,PSF7,PSA8, PSA9,PSA10  ,PSP10,PSri0 , 
,PFT,CFCASE  ,PFCASE,CFC,PFC,CFM,PFM,I YEAR 
Bl, PRICl,PRlB2,PRtC2,PRIB4, PR IC4, PRI 04, PR IB5 
09,PRIE9,PRlFq,PRIBll ,PRIC11 ,PRI011,PPIE1 1, 
PRIB13,PRIC 13,PRI013,PRI B14,PRIC14,PRI014, 


rPMFGL=TEMP5 
C,RMFGM=TFMPf 
rP0A=TFMP7 
CRAF  I = TFMPa 

PRR AF=( CP AFI- AFP  14* AFC  14  )*PROF IT/( l.+PROFI T) 

rPFMG=AFA8*AFB8*AFCfl*AFP8*(AFE8*A**AFF8*S**AFG8*( (0C*1. •♦•AEnP 
1 -Qn**AFH8)/1000.)+AFIP*AF08 

CPTOnL  = AF  A<;*AFRP*AFCo*AFnq*  (AFE9*A**AFF9*S**AFG9*(  (C0*1.  ) **AFH9 
I -Qn**AFH9»*R**AFiq/10C0. )♦AFJ9♦AFC9 
CPMFGL= AFA10*AFB  10* AFC  10* ( AFO 1 0*A**AFF 10*S** AF FIO* ( ( CO* 1 . ) ♦ ♦ AFG 10 
1 -On**AFGlC )/ 1000.  )+AFC10*AFHlC 

rPMFGM= AFAl  l*AFB  1 1* 1 . 1 6 3* ( 7 FC 1 1* A** AFO 1 1 AF FI 1 • ( (00*1. )**AFF1  1 
1 -On**AFFli)/inOO.  )*AFB11*AFG11 
CPOA=AF A12*AFP12*rPMFGl *400 12*AF012 

rpAFI  = AFA13*(  l.*PROriT»*(r,PENG*CPT00L*CPMFGL*CPMFGM*CPQA) 

1 ♦AFB13*AFC13 

PPFUAF= ( rPAFI-AFB  13*AFC  13)*PR0FI T / ( 1 . ♦PROF  I T ) 

CTArf=CPAFl4CRAFI 

IF  (IPPCST  .NF.  0)  WRITE  I6,ERRPRT) 

RFTUPN 

ENO 


AA 100930 
AA  IC0940 
AAICC950 
AAICOOjO 
AAIC0970 
AAIC09R0 
AAIC09P0 
AA  ICIOOO 
AA  ICIOIO 
AA  1C1020 
AAI C1030 
AAIC1040 
AA IC  10  50 
AArci060 
AAIC1070 
AAIClOaO 
AAIC1090 
AAICllOO 

AAI  Cl  no 

AAIC1120 

AAIC1130 


PR  IB  16,  PR  IC  16,  PRI  016,  PR  I BIT,  PR  IC  17  , PR  1 017  , 


GU  CT  0010 
GUC00020 

Gucnno’O 

GU  coo  0 40 
GUCOOOSO 
Gucn0060 
GU  1-00070 
nucnooBO 
GUCOOOPO 
Gucno 100 
Gucnoi  10 
GUC00120 
GUCOOl 30 
GU 000 140 
GUCOOl 50 
GIICOO  160 
GU COO  170 
Gucnoiso 
G(/cnoioo 

GU  000200 

,r,ucno2io 

GU CO 02 20 
GUO  no  2 30 
GUCn0240 
,GUC00250 
GU0n0260 
GUC00270 
,GUCn02P0 
GU0a02O0 
GUC00300 
GUCn03l0 


HA  291 


ik 


f, 

1 


^PPIF  17,  PRinStPR  IDia.PR  IB  19,PR  IC  IS,  PRI  D19,PRI  B2<H  PRNBl  , PRNC  1 , PR  ^P^GU  r.n032  0 

5,  PRMf  2,  PRMRii,  PRNr9,  PR  ^inA  , PRNR  5 ,PR  NC  5 , PRNB9  , PRNC9  , PR  ^C9 , PRNE9,PRNF9r.UC90  3?0 

6, PRNB  I l.PRNC  ll,  PRNOll,  PRNFll,  PRNFll,PRNC12  ,PRND12  , FPNB 1 3 , PRNCl  3 , GU 00934,0 

7PRNn  13,  PRNB  lA,PRNr  14, , PR  NO  H , PRNR 1 5 , PRNCl  5 , PRNOl  5 , PRNRl  6 , P«NC16  , GUrO03'>0 
8PP^'^1  6,PPN9l7,PRNr  17 , PRNO  I 7 ,PRNE  I 7,  PRNB2 0 , PL Bl  ,PLC  I ,PLA2  ,PLB2,  PL  RAGlJCOO  360 
9,  PI  C4,PL  A'j,PLB5,PLB6,PLC  6,PLA  7 ,P  LB  7,  PLB9,  PLC9,  PL  AlO  , PLB 10  , PL  A1 2 , Gl)  COO  370 
API  B12,PLR14.,PLC1A,plC  15,PLDl5,PLBl6,PLC16,PLDl6,PLPl9,PLCl9,PTei,  GU  000  380 
PPTri,PT A?,PTR2,PTA3,PTB3,PTC5,PT05,PTB6,PTC6,PTD6, PTR8 , PTC8 , PF A 1 , GO COO  390 
CPFB1,PFC1,  PFA2,PFP?,PFC2,PFB6,PFC4,,PFD6,PEB5,PEC5,PF05,  PFE5,  PFC6,  GU 000600 
CPFD6,oEP7,PFC7,PED7,FFCll,PFDll,PSAl ,PSB1 ,PSCl , PSA2 ,FSB2,PSC2, P5P4GUC00610 
F,PSr6,PSD6,PSP5,PSC5,PSD‘=,PSE5,PSB6,PSC6,PSD6,PSF6  ,PSR7,PSC7,PS07,GOC00620 
FP‘:F7,PSCll,PSni  1,PRNP22,PLD21,PLE21,PTD10,PTE10,PR  1026  GO  000630 

COMMON  /COSTIN/  profit, 00, R, AFAl, AFBl, AFCl ,AF0l,AFIl,AFA2,AFB2,  GUC00660 
IAFG2,  AFA3,  AFB3,  AFG3,  AFA6,AFB6,AFC6,AFD6,AFJ6,AF  A5,  AF  B5  , AFC*>  , AFH5  , GU  COO  650 
2AFfl6, AFP6, AFG6, AFA7, AFC7,AF07,AFA8,AFfl8,AFC8,AFD8, AFIR, AFA9, AFP9,  GUC00660 
3AFC9,  AFC9,  AFJ9,  AF  A 10,  AFR  1 0,  AFC  10  , AFH  10  , AF  A 1 1 ,AFB1 1 , AFG 1 1 , AF  A 12  , GI)C00670 
6AFCl?,AFni?,AFA13,AFe  13 , AFC  I 3, AF A16 , AF B16 , AFC16 , KFUZE  ,W A I , WE  1 , WF 1 , GUC006fl0 
5WA2,WC2,WE2,KGA !N,CA  1,CE1,CF1,CA2,CF2,CF2,CA3,CE3,CF3  ,GA l,GBl,GF  1 ,GUCn069n 
tKLF6,KGT6,K  STAR,KAGATF ,NCHAN,KSGATE  ,G A2 , GB2 , GK2 , G A3 , GB3 , GQ3 , GA6,  GUCOOSOO 
7GB6, GM6,GA5, GB5,GH5,KG,KC,KW,KA,KP,IGTYPF ,1CTYPF, I PRCST  aJC00510 

COMMON  /COSTIN/  AFFl,AFFl,AFGl  ,AFH1,AFC2,AF02,AFE2,AFF2,AFC3,  0,0000520 
lAFO?, AFF3, AFF3, AFF 6, A FF6, AFG6 , AFH6 , AF I 6 , AFD5 , AFE 5 , AFF5 , AFG5 , AFC6,  GU COO  5 30 
2AF06, ArE6,AFF6, AFR  7, A FE 8 , AF F8 , AFG8 , AFH8 ,AFE9 ,AFF9 , AFG9 , AFH9, AF 19,  GU COO  560 
3AFD10, AFFIO, AFF 10,AFG1C, AFCll ,AFDll,AFFll ,AFF1 I ,AFRl2,WBl,WCl,wni ,GUC00550 
6WP2, WC2  ,CB  l,CC  l,CDl,CP2,CC2 ,CD2 , CB3 ,CC  3 ,C03 ,GCl  ,G0  I , GE I , GC 2, 00  2,  GUC0n560 
50  F2,  CF2,GG2,GH2,G1  2, G J 2,  GC  3 ,G03,GE 3 ,GF  3,GG3  ,GH3  ,GI  3 ,G  J3  ,GK3,GL  3,  r/JCO0570 

6GM3, GN3,CP3,GC6, CD 6, GE6 , GF6 ,GG6 , GH6 ,GI 6 ,G J6,G K6 ,GL6  ,GC5 , 005 , GE5 , GUC00  5BO 


7CF5,GG5,CFTTAP( 1 1) , PF TTA B ( I 1 ) 

common  /CSTPRV/  CBLC,CBMC,CCASE,CCFU,CCL,CCM,CCCMI ,CCCML,CCOMM, 

1 CCONT, CCRD, CFBFU,CFBRP,CFTJ,CEXI N,CGFU,CGRD, 

2 CCT, CGT0T,CIGN,CIRJFU,  CIRJRO,  CLF,CLFL,CLGG ,CL I ,CLM, 

3 CLRFU,CLPRD,CLRT,CLTC,CLTP,CM,CMGG, CMM,CMTC,CMTP, 

6 CMV, CNn7,CNRJFU,  CNRJRO,  C P ,C PAF I , CPENG  , CPL  ,CPLC , 

5 CPMFGL ,CPMFGM,CPOA,CPR ,CPRC,CPS,CPSMGG,CPSN2 ,CPSR AM,CPSSGG, 

6 CPTOOL  ,CRAFI  ,CRnFV,CREG,CRENG,CRFTO,CRJC,CRMFGL,CR»'FGM,  CRQA, 

7 CP  tool  ,CSA,CSRFU,CSPR0,CSRT,CT,CTAFI  ,CTC,CTEB,CTIRJ,CTJFU, 

8 CTJL  F,  CTJLFL  ,CT  JPD,CTJT,  C TL  ,CTM,CTNR  J ,C  TP  ,CV,H  ,CWHFU  , CW  HP , 

9 CPOnC, CRPS,CPFU,PR0FPR ,PRFUAF,PRRAF ,CCLB,CCMfl,CTCe,CLI8,CNCZP, 

A CPPR,CPLB,C1GNB,CSAB,PR0FFX 

namelist  /ERRPRT/  CGFUP  ,CGFUA  ,CGFUX,CGFUI  ,CGRn,CGTCT 


GU COO  590 
GU CO 0600 
GUC006  10 
GU  C0062  0 
GUCn0630 
GUC00660 
GUC'^0  6 50 
GUC00660 
GUC00670 
GUC00680 
r,(jC'^0690 
GU COO  700 
Gucno7io 


xnET=NDET 
XSTAP=KST AB 
XAGATE=KAGATE 
Xr.HANsNCHAN 
XSGATE=KSGATE 
XKL  E6  = l. 

XKGT6=0. 

C FC  IS  ASSUMEO  IN  GHZ 

IF  (FC  .LE.  6.J  GO  TO  lOCC 
XKLE6=0. 

XKGT6*1  . 

ICCO  IF  I IGTYPF  .EO.  3 ) GO  TO  1 
GO  TO  ( 2,3,6,51,  IGTYPE 
C PASSIVF/SFMI-ACTIVE  RADAR  SEEKER 

2 CX*Gr2*XKLE6*FC**G02<-GE2*XKGT6*FC**GF2^GG2*XSTAB^GH2*XAGATE*^GI2 


0,110.00  7 20 
GUC"0  7 30 
GU COO 7 60 
GU COO  750 
GU CO 0760 
GUC00770 
GUC007aO 
GUCn0790 
GU CO 08 00 
GurnoBio 
Gl)C00820 
r,UC008  30 
GUC00860 
GUCO0850 
GUC00860 


ii 


4 


HA  292 


C~t  ~t  <-> 


ik 


1 *XC»-AM*XSCATF+r,J?*XSGATF 
FrFUP=Cfi2*(  1 . l6*GP2*r X/350.*GK2> 

GC  TO  I 

ACTIVFRAOAR  (MaGNFTRON) 

'•x  = rr  3*XKL  F6*FC**Cn3>GF  3*XKGT6*FC**GF3«-GG3*XSTAB*GH3*XACATE»GI  3 
1 *xr.HAM*XSGATF<-r.J?*XSGATF 

Cf  FUA=CA?*  ( 1. 566*GR3/'3  50,*(CX*GK3fGL3*PPEAK**GH3<-GA3*Fr  ••r,P3 
1 tPPFAK  )+G0  3 ) 

GP  TP  1 

X RAND 

CX  = GC  A*XKLE6*FC**GnA*GFA*XKGT6*FC**GF<**GG4*XSTAR4-GHA*XAGATF*GI4 
1 *XCMAM*XSGATF+GJA*XSGATE 


crFux=rAA*( 

l.E 

GP 

TP  1 

r 

PASS  IVE 

IR 

5 

Cr.FUI  = GA5*( 

I.l 

1 ♦GGSMGH5) 

1 

IF 

( IGTVP'^ 

.Fq, 

ir 

( IGTYPE 

.EO, 

IF 

I IGTYPF 

.EO 

IF 

( IGTYPF 

.CO 

SEE  KFR 


CGFU=rGFUP 
r.GFU=CGFUA 
CGFU=CGFL'X 
CGFU^CGFUI 

rGRn=GAl*<  GP  l*(  EXP  ( GC  l+Gni*CGFU*GE  I ) )^GFl » 
Cr.TnT=CCPC*CGFU 

WRITE  (6,ERRPRTJ 


1 ) 
2) 
3) 
A) 


IF  I IPPCST 

PFTUPN 

FNn 


.NF.  0) 


SURPOUT  INE  C Ten  ST 


cnE'TPPLS  r.nsT 


OJCnoSTO 
GuenORRO 
GuenaRQO 
GlicnoQno 
ojcnoRin 
GU  €009  20 
GU COOP 30 
GIJFOOPAO 
GU CO OP SO 
GUCn0960 
QJCOOPTO 
fiornopflo 
GUCOOPPO 
Gi  I CO  1 000 
Gucnioio 
GUC'T1020 
GO  n 1 030 
G«iroiOAO 
Gucnioso 
GurniOAO 

GUC01070 
GUCniORO 
GOCOIOPO 
Gijrni  100 
GUC'^l  110 
Giirni  120 


CPTE6f PTA7tPTB7f  PTC  7. PT JC t P TAB t PTOR , PTAP  ,PTBP , PT A 10  , FT B 10, PTC  10 , 
EPFA3,PFB3,PEAA,PEEA,PEA5,PEF5,PEA6,PEB6,PEE6,PEA7,PEE7,PFA8,PF AP, 
FPEA10,PEP10,PFC  lO.PEAll ,PEBll,PEEll,PEBC,PSPC,PSA3 ,PSB3, PSAA.PSFA 
GPSA5,PSF5,PSA6,PSF6,PSG6,PSA7,PSF  7, PSA 8 , PSAP  , PS AlO  , PS  BIO  , PSC lO  , 


CTCflOOlO 

CT  cnoo20 
r.Trnoo30 
CTcnooAO 
CTCnooSO 
CTC0006O 
CTC 00070 

CT coon  00 

rr  C'^^ppo 

CTGPOIOO 
CT<-(ioi  m 
rTcooi20 
CTCPQ  130 
crrnoiAO 
GTcomso 
CTCnOlGO 
CTC00170 
GT COO  180 
CTCPOlPO 
CTC00200 
,rTcno2io 
C^CO0220 
CTC00230 
CTC002A0 
,rTcn0250 
CTCno260 


HA  293 


HPSAl  1,  P 

SPl  1, 

PSFl 

1,CFT 

,P 

F 

T,CFC ASF 

,PFCASE,CF 

COMMON 

/COST 

IN/ 

PR  1 

PI 

, 

PRIC 1, PR 

1R2 

,PRIC2, 

IPP IC5,P 

P IP9, 

PRIC 

«,PRI 

05 

, 

PRIE9,PR 

1F9 

,PRIB11 

2PRI Fl  1, 

PP  IC  1 

2, PR 

1012, 

PP 

I 

R13,PR1C 

13, 

PRID13, 

3PPI P 15, 

PR  ICl 

5, PR 

ID  15, 

PR 

1 

R16,PR1C 

16, 

PRI016, 

APPIF17, 

PP  IC  1 

8, PR 

1018, 

PR 

I 

B19,PRIC 

15, 

PRI D19, 

5,PRMC.2, 

PRNBA 

,PRN 

CA,PP 

NOA 

,PRNB5,PRNC 

5,PRNB9 

CTCO0?70 
,rTCno?flO 
CT cno?90 
CTCnOBOO 
r.TCn0310 


6tPRNPllf PRNC 11, PRNnil,PRNFll,PRNFll,PRNCl2,PRNni2,PPNRl3,PPNCl 3,  rTrn0340 
7PRNni3,PRNBl<*,PRNCl^,PRNniH,PRNBl5,PRNCl5,PRNDl5,PPKBl6,PRNCl6,  CTCn0  3'>0 
PPRNnift, PRNR17,PRNC17,PPN017,PRNF17,PRNB20,PLBI ,PLC I , PLA2 , PL R2, P L PACT Cn0360 
'’,PLCA,PIA5,PLB5,PIB6,PLC  6,P  L A 7,PLB  7,  PLB9  tPLCP  ,PLA10  , PLBl  0 , PL  Al  2 , CTrno3  70 
APloi2,PLPlA,PLClA,PLC  15 , P LD  1 5,  PLB 1 6,  PLCl 6,  PLni6  ,P LB  19  , PLC  19 , PT  fl  1 , CTn0380 
RPTC  1,  PTfl2,  '>TB2,P  TA3,t>TB3,PTC5,PTD5f  PTB6,PTC6  ,PTn6  , PT  68  , PTCB  , PE  A 1 , CT  COO  390 
CPFBl ,PFC1 ,PFA2,PFB2,PFC2,PEBA,PECA,PEDA,PFB5,PEC5,PEC5,PFF5,PEC6,  CTCOOAOO 
rPEOft,  PFP7,PFC7,PFn7,PFCl  IfPEDlUPSAl  ,PSBl  ,PSCl  ,PSA2  ,PSB2,  P5C2,  PSPACTCOOAIO 
F,PSCA,PSPA,PSB5,PSC5,PSn5,PSE5,PSB6,PSC6,PSn6, PSE6  ,PSB7,PSC7, PSC7,CTCO0A2O 
FPSF7,  P SC  1 1,P soil, PRNn22, PLD21 ,PLE21 »PT010,PTE10,PR 1025  CtcoOABO 

COMMON  /rnsTIN/  profit, on, R,AFAl,AFBl,AFCl,AFni,AFIl,AFA2,AFP2,  CTCOOAAO 
I AEG?, AFA3, AEB3, AFG3,AFAA,AERA,AFCA,AFDA,AFJA, AFA5 , AFB5, AFC5, AFH5,  CT COO A 50 
2AFA5, AFPf , AFG6, A FA  7, A EC  7 , A F07 , AF A 8 , AFB 8 , AFC8 , AFD8 , AF I R , AF A9 , AF B9 , CTCn0A60 
3AFC9,  AFCP,  AFJ  9,  A FA  10,  AFB  10  , AF  C 10  , AFH 10  , AF  A 1 1 , AF  B1 1 ,AFG1 1 , AFA12,  CTr,00A70 

AAFC12,AFD12, AFA  13, AFB 13, AFC  13 , AF A1 A , AFB lA , AFC  1 A , KF UZF , W A 1 , WE  1 , WF 1 , CT COOARO 
5WA2,Wn2,WE2,KGAIN,CAl,CEl,CFl,CA2,CE2,CF2,CA3,CE3,CF3,GAl,GBl,GFl,CTCn0A90 
6t<l  Ff,,KGT6,KSTAB,KAGATE,NCHAN,KSGATE  ,GA2  ,GB2,GK2  ,GA3  ,GR3  ,G03  ,GAA  , CTCOOSOO 
7GPA,  CMA,GA5,GR5,GH5,KG  ,KC ,KW,KA, KP, I GTYPE , ICT YPE , I PRCST  CT COO 510 

COMMON  /COSTIN/  AFE  1 , A E F I , AFGl , AFH 1 , AFC2 , AF 02 , AF E2 , AEF2 , AFC  3 , CTC00520 

I AFn3, AFE3, AFE3, AFE A, AFFA , AEGA  ,AEHA ,AF I A , AFD5 , AFF5 , AFF5 , AFG5 , AFC5,  CTC00  5 30 
2AF06, AFF6, AFF6, AFP  7, A FF8 , AFF8 , AFG8 , AFH8 , AFF9 , AFF9 , AFG9, AFH9 , AF ! 9 , CT 000  540 
3AF0  10,AFE 10,AFF 10, AFGl 0, AFC  1 1 , AFD 1 1 , AFEl 1 , AFF 1 1 , AF B 12 ,WB I , WCl , WCl , CT C00550 
AWP2, WC2,CRl,CCl,C01,CR2,CC2,Cn2,CB3,CC3,C03 ,GC1 ,00 1 ,GF 1 ,GC2 , GOZ , CT 000560 
5CE2, CF?,GG2,GH2,GI 2 ,G J2 ,GC3 ,GD3, GE3 ,GF3 ,GG3 ,GH3  ,G I 3 ,G J3 , GK3, GL 3,  CTC00570 

6GM3, rN3,GP3, GC A , GO  A, GE A ,GF A ,GG A,GH A ,GI  A ,G JA , GKA ,GLA,GC5 ,Gn5,GF5,  CTCOQSRO 
7GF5, GG5,r FTTABI  1 1 ) ,PF TTAB ( 1 1 ) CTCn0590 

COMMON  /CSTPRV/  C PL  C , CBMC  ,CC  A SE  ,CCFU  ,CC  L ,CC  ►»  ,CC  OMl  , CCOML  , orrMM  , CTC"0600 

1 rrONT,CCR0,CFBFU,CEBP0,CETJ,CFXIN,CGFU,CGR0,  r.TC00610 

2 rGT,Cr,TOT,C  IGN,CIRJFU,  CIRJRD,  CLF  ,CLFL  ,C  LGG , CL  T , CL  M,  CTC0n620 

3 CLRFU,CLRRD,CLRT,CLTC,CLTP,CM,CHGG,  C'»P,CPTC,CMTP,  rTCO0630 

A rMV,CNnZ,CNR  JFU,  CNRJRO,  C P,  CP  AFl  , CP  ENG  ,r  P L , CPLC  , CTC'^n6A0 

5 CPMFGL,CPMFGM,CPOA,CPR  ,CPRC  , CPS,C  PSHGG  ,C  PSN2  , CPSR  AP  ,CPSSGr,,  r.Tcn0650 

6 rPTOOL,CRAFI  ,CPnFV,CRFG,CRENG,CRFTQ,CR  JC,CRMFGL,CRMFGM,rPO  A,  CTC,  00660 

7 CRTOOL ,CSA,CSRFU,CSPRO,CSRT ,CT,CTAF1 ,CTC ,CTEB ,CT I R J, CT JRJ  , ttcO0570 

8 r.TJLF,CTJLFL,CTJRD,CTJT,  C TL  ,CT  H,CTNR  J ,CT  P , CWH,  CWHFU,  CWHR,  CTCnn6Pn 

9 CPOOC,CRPS,CPFU,PROFPR , PRFUAF ,PRR AF ,CCLB , CCMB ,CTC B ,C LI B,CNrZP,  CTCnoeoO 

A CPRB,CPLB,C  IGNB,CSAB,PROFEX  CTCOOTOO 

namelist  /fppprt/  ccfu,ccrd,ccont  r,Tcno7in 

XGAIN=KGAIN  r.Troo7?n 

GC  TO  (2,  3),ICTYPE  CTCn0730 

WITH  AUTOPILOT  CTC007A0 

2 CCFU=CA2*(  1. 16*(  CB2*WCS+CC2*0A-CD2»*CE2/198.«-CF2)  CTCn0750 

GO  TO  1 CT 000760 

WITHOUT  AUTOPILOT  CTCO0770 

3 CrFU=CA3*I  1.  16*  (CB3*WCS*CC3*0A+CD31*CE3/198.«-CF3  ) CTC00780 

1 CCR0=CA1*(  (CB1K;C1*QAKDI*XGAIN)*CEI*CF1)  CTC00790 

A CCONT»CCRD*CCFU  CTCOOaOO 

IF  (IPRCST  .NE.  Cl  WRITE  (5,ERRPRT)  CTC00310 


HA  29A 


P FTIIRN 
FMT 


crnoRPO 

rrcnna-io 


SURPOUT INF  WHCnST 


WftPFFAD  C.nST 


WHcnon 10 
WHrnoo?o 

WHC00030 
WHcnooAO 

RFflL  Nr7WT,MP  WHCOOORO 

Cr-^MnN  /rOMVLS/  l<TANKtVFXINiVREOfGGWfHPPUMP,MTFUFL.WCrNM,VCrMI,  WHCOOOAO 

1 P5,  Y I,  WNnZ,KFM,  »'ATTK  , A,nCOM,WMC  ,VBI  ,DTHRT,RNOZI  ,NCZWT,  Mp,  CASFM,  WHCriOOTO 

2 FNFT,WT,WF,FMAX, S, TA.ME  TT J t ZXNB tO , WM ,FC  t PPE AK , BS P i KDET , 0 A.MCS t WHCHOOBO 

3 V'WH.WTr  , WTP  ,WGG  .WSC  ,WLV  ,VG  T , WOt  WP  tDP  ,WN  ,MFT  AL,  NCCKFG  WMroOOQO 

COMMON  /rnSTIN/  PP IAl,PRlA2fPRJCtPRlA3fPRIB3tPRIAAtPRlE4,PRlA5,  WMCnOlOO 

IPRI A6,PPIA7fPRIAetPR IB8fPRIA9,PRIG9,PRIAlO,PRIAll,PRIGlltPRIAl2t  WHCOOllO 
2PPIP12, PP IE12fPR  lA 13,PR IF  l3tPRIA 14,PRI E14f PRl Al5f PRIE15 ,PRI A16,  WHC0ni20 
3PPIF16,  PRI  A17fPR  IF17,PR1A18,PRIB18,PRIF18,PRI  A19,PPIF19,PRI  A20,  WhC'10  130 
APR  IA2  1,  PRI  A?2tPR  IP22»  PRI  A23f  PRIB23tPRIC23f  PRIA24f  PBIC2<»,PRT  A25,  WWCHO  140 
5PRIP28tPR I AZtfPR IP26,PRIC26,PRNA1,PRNA2,PRNA3  fPRNB3fPRNA4, PRNE4,  WHCOOISO 
6opNA5,PRNA6f  PRNA7,PRNA8f  PRNB8tPRNA9tPRNG9f  PRNAIO  fPPNAll  ,PRNGll  t WHC'^0160 

7PPNAI2. PPNB12,PRNE  12,PRNA13,PRNE I 3, PRN Al 4 ,PRNEl 4 .PR N A IS , PRNA 16 , WMC00170 

8PPNA17. PRN  A1 8.PRNB la.PRNA 19 . PRNB I 9 , PRNCl 9. PRNA2  0. PPNC20 ,PRN A2l . WHCOO  180 
9PPNP2 1. PPM A?2,PRNB22,PRNC22,PLPC ,PLA 1 ,PLA3 . PLB3 ,PL A4 , PLA6 , PL AP , WHCno  l^O 

APLR8.“L  A9,PL  All,PLPll,PLA13.PLRl3.PLCl3.PLDl3,PLA14,PLni4,PLA15,  WHC'^OZOO 
PPl niF.Pl E 15, PI F 15, PL A 16, PLE 1 6, PL  A 1 7,PL A 18 , PLBIR , PLC 18 , PLAl 9, PL A20 , WHC002 10 
CPLP20,PLA21,PLR2  l,PLC2l,PTAl,PT0l  ,PTA4  ,PTB4  ,PTA5  ,PTB5  , PTF5  , PT  A6  , VIHCI10220 
CPTE6,PT  A7,PTR7,PTr  7,PTJC  , PTA  8,  PTt)  8 , PTA9  ,PTB9  ,PTA  10  , PTB  10  , PTC  10  , WHCO023  0 

EPFA3,PFe3,PFA4,PFF4,PEA5  ,PEF5,PEA6,PEB6,PEE6,PEA7,PEE7,PFA8, PF A9,  Wuc00  240 
FPFAln,PFP10,PFClC,PFAll,PEPll,PEEll ,PE BC , P SPC , PSA3 , PS R3 , PS AA ,PS E4 ,W PCOn 250 
GPS  A 5,  PSF5,PS  A6,  PSF6,PSG6,PSA7,PSr7,PSA8  ,PSA9,PSA10,FSB10,PSC10,  WMr.n0  260 

HPSA  ll.PSBl  1,PSE 1 1 .CPT.PFT.CFC ASF .PFCASE ,CFC,PFC ,CFP, FFM, i VFAR  WPCno270 

COMMON  /COST  IN/  PRIPl.PRICl ,PRIB2,PRIC2,PRIB4,PRIC4,PRin4, PR  I P5,WHCn02P0 
IPPICS.PP IBO,pr IC9,PR in9,PRIE9,PRIFg,PPIBll .PRlCll , PPI Dl 1 ,PRIE1  1,  WHCOOPoo 
2PRI FI  1, PP IC  12,PR IP12,PR IB13 ,PR!C 13,PRID13,PRI B14,PR IC 14, PR  1014,  WUC00300 

3PPI B15, PP IC15,PR  IC  15,PP IB15,PRIC16,PRI 016, PRI BIT ,PPTC17 ,PR 1017 , WHCOn  310 
APR  I F 17,PP ICie.PR  I018,PRIB19,PR 1C  19 , PR  I 0 1 9, PRI B24 , PRN PI , PRNCl , PR NB2WHr 00X20 

5, PP.NC2,  PRNB4,  PRNC4,  PRN04,PRNB5  ,PRNC  5 , PR  NB9  , PRNC9  , PBNC9  , PPN  F9  , PRNFyWHC'^OO  30 

6, PRNP11,PRNC11, PRNOll.PRNFll, PRNF 1 1 ,PRNC 12 , PR N012, PRNB 1 3, PRNCl 3 , WwCOOBAO 

7PPN013, PPNB  lA.PRNC  14 , PRNO 14 , PRNB 1 5 , PRNC 1 5 , PRNOl 5 , PRNB16 , PRNC 16 , WH COO  3 50 
8PRNni6, PRNB 17, PRNC 17, PRNO 17, PRNF I 7, PRNB2  0,PLBl ,PLC 1 ,PLA2,PLB2, PLP4WHCO0360 
9,PLC4,PLA5,PLB5,PLB6,PLC6,PLA7,PLB7,PIR9,PLC9,PI A10,PLR10,PLA12,  WHC"037n 
APLR12,PLR14,PLC14,PLC15,PLD15,PLB16,PLC16,PL016,PLP19,PLC19,PTB1,  MHCn03R0 
RPTC  l,PTA?,OTfl2,PTA3,PTR3  ,P  TC.  5 ,PTO  5 , PTB6  ,PTC6  ,PTD6  , PTBR  , PTCB  , PF  A 1 , WHC00  390 
CPER1,PFC1,PEA2,PFB2,PEC2,PFB4,PEC4,PE0  4,PEB5,PFC5,PFC5,  PFE5,PFC6,  WHCO''400 
rPFC6,PEB7,PEC7,PED7,PECl IfPEOll.PSAl.PSBl ,PSCl ,PSA2,PSB2, PSC2,  PSe4WHC00A10 
E,PSC4,PS04,PS85,PSC5,PSD5,PSE5,PSB6,PSC6,PSD6,PSE6 , PSB7 , PSC7 , PS C7 , W«C00420 
FPSET.PSCl  l,PSnil,PRND22, PLD21 ,PLE21 ,PTD10,PTE10 ,PRin26  WHCn04  30 

COMMON  /COSTIN/  PROFIT, 00, R, AFAl ,AFB1 ,AFCl  ,AFOl ,AFI1 ,AFA2,AFR2,  WHCn0440 
1AFG2,  AFA3,  AFB3,AFG3,AFA4,AFR4,AFC4,AF04,AFJ4,AFA5  , AFB5  , AFC.5,  AFH5,  WMCn0  4 50 
2AFA6, AFB6, AFG6, AFA 7, A EC  7, AFO 7, AF A8, AFB8, AFC8 , AF08 , AF18 , AF A9 , AF B9,  WHrnOA60 
3AFC9, AFCg, AFJ9, AFA  lO.AFB 10 , AFC  10 , AFHl 0, AF A1 1 , AF B1 1 , AFGll , AFA12,  MHCn0  470 
4AFC12, AFni2, AF A 1 3, AFB 13 , AFC  13 , AF A14, AF B 14 , AFC14 , KFUZE , WA 1 , WE  I , WF I ,WHC00480 
5WA2,W02,WF2,KGAIN,CAl,CEl,rFl,CA2,CE2,CF2,CA3,CE3,C.F3,GAl,Gei,  GF1,WHC00490 
6KLF6,KG76,KSTA8,KAGATF,NCHAN,KSGATE,GA2 ,GB2 ,GK2 ,GA3 ,GB3 , GQ3 ,G A4 , WHCOOSOO 


HA  295 


WMCn0450 

wHrno<i60 

MHCn0470 


n n 


r 


j 


1 


7CP4,  rV4,  CA5fGP5  tC.H5tKG,KC  ,KW,KA,  KP,IGTYPE,  ICTYPE,  IPRCST 
rrM^'PN  /CD  ST  IN/  AFEl  ,AFFl  ,APr.l,AFHlf  AFC2f  AFD2  f AF  F2  t AFF2  t AFC3 1 

A r>  p ^ A^iA/.  A f t y.  A^fNC  Acrc?f  Ar*/«e  AP^i 


TCP'S,  GG5tr  FT  TAR(  in,PFTTAB(ll) 

CCMMOM  /CSTPRV/  CPLC.  tCRMC  ,CC  A SE  t CCFU  ,C  CL  .CC  M,  CC  TMI  , CCTML  , CCPMM  , 

1 rrnwT, rCPT.CERFUt CFBRD.CFTJ, CEX IN tCGFUiCGRO* 

" CCT.CCTnT.C  IGN.CIRJFU,  CIRJRD,  CLF ,C LFL  ,CLGG , CL  I , CL M, 

CLPFU,CLRPD,CLRT,CLTCf CLTPfCM,CMGG,CPPtCMTC,CMTP, 
^“''.rNnZtCNPJFUt  CPRJRD,  CP.CPAFI  ,CPENG,CPLtCPLC, 

rci  ,r  PMFG^^,CPO  A,CPR,CPRC  tCPSfCPSMGGtCPSN2,CPSR  AM.CPSSGGt 
nrJL  fCP  AF  I,CPrFV,CPEG,CRFNG,CRFTO,CRJC,CRMFGLfCRHFGM,rROAt 

nni  rcA.rcDCii_rccDn-rCDT.rT.rTACt.rTr.rTCP.rTfP  i.rT  icii. 


c I II' ji.  Mr  r\r  luyvr.  y lAnri’  i.yi.rr'rijnyi.'Mjii 

7 PRTrCL  ,CSA,CSRFU,rSRRryCSRT,CTyCTAF  lyCTC  yCTEByCTI  R JyCT  JFU, 

8 CTJLF.CTJLFL.CTJPO.CTJT,  CTLyCTMyCTNRJyCTPyCWHyCWHFUy 

9 rBOnCyCPOSyCPFUyPPnFPP  yPRFUAF  yPRR AF  yC CLB yCC MB yCTC B yC L I B y CNC 

A #-n»o  r ni  a rtrAio  rcAO  nonccw 


9 

A rPPP.CPl  ByClGNByCSAPyPRCFEX 
AAMFLIST  /FPRPRT/  CWHR  ,C  WHFUyCm 
vru7  f=K  FU7F 

r.wHP=w  Ai*(  ( wPUwci*wwH+wni*  xfuze  )*we  i+wfi  > 
CWHFll=^^A?♦(  1.2  8*  (WB7^WC2*  SORT  mWH)  ) *W02/600,»WE2  » 
CWH=CWHP*CWP'FU 

IF  (lPFr<;T  .NE.  C)  WRITE  (6yFPRPRT) 

D FTUPN 
EMC 


CWHR, 
CNC7Py 


wHcnnsio 

WHC90S20 

wnnciSTO 

WHCnnsAO 

yWMCOOSBO 

WPCn0860 

WHCno570 

wMcnosflo 

WMCOOSOO 

WHrn0600 
wMno6 10 
wHcno(>20 

WHCn0N30 

WHCO06A0 

WHCn0650 

wHcnoftftO 

WHC00670 

WHCn06B0 

wHcnoGPO 

WHnOTOO 

wHcnoTio 

wHcno7?o 

WHCn0730 

WHCnOTAO 

WHCnOTBO 

WHCnoTiSO 

WHnOTTO 

WHCnOTPO 


SL'BPf'UT  INF  PLRCST 


LIQUID  POCKET  PROPULSION  COST 


REAL  NPTWTyMp 

Cr'^MON  /CHMVLS/  WTANKyVEXlNy 

1 PByY  lyWNOZyKFMy  WATTKyAyDCOM 

2 FNFTyWTyWFyFMAXySyTAyME TTJy 

3 WWHyWTC.WTPyWGGyWSCyWLVyVGT 
COMMON  /cnSTlN/  PRIAlyPRIA 

IPRIA6,PRI A7y PRI AByPRIBByPRIA 
2PPlBl2yPPIEl2yPRIAl3yPPIEl3y 
3PR1F  16, PP I A17,PR IF I7f  PRI AlBy 
APPIA21,PRI A22yPRIB22yPRIA23y 
5PPIP25,PR 1A26,PP lP26yPRlC26y 
6PPMA*i,PRNA6yPRNA7yPRNA8yPRNB 
7PPNA12t  PPNBl2yPPNF l2yPRNAl3y 
8PPNA1 7y  PRN Al8yPPNPlfl,PRNAl9y 
9PPNB2ly  PPNA22yPRNB22y PRNC22y 
APlB8yPLA9yPLA  llyPLBllyPLAl3y 
PPLB1'),PLF15,PLF  lit  PLA16yPLEl 
CPLP20yPLA21yPLB21yPLC2lyPTAl 
DPTE6yPTA7yPTB7yPTC7yPTJC  yPTA 
FPFA3,PEP3yPFA4,PEEA,PFA5yPEF 


VRFO  yGGWyHPPUMPy WTFUFL  yWCOMM,VCnMI  , 
yWMCyVBI yOTHRTyRNO?! yNCZWTyMP,CASFM, 
ZXNB ,DyWMyFCyPPEAK,BSPyACET,qA,WCS  , 
yWOyWPyOPy WNy METAL yNCONFG 
2y  PRJCy PRI A3y  PRI B3yPRI AA,PR IF4,PRI A8, 
9yPRIG9yPRI  AlOyPRI  Al  1 y PRIGll  yPP  I A12, 
PRIA lAyPRlElAyPRI Al5,PRIEl5fPPI Al6y 
PRlBlByPRlE IByPRI A19yPPIEl9yPRI A20, 
PRIB23yPRIC23yPRI A24y  PR IC 2A y PR  1 A2B y 
PRNAl tPRNA2  yPRNA3  yPRNB3yPRNAAyPRNFAy 
8yPP,NA9y  PRNG9y  PRNAlOyPPNAll  yPRNGll  y 
PRNE l3yPRNA14yPRNElA  yPRN<l5  y PRN A 16 y 
PRNBl9,PRNCl9y  PRNA20yPRNC20yPRNA2l y 
PLPC  yPLAlyPLA3yPLB3yPLA4yPLA6,PLA8, 
PLBl3yPLC13yPL0l3yPLAlAyPLDlAyPLAl8y 
6yPLA17yPLA18yPLBl8  yPLClByPLAlOy PL A20, 
yPTOl  yPTAAyPTBA  yPTAS  yPTB5yPTF5yPTA6y 
8yPTD8yPTA9yPTB9yPTAlO  y PT B 10 y PT C 10 y 
5yPFA6y PFP6yPEE6yPE A7y  PFETyPEAB  yPE A9y 


PI  RCOOlO 
PLPC0020 
PI  PC0070 
PL  RC0040 
PL  RCOOBO 
PL  00.0060 
PLRC0070 
"L  RC0080 
PL  RC0090 
PLRCOlOO 
PlROOl  10 
PLRC.0120 
PI  RC0  130 
PLRCOIAO 
PL  RCO  ISO 
PLRC0160 
PLRC0170 
PLRCn 180 
PLRCOIPO 
PL  RC0200 
PL  RC0210 
PLRC0220 
PL  RC0  2 30 
PLRC02A0 


HA  296 


FPFAin.PFPlO.PFC  lC,PPAll,PERll,PFFll  ,PEPC  ,PSPC  t PS  A3  t PSR3  , PS  A<»,  PS  , PL  RF  0 250 
GPSA5,PSF5, PSA6,PSF6tP  SG A, P SA ? ,P SF 7, PSAa , PS A9 , PS A1 0 t PS  010 , PS  CIO , PI RC0260 

FPSAl l,PSRll,PSFl  l,rFT,PFT,CFC ASF ,PFCASE,CFC,PFC,CFP,PFM,IYFAR  PLRC0270 

rP«MrN  /rnSTTN/  PR IR 1,PP1C 1#PRI 02# PRIC2fPRI P4»PR ICA.PRIOA.PR I P5»  pLRCOPRO 
lPPir5,PPIB9,PRlCS,PR IDStPRIE9,PRIF9,PRlBll,PRICllf PRICllfPRIEllf  PLRC0290 
2PPIF  1 1,  PRIC12»PR  ini2,PRIB  l3tPRIC  13»PRI  Dl  3 t PRI  BU  , PR  1 C lA  ,PR  I HI  A , PLRC0100 
2PPTPl5iPRI('l5,PRini5,  PRIPl6,PRICl6,PRlD16,PRIBl7fPRICl7fPRlPl7,  PLRC0  310 
APP |P17»PRfC18fPRIPlR,PRIP19,PRIC 19 , PR  1 01 9 » PR  I B2A t PRAP I . PRNC I , PRN P2PI  R CO  320 
5|PPNC2t  PRNPA,PRNCA,PRNnA,PRNB5,PRNC5,PRNB9,PRNC9tPRKC9»PRNE9,PRNF9PlRr.0330 
6,PR^'Pll,PPNr,  11,  PPMDll,PRNFll,PRNFll,PRMC12fPRNni2,PRMPl3,PRNC13,  PLRC03A0 
7PPNni3, PRNBlA,PPNr lA,PRNniA,PRNB15, PRNC 1 5 , PRNOl 5 , PRNB 16 , PRNC 16 , PLRC0350 

ePPNPlf, PRNR17,PRNC 17, PPNO 17 , PRNE I 7 # PRNB20 1 PLBl , PLC 1 ,PL A2 ,P L 02, PLBAPLRC0360 
9,PLCA,PLA5,PLR5,PLR6,PLC6,PLA7,PLB7,PLB9,PLC9,PLAIO,PL01O,PLA12,  PLRC0370 
APlRl?,PLRlA,PLClA,PLC15,PLDl5,PLBl6,PLr.l6,PLO16,PLei9,PLC19,PT01,  PLRCn380 
BPTC l,PT A2,PT0  2,PTA3,PTB3,PTC5,PTD5,PTB6 ,PTC6  ,PTD6 , PT P8 , PTC8 , PF A 1 , PLRC0  300 
CPFP1,PFC1,'’EA2,PFP2,PFC2,PFBA,PECA,PFDA,PEB5  ,PFC5  , PFOS  , PFF5,  PFC6,  PLPrOAOO 
rPFn6,PFP7,PEC7,PFD7,PEC 1 1, PED 1 1 , P SAl ,PSB1 ,P SCI , PS A2 ,PSB2 , PSC2 , PS RAPL RCO A 10 
E,  PSf  A,PSnA,P  SB5,PSC5,PSn5,PSE5,PSB6,PSC6,PSn6,PSE5  ,PSB7,PSr.7,  PSC7,  PLPCOA20 
FPSF7,PSC1 UPSDl 1,PRND22,PLD21,PLE21 ,PTD10,PTE10, PRin26  PLPC0A30 

rrMMPM  /C^STIM/  PROFIT, 00, R ,AFA1  ,AFB1  ,AFC1  ,AFD1  , AFU,AFA2,AFP2,  PLRCOAAO 
lAFC?,  AFA-^,  AFR3,  AFG3,  AF AA,  AFB A , AF CA  , AFOA , AF  JA  , AF  A5  , AFB5 , AFC5 , Af  H5 , PLRC0A50 
2ArA6, AFP6, AFG6, AFA  7, AFC7,AF07, AFAB,AFB8  , AFCfl , AFPB , AF I 8, AF A9 , AF P9 , PLRCOAAO 
3AFC",  AFro,(yFjq,/vFAio,AFB  1 0 , AFC  1 0 , AFHl  0 , AF  A 1 1 ,AFeil  ,AFG11  , AFA  12,  PLRC0A70 

AAFC12, AFni2, AFA13,AFB13,AFC 13, AF A lA, AF B1 A , AFCl A , KFUZE , WA 1 , WF 1 , MF 1 , PL RC OARO 
5WA2,wC2,WF2,kGA IN.CA l,CFl ,CF1  ,CA2,CE2,CF2,CA3,CF3 ,CF3,GA1,GR1, GFl, PLRC0A90 
FKL  F6,KGTft,KSTAR,KAGATF,NCHAN,KSGATE  ,GA2  ,GB2,GK2  ,GA3,GB3  ,G03  ,GAA,  PL  RC.  0500 
7CPA,  (MA,GA5,  GR5,GF'5,KG,KC  ♦KW,KAf  KP,IGTYPF,ICTYPE,  I FRCST  PL  P CO  5 10  '! 

COMMON  /rnSTlM/  AFFl,AFFl,AFGl  ,AFHl,  AFC2,  AFD2  ,AFE2,  AFF2,  AFC3,  PLPC0520 
1AF03, AFF3,AFF3,  AFFA,AFrA,AFGA,AFHA,AFl A,AFD5,AFE5, AFF5,AFG5, AFC6,  PL® 005  30  g 

2AFn6,  ArF6,  AFF6,  AFR7»AFE8,AFF8,AFG8,AFH8,AFF9,AFF9,Arr,9,AFH9,AFl9,  PI  Rr0  5A0  P 

’AFOIO, AFFIO, AFF 10,AFG  10, AFC  1 1 ,AF 0 1 1 , AF FI  1 , AFFl 1 , AF R 12 , WB 1 ,WC 1 , W C I , PL PCOSSO  j 

AWP2,WC2,CBl,  rC 1,C01,CB2,CC2,CD2,CP3,CC3,C03,GC1 ,GC1 ,GFl .GC? ,GP2,  PLRCORGO 
5Gr2, rF2,GG2,GH2,CI2,GJ2,GC3,G03,GF3  ,GF3 ,GG3 ,GH3 ,Gl 3 , G J3 ,GK3 ,GL  3 , PLPC0  5 70  i 

6GV3, GN3,GP3,GCA,GPA,GFA,GFA,GGA,GHA,GI A,GJA,GKA,GLA,GC5,005,GP5,  PI o CO  580  1 

7GF5,rG5,fFTTAB( ll),PFTTAB(ll)  PLPC05Q0  I 

COMMON  /rSTPRV/  CBLC  ,CBMC  ,Cr.  A SE , CCFU  ,C  CL  ,CCM  .CGOM  I .CGOML  , CG  OMM  , D|Rro600  jl 

1 GGONT,  rCRD,CEBFU,GEPPO,CFTJ,CEXlN,CGFU,CGRO,  PLRC0610  li 

2 Gr.T,CrTOT,r.TGN,CIRJFU,  CIRJRO,  CLF  ,CLFL  ,GLGG  ,CL  I ,G.l  m,  PLRC0620  ij 

3 CLRFU,CLPRP,CLPT,CLTC,CLTP,CM,CMGG,CMM,CMTC,GMTP,  PLPC0630  ) 


A rMV,CNn7,GNRJFU,  CNRJRO,  CP ,C PAF 1 ,CPF NG  ,G FL , CPLG , 

5 CPMFGL  ,GPMFGM,CPOA,r,PP,  ,CPRC,  CPS,CPSMGG,CPSN2,CPSRAM,CPSSGG, 

6 CPTOOL  , GRAF  I ,CR  OFV,  G.R  EG,G.RENG  ,C  RF  To  ,G.R  JC  ,C«  MFGL  , CR  PFGM,  G,  RO  A, 

7 GRTOOL  ,CSA,CSRFU,GSPRn,CSRT,CT,CTAFl  ,G.TC,CTFB,CTIRJ,CTJFU, 

8 CTJLF,  GTJLFL,CTJPn,CTjT,  C TL  ,C  TM,  CTNR  J ,CTP  , CKH  , CWHFIJ  , CW  HR, 

9 CBOOC,CRPS, CPFU,PRnFPR  ,PRFUAF ,PRRAF , CCLB , CCMB, CTC B , CL  I R, CNOZR , 

f A CPPP,CPLB,C IGNB,rSAB,PROFEX 

j CIMFNSION  PLEIAAO) 

[ NAMELIST  /ERRPRT/  CL  TC  ,CMTC  ,C  TC  ,CL  TP,C  MT  P,CLGG  ,CMGG , GT  P,  CL  M,  Gmm, 

S 1 CM,CGT,CPS,CT,CP,CPL ,CSA,CLRFU,  CLRRO,CLRT 

! EATA  pi  eiAA/2165.,  16A99. , 7191. / 

PLB1AU=PL BIAAIMFTAL I 
‘ PLC1AU=.26C8 

IF  (PLPIA  .NE.  0.1  PLRIAU-PLBIA 

IF  (PLCIA  .NE.  0.)  PIC1AU»PLC1A 

1 CLTC=PLA1*PLR1*WTC*APLC1/1000. 
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I: 


PLRC06A0 
Ptof0650 
PLRC0660  ; 

PLRC0670 

PIROOARO  i. 

PL RC06"0  j 

pipgotoo 

PLPC0710 
PI  RCO 7 20  . 

PLRC0730 
PI  RC07A0  I 

PLRC07R0 
°l  RCO  760  I 

PIRCOZ70  :> 

PLOG.O7B0  I 

PLRC0790  j 


o o 


2 rMTr=P|  A2*l.35*WTr**PLR2/lCCC.  - PL 

I ctc=pla3<'(cltc+cmtc)+plb2  pi 

A Cl  TP  = PL  A4*PLB<f*(  WTP-WGG-WSC  >**PLC4/1000.  PL 

t)  C''TP=PL/'B*l.35*tWTP-WGG-USC)**PLB5/lOOO,  PL 

6 CIGG=P|  A6*PLB6*(wrG+WSC »♦♦PLC6/l000.  PL 

7 CvCG=Pl A7*l.35*(WGG*WSC)**PLB7/l000.  PL 

fl  rTP  = PL  AB*(  CLIP  ♦CMTPK  LGG*r,*«GG)4-PLB0  PL 

<;  clm-pla';*plb9*wlv**plc9/iooo.  pl 

10  CPM=PLAlO*l.35*WLV**PLBlO/lOOO.  PI 

II  CV=PL  A1  l*(  ri.M+CMM)  ♦PLBll  PL 

12  CCT  = PLA  12*  1.C59*VGT1.*plr12/1000.  PL 

13  CPS  = PL A 13*lCGT*PLP  13+PLC 13)+PL013  PL 

lA  CT=PL A1A*PLP  1AU*1.1*WT**PLC14U/1 000.  + PLD14  PL 

15  CP=PL  A15*(PLB  15*  (PLC  1 5/WO  )*•  PLDl  5*W0+PLE  15  *(  PLC 1 5/ liF  1 **PLr)  1 5*W  F 1 PL 

1 /1000.4PLF15  PL 

It  CPL=PLA16*pLB16*  1 . 1*(PLC  16/WP|**PLD16*WP*PLE16  PL 

17  rSfl=PLA17  PL 

13  CLRFU=( PI  A 18*1. 1 5*PL B 1 8* ( CTC*C TP*CM*CPS*CT*CP*CPL*CS A ) ♦PL A ia*PL C I BPl 

1 )*(1.+PLPC)  PL 

fPFU=r,lPFU  PI 

ppnFPP  = rL«FU*PLPC/(  l.  + PLPC>  PL 

21  CLM  D=Pl  \ 2 1*  (PLB  21*(  1.  462*PLD2  1 *FMAX*PL  E2 1 ) ♦PLC2l)*(  !.♦  PL  PC)  P. 

CPP9  = CLPR0  PI 

22  CLRT=CLPPD+CLRFU  PI 

CLTC=CLTC*PLA18  PL 

CMTC=CMTC*PLA18  PL 

CTr  = rTC*PLA  18  PL 

Cl  TP  = ri  TP*PL  A Id  PL 

CMTP=CMTP*PLA18  P| 

riGG*Cl GG*Pl A 18  PL 

CMGG=C»'GG*PL  A18  pL 

CTP=rTP*PLA  18  P| 

rLM  = rLM*PL A 18  PL 

CMM  = r.MP*PL  A18  Pl 

cm=cm*plair  pl 

CGT=CGT*PLA18  Pl 

CFS=CPS*PL A18  PL 

CT=CT*PLA18  PL 

rP*CP*PLA18  PL 

CPL  = rPl  *PL  A 18  PL 

CSA=CSA*PL  A18  PL 

IP  (IPRCST  .NE.  C)  WRITE  (6tERRPRT)  PL 

RETURN  PL 

FA'O  PL 


RC0800 

Rcqaio 

RC0820 

RC083n 

RC0840 

RC0850 

RC0860 

PC0870 

RC0880 

OC0890 

RC0900 

RC0910 

Rro9?o 

RC093n 
«r,0940 
RC0P50 
RC0960 
RC0970 
R COO 80 
RC0990 
RCIOOO 
RC1310 
RC1020 
RC1O30 
RC1040 
RC1050 
RClOfeO 
RC1070 
RCiopn 
PC  1090 
PCI  100 
RClllO 
RC1120 
RCl 130 
PC  1 1 40 
Rril50 
RC1160 
RCl  170 
PCI  IPO 
PCI  190 
PC  1200 
PCI  710 
PC  1220 
PC  12  30 


SLBROUTINE  PFBCST 

FXTFRNAL  BOOSTER  PROPULSION  COST 

COMMON  /CONLY/  KPUTGt  OlAFRT,  SOMMORI8) 

REAL  NOZWT.MP 

COMMON  /COMVLS/  WTANK ,VE  XIN,VREOtGGW»HPPUMP, WTFUEL  tWCOMMtVCCMI » 

I R5,Y  l,WNOZ,KFM,MATTK,A,OCOM,MMC,VBI .DTHRT , RNOZ I tNCZHT , MP, C AS  EM , 


P FBCOOlO 
PFPC0020 
PEPCOOOO 
PPBC0040 
PFBC0050 
PPBC0060 
PEBC0070 
PFBCOOeO 
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I 
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2 rNFT.WT, WF, FMSX , S, T4,ME  TTJ  ,ZXNB  ,D ,W P, FC , PPEAK , BSP .NOET ,0 A ,WCS t PEBCOOPO 

? WWH,WTC,WTP,wr,G,VoSC,  WLVfVGTfWOf  WP  ,nPtWN,METAL,NCCNFG  PEBCOlOO 

(-nMMDN  /CnSTIN/  PRlAl,PRIA2tPBJC,PRIA3,PP,IB3,PRIA4,PBIEA,PRI«5,  PFPCOllO 
IPRl A6,PP I A7,PRIA8,PR IB8,PRlA9,PRlG9tPBI AlOtPRIAll .PRIGllfPRl Al2f  PE BCG I 20 
2PPI  B12»  PR  IFl2tPP  lA  13f  PR  IE13tPRl  AU.PRIEU,  PRI  A15  ,PRIE15,PB  IA16  , PF0CO13O 
3PRIF  16, PRI A17,PR IF  17,PR lAl8tPRIR18,PRIEl8f PRI A19,PPIE19,PRI A20,  PFRCOIAO 
APPI A?1,PRI A2?,PR IP22,PRIA23,PRIB23,PRIC23,PRI A2A,PBtC2A,POI A25,  PFBC0150 
5PPIK2  5, PR  I A?6,PR IP26,PP IC?6,PRNAl ,PRNA2,PRNA3,PRNB3, PRNAA, PRNFA,  PFPC0160 
6PRMAS,PRNA6,PRN A7,PRNA8,PRNR8,PRNA9,PRNG9,PRNA10,PBNAll,PRNGll , PFPC0170 
7PRNA12,PPMB12,PRNF  12,PRNA13,PRNEl3,PRNAlA,PRNEU,PRAai5,PRAAl6,  PFPC0180 
ePPNAl7, PPN A18,PRNP 1 8, PRNA 19, PRNB 1 9, PRNC 1 9, PRN A?0 ,PRNC20 , PRNA2 1 , PFBC0190 

9PRNP2l,PRNA22,PRNP22,PRNC22,PLPC ,PLAL , PLA3 , PLR3 , PL A4 , PL A6 , PL A8 , PF«C02no 

APLBB.PL  A9,PL A 11, PLB 1 1 ,PL A 13 ,P LBl 3 , PLCl 3 , PLDl 3 ,PL A1 A , PLDl A , PL A1 5 , PFBC0210 
PPl P 15,PLF 15,PLF 15,PLA16,PLF 16 ,PLA1 7 , PLAl 8 , PLB18 , PL C 18 , PL A1 9, PL  a20,PFPC0?2O 
CPLH20,PLA21,PLB2  1,PLC21, PTA1,PTD1,PTAA,PTBA,PTA5,PTR5,PTE5,PTA6,  PFBC0230 
CPTF6,PTa7,PTB7,PTC7,PTJC,PTA8,PT08,PTA9,PTB9 ,PTA10 ,PTB10,PTCin,  PEBC02A0 
FFFa3,PEP3,PFAA,PEFA,PEA5,PFF5, PE A6, PE R6 ,PF F6 ,PEA7 , PEE7 , PE A8 , PF  A9,  PEPC02  50 
FPFAin,P  FP10,PFC 10,PE A 11,PEB11,PEE1 1,PEBC,PSPC,PSA3  ,PS B3 ,PS AA, PS EA, PFBC0260 
GPSA5,PSFS,PSA6,PSf 6,PSG6,PSA7,PSF7,PSA8,PSA9,PSA10,PSei0,PSC10 , PFBC0270 
HPSail,PSPll,PSEl  1 ,CF  T,PFT,CFCASE ,PFCASE,CFC,PFr ,rFM,PFM,lYFaR  PFOC0280 

CPmmpn  /cost  in/  PRIPl,PRICl,PRlR2,PPIC2,PRinA,PRICA,PRinA,PR I P5,PFRr0299 
IPP  ir6,PPIH9,PRlC9,PRin«;,PRlE9,PRlF9,PRIBll  ,PRIC11,PR1D11,  PRIEll,  PEPC0300 
2PR IFl  1,PP IC 12,PR  IP  12, PRIB13,PRIC 13,PRI013 ,PRIB1A ,PRIC1A  ,PRID1A,  PF 800  310 
3PP!B15,PP IC15,PRIP15,PR1R16,PR1C 16, PRT 0 1 6 , PR  I BIT ,PR IC 1 7 , PR  1 0 17 , PFOCOIPO 

APRIF 17, PR  1C  ie,PR  iri8,PRlR 19,PRIC 19,PRI D19,PRI B2A , PRNBl , PRNC 1 , PRN P2PF BCO 3 30 

5, PRNC2,  PR  N BA,  PRN  CA,  PR  NPA,  PRNB  5, PRNC  5,  PRNB  9,  PRNC-P  , PRNOR  , PPNEP  , PR  N F9PF  BFO  3A0 

6,  PRNB  11, PRNC 11, PRNnil,PRNFll,PRNFl 1,PRNC12,PRN012, PRNfll3,PRNC13,  pfrcobBO 

7PPNP  13, PPNRlA,PRNf 1 A, PRND lA, PRNB 1 5 , PRNC 1 5 , PRNOIB , PRNB 16 , PRN C 16 , PFnc0360 
8PPNni6,PPNB17,PRNC  17 , PRNO 1 7,PR NE 1 7 , PRNB20 , PLBl ,PLC 1 , PLa2 , PL P2, PL PAPF PCO 370 
o,PL  CA,PL A5,PLB5,PI B6 ,P LC 6 , PLA 7 ,PLB 7, PL B9 ,PLC9 , PL A 1 0 , PLB 10 , PL A 1 2 , PrpcOBRO 
APLB12, PLB1A,PLC1A,PLC  1 5, PLD 1 5, PLB 1 6 , PLCl 6 , PLni6 , PL B 19 , PLC 19 , PT  8 1 , PFRCO30O 
BPTC1,PT  a2,PTB2,PTA3,PTB3,PTC5,PTD5,PTB6,PTC6,PTn6, PTB8 ,PTCe ,PF A I,  PFRCOAOO 
CPF01,PFr  1,PE A?,PFP2,PFC2  ,PEBA,PEC A,PEDA,PFB5  ,PFC5, PFDS , PFF5,PFr6,  PForoAlO 
rPF06,PFP7,PFC7,PEn7,PECl l,PFnil,PSAl,PSBl, PSCl , PS  A ? ,P SR2 , pSC? , PSP APF  BCOAZO 
E,PSCA,PS0A,PSB5,PSC5,PSn5,PSE5,PSB6,PSC6,PS06,PSE6 ,PSB7,PSC7,PSr7, PFPC0A30 
FPSF7,PSCll,PSni  1,PRND22,PL021,PLF21 ,PT010,PTE10,PRin?6  PFPCOAAO 

rPNMON  /CnSTIN/  PROF  IT,00,R, AFAl ,AFB1 , AFCl ,AFD1 , AFIl ,AFA2,AFP2,  PFPC0A50 
lAFGZ, AFA3, AFB 3, A FG 3, AF A A , AFB A, AF CA, AFOA , AF JA , AF A5 , AFB5 , AFC B , AF H5,  PFPr0A60 
2Ar A6, aFfi6, AFG6, AFA7,AFC7,AF07,AFA8,AFB8,AFC8, AFOB, AF18 , AFA9,AFPQ,  PFPC0A70 
3AFr9, AFpo, AFJ9, AFA10,AFB 10, AFC  10 , AFH 10 , AF A 1 1 , AF B1 1 , AFGl 1 , AF A1 7 , PFPFOABO 

AAFC12,AFD12,AFA13,AFB13,AFC13,AFAlA,AFBlA,AFClA,KFUZE,HAl,WEl,WFl,'»rPC0AQ0 
5WA2,wr2,WF2,KGAIN,CA 1,CE1,CF1,CA2,CE2,CF2,CA3,CF3 ,CF3 ,G A1 ,GB 1 , GF 1 , p F PCOSOO 
6KLF6,KGT6,KSTAB ,KAGATE ,NCHAN, KSGATE ,GA2 ,GB2 ,GK2 , GA3 ,GB3 ,G03 , G A A,  PPOCOSIO 
7GBA, GNA,GA5,GB5,GH5,KG,KC ,KW,KA,KP,1GTYPE, ICTYPF, 1 PRCST  PFflr0520 

CrMNON  /COSTIN/  AFE1,AFF1,AFG1,AFH1,AFC2, AFD2,AFE2,AFF2,AFC3,  PEBC0530 

lAFOS, AFE3, AFF3, AFF A, A FFA , AFGA  ,AFH A ,AF I A , AFD5 , AFE5 , AFF5 , AFG5 , AFC6 , PFPC0  5A0 
2AFn6, AFE6, AFF6, AFP  7, AF E8 , AFF8 , AFG8 » AFH8 , AFE9 , AFF 9, AFG9, AFHP, AF 19,  PFPC0580 
3AFni0,AFF10, AFF10,AFG10, AFCll.AFOll.AFEll ,AFF 1 1 , AF B 12 ,WP 1 , WCl , W C 1 , PFPC0560 
AWP2,WC2,CB1,CC1,CD1,CB2,CC2,C02,CB3,CC3,CD3,GC1 ,G0 1 ,GE1 , GC2 ,002 , PFPC0570 
5GE2,  GF2,GG2,GH2,GI  2,Gj2,GC3,G03,GE3»GF3,GG3,GH3,r,l  3,GJ3,GK3,GL3,  PFPC05P0 

6GR3, GN3,GP3,GCA, GDA,GE A ,GFA,GG A,GHA,GI A ,G JA.GKA ,GL A , GC5 ,GD8 , GE 5 , PF0CO59O 
7GF5,GG5,CFTTAB( 1 1 1 ,PF TTAB 1 1 1 1 PFBG060n 

CCMMON  /CSTPRV/  CPLC , CBMC ,CCASE,CCFU ,CCL ,CCM,CC CHI , CCCML , CCOMN , PFRC0610 

1 rcnN'T,CrRD,CE8FU,CFBRD,CFTJ,CEXIN,CGFU,CGR0,  PFRC0620 

2 CGT,CGTnT,CIGN,ClRJFU,  CIRJRO,  CLF,CLFL  ,CLGG,CL I ,CL N,  PEBC0630 
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3 CL«Fll,rLRRn,CLRT,CLTC,CLTP,CM,CMGG,CM>»,CrrC,CMTP, 

A CMV, CNOZ ,CNPJFU,  CNRJRO,  CPfCPAFI ,CPFNG  ,CPLf CPLCt 

5 CPMFGL,CPMFGM,C PCA.CPR ,CPRC ,CPS,CPSMGG,CPSN2,CPSRAM»CPSSGG, 

6 rPTPnL  ,rp  AFI  .CRPFV.roFG.CRENG.CRFTOfCRJC  tCRMFGL  t C RPFG»1»  CRQ A, 

7 CRTPOl ,CSAfCSRFU.CSPRD,CSRT,CT,CTAFI,CTCfCTEBfCTIPJ,CTjFU, 

8 CTJLF,CTJLFL,CTJRD,CTJT,  C 7L t CTM,CTNR J ,C TP .CWH, CWHFU ,CWHP , 

9 rBPPCtCRPStCPFUtPRnFPR,PRFUAF,PRRAF,CCL8,rCMB,CTCRfCLIB,CNrZR, 

A rPPP,CPLRfC  IGNBfCSAB  .PRPFFX 

NAw,fL  1ST  /EORPRT/  CCLB  .f  C^B  .CTCB  ,C LI  B .CNOZB, CPRB, C PL B , C I GNB »CS  AE » 
1 PEPFU, CFBRP.CTFB 
PSLIK  = P 
C = r ♦ PIAFRT 
I=rASFM 

CFMU=CFTTAB(  1 I 
PFMU=PF  TTAB  (I  ) 

I F ( CFM  .NE  . 0.  ) CFHU=CFM 

ir  (PFf<  .NF.  0.)  PFMU=PFM 

CCLP  = PFAI*CFMU*( PFRl/WMC  >**PECl*WMC 

CrMB=l.  1*PEA2*PFMU*(PEB2/WMC )**PEC29WMC 

CTCR=PEA3*(CCLR  tCCMB )+PEB3 

PI  I P=l.  1*P  FAA*pEBA*(PECA/VP  I )**PEnA*VBI*PEEA 

CMPZ  P=l.l*PEA5*PEPB*  (PFC5+PEr)B*DTHRT*PEE5*RNnZI  ) *NCZWT*-PEFS 

C PRP=PFA6*PFB6*MP/ 1000.* (PEC 6/MP)**PED6*PEE6 

CPLB=  1.  1*PFA7*PFP7*9P*(PEC7/MPI**PED7*PEE7 

C IPNRsPEAB 

CSAP=PFA9 

CF'>FU  = Z XNB*(PEA  10*  ( PFB  lO*  (C  TCR«-C  L I B+CNOZB+CPRB+CPL  B *0  I GNR+CS  AP  I 
I *PFC10)*( 1.4PFBC ) ) 

PPaFFX=CFRFU*PERC/( l.*PEBC» 

rFPPn=PEAll*(PEBll*PFCll*(D*WM)**PEDll*l.A52*PEEll )*( l.*PFPCJ 

CTFR=CFRPn*CE8FU 

CrLP=CCLR*PFAlO 

crMp=ccMB*PEA  n 

CTCP=CTCR*PFA 10 

Cl  IB=CL  IB*PEA  10 

CNnZ  R=rNn7P*PFAlC 

cprb=cppp*peaio 

CPLB=CPLB*PEA 10 
CIGNP=r  ICNfl*PEAlO 
rSAP  = CSAP*PFA  10 

IF  ( IPPCST  .NE.  01  WRITE  (6,ERRPRT) 

0 = nSL  IK 

RETURN 

ENO 


PFPC06A0 

PFflC0650 

PERC0660 

PFflC0670 

PEBC06P0 

PEPr0690 

pppcozno 

PERC0710 
PFRC0720 
PPRC0730 
PERC07A0 
PEPCOTBO 
PEPC0760 
PFPC0770 
P EBC07RO 
PEPC07Q0 
PFRC0800 
PEflCOfllO 
PFPC0820 
PFPC0830 
PEBCOBAO 
PFBCORBO 
PFProq60 

PFBC0870 
PEPCORRO 
PFPCOROO 
PEPCOqOO 
PFBCaoiO 
PFRC0920 
PPPC0q30 
PERCOQAO 
PFPC0950 
PFPC0960 
PFPC0970 
PF  PC0983 
PFRC  OPQO 
PFRC 1000 
PFPCIO  10 
PRRC1020 
PFPCIOIO 
PFPCIOAO 
" RRCIOBO 
PFPC10f>0 
PERC1070 


SUBROUTINE  P SRC  ST 

SOLID  SUSTAINER  PROPULSION  COST 

COMMON  /CONLY/  K INDPS, DI AFR T, SHMC t SOTHR T , SRNOZI .SW P ♦SCMMCR I A » 
RFAL  NOZWTfMP 

COMMON  /COMVLS/  WTANKtVEKIN,VREQfGGMfHPPUMP,MTFUELtWCOPP,VCCMI, 

1 P5»  V If  VWOZfKFM  fMATTKfAfOCOMfWMC#  VBI  fOTHRT  tRNOZ  1 1 NCZWT  , M Pf  C ASE  M, 


PSRCOOlO 
P ST C 0020 
PSRC0030 
PSRCOOAO 
PSRCOOSO 
PSRC0060 
PSRC0070 
PSR  C0080 
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2 FNPT,  W WF,  F>iAX  , S,  '«r  TTJt  Z*NR  ,n,WM,FCfPPEAK,  BSPfNDET.QA.WCS  f PSRCOOgO  ’ 

3 WWH.WTC,  kJYP  ,W^,';,VNSC,WLV,VGT,wr)f  WPtOPtWNfMFTALtNCCKFG  PSRCOlOO  ! 

Cr"1MrN  /CnSTTN/  PR IAI t PRI A2» PR JC ,PR IA3 ,PRI B3,PRI A4,PRIEA, PRI A5,  PSRCOllO  ; 

IPRI  A6,PPIA7,PRIA8,ORIRfl,PRIA9.PRIG9,PRI  AlOtPRl  All,PRIGlltPRIAl2,  PSRr.0l20  j 

2P0Iri?,pripi2,pr  IA13,PRIE13.PRIAU,PRIEU,PRI  Al5fPRIEl5,PRIAl6,  PSRC0130  I 

3PRIF  I'S,  PP  i A17,“R  IF17,PR  I Al8,PRIBl8fPRlEl8fPRI  A19 1 PR  I E19  ,PR  I A20  , PGRGOIAO 
APR  U?  I*  PR  I iZPtPRIPZPf  PRIA23fPRIR23,PRIC23fPRI  A24,PRIC2A,PRI  A25,  PSRCOISO  ! 

5PRIR2S,PP IA2  6,PR I P 26f PR  I C 26tPRNA I , PRNA ? ,PRNA3 , PRNB3 t PRN AAf  PRNE4,  PS R CO  160  j 

tPPM  A5,PRNA5,PRNA7f  PRNA8»PRNB8tPRNA9,PRNG9,PRNAlO,PR6Al  I ,PRNGll  t PSRC0170  l| 

7PRNA12,PPNB  12,PRNF  I2f  PRNA13f  PRNEl3fPRNAlAf  PRNElAf  PRAA15.PRNA16  t PSRC0180 
8PPMAl7t  PRN  Ai8,PRNBletPRNAl9tPRNB  19,PRNC19,PRNA20,PRAC2n,PRNA2l  t PSRC0190  \\ 

9PPNR21, PRN A22fPRMP22,PRNC22«PLPC  t PL A I , PL Ai , PLB3 t PL  AAtPLA6  tPLAB  f PSRCO?no 

APLRR.PL  A9,PL  All.PLBll.PLA 13,PLBl3,PLC13,PLDl3,PLAlA,PLniA,PLA15t  PSRC0  210  * 

PPLR15,PLF 15,PLF l5,PLAl6,PLEl6tPLAl7f PLA18.PLB18fPLCl8t  PLA19,PL A20,PSRCn770 
CPLR20f  PLA2l,PLB21,PLr.2l,  PTAl.PTOl  ,PTAA,PTBA,PTA5  tPTG5,PTE5f  PTA6f  PSRr,0230  i 

CPTF6, PTA7,PTP7,PTr  7,PTJC ,PTA8»PT08 t PTA9  fPTB9 ,PTA10  tPTRlOt PTCIO,  PSRC02A0 
EPFA3 ,Pr e3,RFAA,PFEA,PEA5,PEF5,PFA6,PEB6,PEE6fPEA7, PFF7tPFA8,PF A9,  PSRC02S0 
FPF Ain, P FRIO, PEC  10, PEA  1 1 , PFR 1 1 , PEF 1 1 , PEBC , P SPC , PS AJ  , PS B3 ,PS  AA,PS  FA, PSRC0  260  1 

GPSA'i,PSFS,PSA6,  PSF6,PSG6,PSA7,PSF7,  PSAB  , PSA9  , PS  AlO  , PS  PIO  , PSC  10  , PSPC02  70  j 

FPSAll,PSPIl,PSEl 1,CFT,PFT,CFCASF,PFCASF,CFC,PFC,CFP,PFM,IyEAR  PS RC 0280  j 

rrMMPA'  /rOSTIN/  PRIBl,PRICl,PRIB2,PRIC2,PRIBA,PRICA,PRinA,PRie5,PSRC0?o0  j 

lPPirF,PRIB9,PRrC9,PRI09,PRIE9,PRIF9,PRlBll,PRICll,FPlDll,PPtFl  I,  PSPCOIOO  i 

2PR IFl l,PP IC 12,PP ID12,PRIR13,PRIC l3,PRTni3,PRlBlA,PRIClA,PRiniA,  PSRC0310  | 

3PPIR15,PP  IC15,PP  ini9,PRIR16,PRIC16,PRini6,PRIBl7,PRIC17,PRini7,  PSRC0320 
APR  IF  17,  PPiri8,PR  IDlfl,PRlR19,PRIC  1 9 , PRI  0 19,  PR  I B2A  , PRN  El  , PRNC  I , PRNP2PS  Rr,03  30 

5, PRNC2, PPNRA,PRNCA,PRN0A,PRNB5,PPNC5,PRN89, PRNC9 , PPNC9 ,PRNFO, PRNFQOS RCO 340  y 

6, PR^'Rll,PRNC  ll,  PRNnil,PRNPll,PRNFll,PRNCl2,PRNOl2,  PRNB13,PPNC13,  PSRCn3  50 

7PPNP  13, PPNRlA,PBNClA,PRNniA,PRNBl5,PRNCl5,PRNni5,PRKBl6,PRNCl6,  PSRC0  360  , 

RPPN016,PRNR17,PRNCI 7, PRNO I 7 , PRNE I 7 ,PRNB20 , PLR I ,P LC  I , PL A2 , PLR2 , PL  PA  PSP C0370 
q,PLr<,,PLA5,PLR5,PLR6,PLr6,PLA7,PLP7,PLB9,PLC9,PLAl0,PLRl0,  PL  A I 2,  PRP^OOOO 
APLB12,PLPIA,PLCIA,PLC 15,PLDIS,PL816,PLC16,PLD16,PLP19,PLC19,PT  ei,  PSRC0390 
EPTCl,PTA2,PTR2,PTA3,PTB3,PTC5,PTnS,PTB6,PTC6,PT06,FTP8,PTCn  ,PFA1,  PSPCOAOO  i| 

rPFRl,PFCl,PrA2,PEB2,PEC?,PEBA,PECA,PEDA,PEB5,PEC5, PFn5,PEF5 ,PFC6,  PSRCOAIO 
rPr06,PER7,PFC  7,PFn7,PFC 1 1 ,PEn 1 1 ,PSA I ,PSRl ,PSC I , PS A2 , PSR2 , PSC2 , pS PAPS RCO 420 
E,PSCA,PSnA,PSR5,PSC5,PSDS,P  SE  •>  ,P SR6  , PSC6  , P SD6  , PS E6  , PS B7  , PS  C7  , PS  07,  PSRCOAIO 
FPSF7,PSC1 l,PS01l ,PRND22,PL02l , PLE2l,PTniO ,PTF10,PR  1026  PSPCOAAO 

COMMON  /rOSTIN/  PROFIT, 00, R,AFAl,AFBl,AFCl,AF0l,AFIl,AFA2,AFR2,  PSRC0A50 
1AFG2,  AFA3,  AFB3,  AFG3,AFAA,AFBA,AFCA,AFDA,AFJA,AFA5,  AFB5,AFr,5,AFHS,  PS  RCO  A 60 
2AFA6, AFB6, AFG6, AFA7,AFC7,AFn7,AF A8,AFR8,AFC8, AF08, AFI8 , AFAQ , AFPO,  PSOC0A70 
3AFrq, AFDo, AFJ9, AFAln,AFP10,AFCl0,AFHlO,AFAll,AFBll  , AFGl I , AF A 1 2 , PSRCOARO 
AAFCl2,AFni2, AFA13, AFB13,AFC 13 , AF AlA, AFB I A , AFC lA , KFUZ E , WA I , WF I , WF I , PS RC0A90 
5WA2,W02,WF2,KGAlN,CAl,CFl,CFl,CA2,CE2,CF2,CA3,CF3,CF3,GAl,GBl,GFl,nSRC0S00 
6KLF6,KGT6,KSTA8,KAGATE ,NCHAN,RSGATE,GA2 ,GB2 ♦GK2 , GA 3 , GB3 ,G03 ,G A A , PSRCOSIO 
7GRA, GMA,GA5,GR5,GH5,KG,KC,KW,KA,KP,IGTVPF,ICTYPF,I PRCST  PSRC0S20 

COMMON  /COSTIN/  AFEl,AFFl,AFGl,AFHl,AFC2,AFn2,AFF2,AFF2,AFC3,  PSRC0S30 
IAF03, AFF3, AFF3, AFF A, AFFA , AFGA , AFHA ,AF I A ,AF 05 , AFE5 , AFF5 , AFGS , AF C6 , PS RCO 5 AO 
2AFn6, AFF6, AFF 6, A FR 7, AFF 8, AFF8 , AFG8 , AFH0 ,AFE9 , AFF 9, AFG9, AFH9, AF  19,  PSRC0  550 
3AFriO, AFFIO, AFF  IC, AFG 10, AFC  1 1 , AFO 11 , AFE 1 1 , AFFl I , AF P 12 ,WR1 , WCl , WCl , PSRC0560 
AHP2,WC2,CB1,CC l»CO  1,CB2,CC2,C02,CB3 ,CC 3 ,C03 ,GC I ,G0  1 ,GEl ,GC2,Gn2,  PS R COS 70 
5GF2,GF2,rG2,GH2,GI2,GJ2,GC3,G03,GE3,GF3,GG3,CH3 ,GI3  ,GJ3,GK3,GL 3,  PSRC05  80 
6GM3, GN3, GP 3, GC A, GOA, GE A, GF A, GGA, GHA, GI A, GJA.GKA ,014,005,005,005,  PSRCOSno 
7GF5,GG5,rFTTAB( 1 1 1 ,PF TTAB 11 1 1 PSRC0600 

rCMMON  /CSTPRV/  CBLC,CBMC,CCASE,CCFU,CCL,CCM,CCCMI ,CC0ML,CCCMM,  PSRC0610 

1 CCONT,CCRn,CEBFU,CPBRO,CETJ,CEXIN,CGFU,CGRD,  PSRC0620 

2 rGT,CGTOT,CIGN,ClRJFU,  CIRJRO,  CLF.CLFL  ,CLGG, CL  1 ,CLM,  PSRC0630 
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1 


I 


i 

I 


I 


1 

2 

•? 

A 

5 

6 

7 

8 
e 

n 


11 

12 


3 CLRFU,CLPRn  ,C  LR  T ,r,L  TC  t CLT P,CM, CMGG  t CMP ,C VTC t C »'T  P, 

A CMV.CNOZ.CNR jFUt  CNRJRO,  CP.CPAFI ,CPENG tCPLi CPLCt 

5 rpy  fGI  ,CPMFGM,CP0A,CPR,CPRC  ,CPStCPSMGG,CP‘;N2  ,CPSR  AN.CPSSGG, 

6 CPTnOL ,CRAFI , CR nFV,CRFG,CRENG,CRFTOtrRjC tCRMFGL* CP^FG^t CRQA, 

7 CPTnni ,CSA,CSRFUtCSPPO,CSRT,CT,CTAFI ,CTC»CTF8,CT I R J,CT JFU, 

8 rTJLF,CTJLFL,CTjRn,r,TjT,  C TLtCTM.CTNR  JtCTP  tCWHtCWHFUtCWHP, 

0 FRr'nc.CPPStCPFUfPPnFPR  ,PRFUAF,PRPAF  ,CCLBtCCMB,CTCB,CLIB,CNC7P, 

A fPPR,CPL8,C  ICNRfCSAP.PPrFFX 

NAMFl  1ST  /FPRPRT/  CBL C ,CBMC f CC ASF , C LI  ,C NOZ ,CPRC , CPLC ,CS A, C IGN, 

1 rSRFUi CSPRC, CSR T 
7S  = WMC 

7SS  = othrt 
7SSS  = RNHZI 
7SSSS  = WM 
WMC  = SWMC 
PTH5  T = S3  THR  T 
PA'OZ  I = SPNnzi 
= SWM 

CPLf =PSA1* I . 1*(PSB l/WMC)**PSCl*HMC 

CPMC  = l.  1*PSA2*(PSP2/WMC)**PSC2*WMC 

CCASF=PSA3*(CRLC+C0MC  )*PSB3 

Cl  I=PSAA*PSRA*1,  l*(PSCA/DP)*APSnA*OP*PSEA 

CNOZ=PS  A5*PSB5*3.3*WN*(PSC5*PSD5*DTHRT-*-PSE5*RNnZI  ) + PSF5 

CPRC  = PS  Af)*WP*(P  SB6/(PSr6*WPn**PS0  6APSF6/PSF6*PSG6 

CPLC  = PS  A7*l.  1*PSB7*WP*(P  SC7/(  PSn7*VIP)  J •♦PSE74-PSF7 

CSA=PSAP 

CIGN=PS4o 

rSPFU=P  SA10*(  l.+PSPC  »*(PSB10*1.1  5*(CCASE  + CLI«-CN0Z*CPRC4-CPLC+CS  A 
1 4cirN)+Psc  10) 
rPFlJ  = CSPFU 

ppnFPR  = rSR»=ii*psPC/(  1.4PSPC) 

rSRPn=PSA  11*(  1.4PSPCI*(PSB1  l*PSCll*(n*WM)**PSDll*l  .A6  24PSE11  l 

rRPS=cspp  n 
rsR  T=cspFU4r srro 

CPL  C=  CRl  C*PSA  10 
:3  m:  =:  pmc^psai  o 
CrASF=rCASF*PSA  10 
rL!=CLI*PSAlC 
CNn7  = CNr)7*PSA  10 
rpRr=rppr,*PSA  lo 
CPLC  = CPLC*PSA  10 
CSA=rSA*PSA10 
C IGN  = CIGN*PSA10 

IF  ( IPPCST  .NF.  C)  WRITF  I6,ERRPRT) 

W^»c  * 7S 
CTFPT  = ZSS 
RMO? I * 7SSS 
WM  = 7SSSS 
PFTUPN 
FNO 


PSRC06A0 

PSRC06A0 

PSRC(}660 

OSRC0670 

PSRCOftRO 


PSRC0600 
PSRC0700 
P$RC0710 
PSRC0720 
PSRro730 
PSRC07A0 
PSRCO7S0 
PSRr0760 
PSRC0770 
PSRC0780 
’ ST  C07O0 


P$RC0800 
PSRCOR  10 
PSRC0R20 
PSRC0B30 
PSPC08A0 
PSRrORSO 
PSPC0360 
PSRr.on70 
PSP  COR 80 
oSRCORQO 
PSPC0900 
PSPCOQIO 


PS  PC0O?0 
PSRCO<530 
PSRCOOAO 
PSPr0950 
PSPCOoftO 
PSPC0970 
PSP  COR 8 3 
PSl  C PPOO 
psociono 
PSRCIPIO 
PSPC1020 
PSRFIO’O 
PS  RCIOAO 


PS  Of.  10 SO 
PS  RC  10  60 
PSPC  1070 
PSRCIOPO 


PSRClOQO 
PSRCllOO 
PS  PC  11 10 
PSRC1120 
PSRC1130 


SIRROUTINE  PIRCST 


p IR  conio 
PIRC0020 


HA  302 


r 

r 


P tRCn030 
PIRCOO<VO 
PIRCOOSO 
PI PC0060 
PIRCOOTO 
piRCOom 
PIRC0090 
PTRCOlOO 
PIRCOllO 
PIRC0120 
PIRC0130 
PIRC0140 
PIRC0150 
PIRCO  IftO 
PIRC0170 
PIRCOlsn 
PI RC0190 
PI RC020n 
PIPC0210 
PIOC0220 
PIRr0?30 
PI RrozAO 
PI orn?60 
PI “CO  260 
PI RC0270 
PI RPO  2R0 
PI RC0290 
P I RCOiOO 
PIRPn310 
PRN'P2PT  RCn320 
PRN'F9PIRC0730 


B5,GH5tKG  fKC  »KWfKA,KP,IGTYPE  t ICTYPE, I PPCST 
IN  /rnSTIN/  AFEl.,AFFl,AFGltAFHlf  AFC2*AFn2  f AFE2tAFF2f  ftPC3t  f'l  Kt052n 
, AFF3t AFF3, AFFAtAFF4,AFG4tAFH^,AFI A,AFD5#AFE5f AFF5,AFG5,AFC6,  PIRC0  5 30 
, AFF6t  AFF6, AFB7,AFF8  ,AFF8 , AFG8 ,AFH8 t AFE9 , AFF9 , AFG9 , AFHQ , AF 1 9 , PIRr0  540 
)f  AFElOt  AFFlOf  AFGlOf  AFC  1 1 1 AF  Dl  I t AFE  1 1 , AFF  1 1 , AF  R 12  ,M  P I ,VI  Cl  , WPl  , P I RGOSSn 
(r,?,CRl,CCl,CDl,CB2,CC2,CD2»CB3tCC3»CD3tGCl,GnitGFl,GC2,Gn2,  PIRC0  560 
]F2fGG2.GH2fGI  2fGJ2fGC3,GD3,GE3fGF3,GG3,GH3  ,GI  3 ,G  J3  ,GK3  , GL  3,  PIRr,0570 


HA  303 


6GM3,  GN3,CP3,CCA,  GO  A , G.E  A,r,F  A tGG  Af  GH4  tCf  4 , G JA  ,GKA  t GL  A t GG5  *005 1 GFS , 
7GFS,  rr,5,c  FTTAB(  1 1)  ,PFTTAB  ( ll ) 

rrMNiHN  /rSTPRV/  CBLG  ,CBMC  ,CCASEfCCFU,CCLtCCP,CCCMI  ,CC0HL,GCCMM, 

I rcoK  T,  crpn,rFflFu,G'=BRn,CFTj  ,CFxiN,CGrutCGRn, 

rGT,CGTnT,ClGN,riRJFU,  CIRJRD,  CLF ,C LFL , GLGG, CL  I , Cl M, 

CLRFU,CLRRD,CLRT,CLTC tCLTPtCMfCMGGfCMR,CNTC,CMTP, 
GMVtG^nz.CNR  JFIJ,  CNRJRD,  CPtCPAF  I ,CPENG  .CFLtCPLCt 

rP“FGL  »rPMFGM,CPOA,CPP , CPRC , CPS, C PSMGG » CPSN2 , CPSR AM.C PSSGG , 
GPTOnL ,CRAFI ,CPnEV,CREG ,CRFNG ,CRF Tn,C R JC , CRMFGL ,CRMFGM , CRO A, 
GPTOOl  ,CSA,CSRFU,GSRPD,CSRT,CT,CTAF  I ,CTC  ,CTFB,CT1  PJ,CTJFU, 

GTJLF, GTJLFLtGTJPn.CTJT,  CTL ,CTM ,CTNR J ,CTP , CWH, CWHFU, CHHR , 

rprcC,CPPS,CPFtl,PRnFPR,  PRFUAF.PRRAF  ,CCLR,CCMB  ,CTCP,CLI  B,CN07B, 
rPPB,fPtB,C  IGNB,rSAR,PROFFX 
MAMEL  JST  /ERRPRT/  C TL  , C T P ,C  T ,CFXI  N,CG  T,  CREG,C  MV  , CPSN2 , CPSS  GG, 

1 GPSMGGtGPSP AM,Cl F,CLFL,CBLC ,C BMC , CL  I , C NOZ ,CPRC , CP  LG , C I GN ,r S A, 

2 renrc,  r IRJFU,  cir  jRn,cTiRj,cPS 

rrTU  = rrTTAB(MATTK  ) 

PFTIJ  = PF  TT  AB<  maTTK  ) 

I=CASFM 


rFrASU=rFTTAB ( I ) 
p FCA  ';u=PFTTAR  (I  ) 
IF  (CFT  .ME.  0.  I 
IF  (PFT  .NE.  O.J 
IF  (CFGASP  .NF. 
IF  {PFFASF  .NF. 


r FTU=CF  T 
PFTU=PF  T 

0.  ) rFGA<;U=CFCASF 
C.)  PFCASU=PFCASE 


CTL*1 .05P*PP I A1*PP IB 1*CFTU*WTANK**PRIC1 
GTMs  I .05P*PR I A2*PP  IP2*PFTU*HTANK**PRI C2 
CT=PR  IA3*(  CTL  ♦GTM  J+PR  Ifl3 


GFX  IN 

= 0.0 

IF  ( V 

EX  IN  . 

EQ. 

C.O 

1 1 GO 

A 

GFX  I^'  = 

l.l^PR 

I AAAPRI 

BAAIP 

9991 

CONT  INIIF 

IF! K FM 

.NE  . 1) 

GO 

TO 

lOOC 

5 

rGT=i. 

0S9APR 

I A5APP  I 

BSAVR 

6 

CPEG=PP  1A6 

7 

fMVsPR 

IA7 

8 

GPSN2= 

PRI aba 

I GGT 

♦CR 

EG+CM 

lOCO 

IF( KFM 

.NE.3) 

GO 

TO 

20CC 

9 

GPSSGG 

= I.IAP 

RIA9 

♦ PR 

IB9*( 

20C0 

IFIKFM 

.NE .2) 

GO 

TO 

3noc 

10 

CPSMGG 

=PRI AI 

0 

3CC0 

IFIK  FM 

.NE.A) 

GO 

TO 

AOOC 

11 

CPSR  AM 

*1.1AP 

R lAl 

!♦( 

PP  IB  1 

TO  9991 


1 


AOCO 


♦ ♦PR  IF  11 )>PR IGl  I 
CONT INUE 
GP S»0. 

IF  IKFM 
IF  (KFM 
IF  IKFM 
IF  (KFM 


.EQ. 

.EO. 

.EQ. 

.FQ. 


11 

2) 

31 

A) 


CPS» 

CPS> 

CPS= 

CPS= 


CPSN2 

CPSMGG 

CPSSGG 

CPSRAM 


12 

13 

lA 

i; 

16 


CLF*PR1A12*PRIB12^(PRIC12/HTFUEL I♦♦PR1 012*WT FUEL/ 1000 .♦ PP I E 12 
CLFL*1.  l^PRl A13APR IR13*(PRIC13/MTFUEL1**PRI013*WTFUEL*PR1F13 
CPLC=l.l*PRl AlA^PP IBlA*CFCASU*(PRIClA/MMCI**PRiniA*WMC*PRIElA 
CBMC«1.1*PRI  AIS^PR  IB15APFCASU*(PR1C15/»IMC)**PRI015*MMC»PRIF  IS 
CL1=1.1*PR IA16PPRIB16*(PRIC16/VBI I♦♦PRI016•VBI♦PRI E16 


PIBC0580 
PI RC0590 
PIRC0600 
PIRC0610 
PIRG0620 
P1PG0630 
PI RC06A0 
PI  RC0650 
PIPC0A60 
PIPC0670 
PIRCOAflO 
PIRC0A90 
PIPC0700 
PIRG0710 
PIRC0720 
PI RC0730 
PIPG07A0 
PIRG0750 
PIPC0760 
PI  RG0770 
PIRC0780 
P IRC0790 
PTRCOBOO 
PIRCOBIO 
P IRCOP  20 
PI  RG0B30 
PI HC08A0 
PIRCOflSO 
PTP.C0860 
P IPC0870 
P IBC0380 
PIRCOflOn 
PIRrpooo 
PI RG091 0 
PI RG0920 
PI  p(;nQ:^n 
PIRG09A0 
P TRCO9«)0 
PI RGOQAO 
PIP  GOP  70 
P IRC09B0 
PI Pf 0P"0 
PI  RG  1000 
PIRG.n  10 
PIRG1020 
PIRC1030 
PIRCIOAO 
PI PC1050 
PIRC 1060 
PIRC1070 
PTRC1080 
PIPC1090 
PI RGiino 
PTRCl 1 10 
PIRC1120 


J 


HA  30A 


i 

i 


17 

CNrZ  = 1.  l*PR l A 17*PP IB17*( PR IC 17>PR ini7*2.*R5+PRIEl7*Yl) *NOZWT 

PIRC1130 

1 4PPIF17 

PIPC1140 

18 

CPRr  = PR  lAlflOPRIP  ie/lOCC.*(PRIC 18/MP»*PPRID18*MP+PR lElB 

PIRCl 150 

19 

CPLC=  1.  l*PR  I A lq*PP  IP  19*  ( PR  ir  19/MPI  ♦*PPI  ni9*MP*PP  IF  19 

PI RCl 160 

?C 

CIGN=PP  IA20 

PIRC1170 

21 

r,SA=PRI  A2l 

PI RC 1180 

72 

CPOnr =PR I A22*«  CBLC  KPMC ♦CL  I ♦CNOZ  + CPRC^C PLC+C I GN+CS A ) ♦PR I P22 

PI RCl  190 

23 

C IRJFU  = PR  I A2?*(  1 .♦PRjr  )•  ( 1 .15*PR  I R23*  ( CT^C FX I N^C  PS^C  LF+CLFI  ♦CBOOC  »Rr.l200 

1 ♦PPIC23) 

P1RC1210 

CPFLI=C  IRJFU 

PIPC1?20 

ppnFPR  = CIPJFU*PR  jr /(  1.4PRJC ) 

PI  PCI ?30 

26 

CTRJRO=(  l.^PRJC  »*PP IA26* (PR IB26* 1. 184*PRI D26*DCrM^ PR IC26 ) 

PIRC12A0 

CPPS=CIRJRn 

PIRC1250 

27 

CT  IRJ=r  IRJFU^^IR jpn 

P IRC  1260 

CTL  = CTL  *00  I A23 

PIRri270 

CTM=CTM*PR IA23 

PIRC12P0 

CT=CT*PP I A22 

PIRCIPOO 

CFXIM=CEX  IN*PR1A23 

PI RCl 300 

CrT  = CrT*PP  IA2 J 

PI RCl 310 

C.PCC=CR  FG*PR  1 A?3 

PIRCl 320 

rMV=CMV*PR I A23 

PIRC1330 

CPSN2=CPSN2*PRIA23 

PIRCl 340 

CPSSCG=rPSSGG*PR IA?3 

PTRC lOBO 

rPSMGG=C'’SMGG*PR  IA23 

PI RCl 360 

CPSR  Ay  = CPSP  AM*PR  IA2J 

PI «ri 370 

CPS=rPS*PP IA23 

PI  PC  1 3R0 

OLF=CLF*PR I A23 

PI  PC  1390 

CLFL=CLFL*PP  I A23 

P (RC1400 

rPLr  = CRl  C*PR I A23 

P I R C 1 4 n 

CPMr=CBMC*»R I A23 

PI R01420 

CL I=CL I*PR IA23 

PI  PCI  430 

CMOZ  =CMn7*PP  IA23 

PI  PC  1440 

CPRC=CPPC*PR I A23 

PIPC  1450 

CPLC=CPLr*PP IA23 

PTRCI460 

CIGN=r IGN*PRIA23 

PI  PC  1470 

CSA=rSA*PR IA23 

PI RC14R0 

CPnpr=CPonc*PR I A 23 

PI RC1490 

IF  ( IPPCST  .NF.  0)  WPITF  (6,ERRPRT) 

PI RCl 500 

RETURN 

PIRC1510 

ENO 

PIRC 1520 

c 

c 

r 


«(;«Br'UT!NF  PNRCST  PVRmoiO 

PM  or 00? 0 

NON-INTEGRAL  RAMJET  SUSTAINER  PROPULSION  COST  PMOfO'^IO 

P*'RCP040 

RFAl  NOZWT.MP  PMPC0050 

COMMON  /COMVLS/  WTANK ,VEX IN.VREOfGGWfHPPUHP.WTFUEL »HCCMM,VCCMI , PNPC0060 

1 P5fYl,WNnZfKFM,MATTK,A,nr.0M,WMCtVBI  ,OTHRT,RNOZI  .NC  ZHT  , MP,  C AS  F Mt  PNRC0070 

2 FNFT,WT,WF,FMAXfStT4tME  TTJ.ZXNB  ,D .WPfFCt PPFAKt BSP fNDET ,QA,WCS . PNRC0080 

3 WWH.WTC.WTP.WGG.WSC, WLV  tVGT ,WOfWP, DP, WNt METAL tNCONFG  PNRTOOCO 

COMMON  /CnSTIN/  PR  IAl,PRIA2.PRJC,PRIA3tPRIB3,PRI  A^,PRIF<i,PRt  A5,  PNRCOlOO 

IPP  IA6,PPIA7,PR1  Ae,PRIB8,PRIA9,PRlG9,PRIA10,PRIAll,  PRIGlltPRI  A12,  PNRCOUO 

2PPIB12f  PPTF12,PP  lAlJfPRIFiafPRIAU.PRIEl^fPRIAlSfPRIElBtPRl  A15,  PNRC0120 


HA  305 


PP  IF  17, PRIA 18,PRIRl0tPRl E18fPR I A19 ,PRIF19 ,PRI A20f  PNRCO 1^0 
APPIA?1,PP1A2?,PP  IP??,PR  I A 23  fPP  IB  23,  PRIC2J,  PR  1 A2<»,  PR  IC24,  PR  IA25  , PNRCOUO 
5PPIB2'3,  PR!  A26,PR  IP26,PRIC26,PRNAl  ,PRNA2  ,PRNA3  , PRNB3  , PRNA<,,PRNF4,  PNRC0  150 
6PR^'A5,PRMA6,PR^'A7,PRNAR,PPMP8,PRNA9,PRNG9,  PRNA  10  , P RN  A 1 1 , PRNC 11  , PNPCO  160 

7PPMA12, PPMfll2,PRNF 12,PRNA13,PRNF13,PRNA14,PRNE14,PRNA15,PRNA16,  PNRC0170 
PPPN A17,PRNAie,PRNP 1F,PRNA19,PRNB19,PRNC19,PRNA20,PRNC20,PRN A21,  PNRC0180 
PPPNfl? 1,PRNA2?,PRNB  22,PR^C22,PLPC ,PLA1 ,PLA3 ,PLP3 ,PLA4,PLA6, PLA8,  PM R CO  190 
APL«8,PLA9,PLAll,PLBll,PLA13,PLB13,PLCl3,PLD13,PLAlA,PLni4,PlA15,  PNRr.02  00 
BPI  P15,PLEl‘i,PLF15,PLA  16  , PLE  1 6 , PLAl  7 , PL  A 1 8 , PLR18  , PL  C18  , PL  A 19  , PL  A20  , PMRCO  2 10 
CPlB?0,Pl  A21,PLB21,PLC21,PTA1,PT01,PTA<^,PTB4,PTA5,PTB5,PTE5,PTA6,  PMRro220 
CPTF6,PT A7,PTB7,PTr  7,PTJC , P TA8 , PTD8 , PT A9 ,PTB9 , PT A 1 0 , PT B 10 , PTC  10 , PMRC0  2 3n 

FPFA3,PEPJ,PEAA,PFEA,PEA5,PEF5,PE  A6,PEB6,PEF6,PEA7, FEE7,PE AR, PF A9,  PNRC02A0 
FPFAIO.P  FP lO.PFC 1C,PFA 11,PFB11 ,PEF1 1 ,PFBC ,PSPC,PSA3 ,PS B3 , PS AA , PS EA, PNRC0250 
GPSA5,  PSF6,PSA6,PSF6,PSG6, PSA7,PSF  7,PSA8,PSA9 ,PSA10  , PS  RIO , PS C 10 , PNRC0260 

HPSAll.PSPl l.PSF 1 1,CFT,PFT,CFCASE ,PFCASE,CFC, PFC ,CFP  ,PFM  , IY E AR  PMRC027n 

COMMON  /CO  ST  IN/  PR  I B 1, PR IC 1 , PR  I R2 ,PR I C2 , PRI BA , PR  I CA , PR  I DA ,PR I PS , PNPCO 2flO 

lPPIC5,PPIR9,PRICS,PRin9,PRIE9,PRIF9,PRIBll,PRICll,FfiIDll,PRIEll,  P^'OC0  290 
?PP IF  1 1,PRIC 12,PR 1012, PR!B13,PR IC 13,PRID13,PRIB1A,PPIC1A,PRID1A,  PNRC0300 
3PRIP  1S,PR IC15,PP ID1S,PRI B16,PRIC16,PRID16 ,PRI R17,PP1C17, PRini7,  PNRC0  310 
APD IF 17,PP IC 18,PP  ID1R,PRIR19,PRIC1P, PRID19,PRIB2A ,PRNei , PRNC 1 , PRA P2PN RCO 320 

5, PRMC2, PPN8A,PRNCA,PPNDA,PRNB5,PRNC5,PRNB9,PRNC9,PRNC9,PRNF9,PRAr9PNRC0330 

6,  PRMP11,PPNC11, PRND11,PRNE11,PRNF11,PRNC12,PRND12 ,PRNB13,PRNC13,  PNRC03An 

7PPND13, PPNBlA,PPNClA,PPNniA,PRNB15,PRNCl 5, PRND15,PRNB16,PRNC16  , PNRC0  3S0 
BPRMO  16,  PPNB17,  PRNC  17,PPND17,PRNE  17,PRNB20»PLR1  ,PLC  1 , PL  A2  , PL  B2  , PL  PAP*''RC0  36n 
9,PLCA,PLA5,PLB5,PI R6 , P LC 6, PL A7 ,P L B7 ,PLB9 ,P LC9, PLA 1 0 , PL B 10 , PL A12 , PM RC 0370 
API  R12,PLP1A,PLC 1A,PLC 1 5 , PLD 1 5 , PLB 1 6,PLC16 , PL016 , PL P 19 , PLC19 , PT  P 1 , PMRC03flO 
PPTCl,PTA2,PTR2,PTA3,PTB3,PTC5,PT05,PTB6,PTC6,PTn6,PTR8,PTC8,PFAl,  PMRC0390 
CPFRl, PFC1,PEA2,PFR2,PFC  2,PFPA,PECA,PEDA,PFB5,PEC5 ,PEC5,PEES,PPC6,  RMRCOAnO 
nPFn6,PF87,PFC7,PE07,PEC 1 1 ,PFn 1 1 , P SA 1 , PSBl , PSC 1 , PS A2 ,PSB2 , PSC2 , PSBAPNRCOAIO 
E, PSr A,PS0A,PSR5,PSC5,PSD5,PSE5,PSP6,PSC6,PSD6,PSE6 , PS R7 , PS C7 , PS  07 , PMPCO A20 
FPSF7, PSC 1 l,PSDll,PRND22, PLD21 ,PLE21,PTD10,PTF10,PR1D26  PNRC0A30 

COMMdN  /COSTIN/  PROFI T,0n,R, AF A1 ,AFR1  ,AFC1  ,AFni , AF  II, AF A2, AFP?,  PMQCOAAO 
I AFO,?,  AFAR,  AFB3,  AFG3,  AFAA,  AFBA,  AFCA,AFnA  , AF  JA  , AF  A5  , AFB5  , AF  CS  , AFH5  , P^'ROCASO 
2fFA6, AFP6,AFG6,AFA  7,AFC7,AFD7,AFA8,AFR8, AFC8, AF08,  AFI8 , AFA9, AFRP,  PMRC0A60 
3AFC9,  AFCP,  AFJ9,  AFA  lO.AFB  10,  AFC  10,  AFH 10 , AF  Al  1 , AFBl  1 ,AFG11,AFA12,  P’!RCOA70 

AAFC12, AFC12, AFA 13, AFB 13,AFC13,AF AlA, AFBIA, AFC1A,KFUZF,WA1 ,WF1, WFl, pNRCOAPO 
5WA2,wC2,WF2,KGAIN,CA1,CF 1,CF1,CA2,CE2,CF2,CA3,CE3,CF3,GA1,GP1, GF1,PNPCOA90 
6KI  F6,KC T6, KSTAB,KAGATF ,NCHAN,KSGATE,GA2,GB2,GK2,GA3,Gfl3,G03,GAA,  pnrcoSOO 
7GPA,  GMA,GAS,GB5,GHS,KG,KC,KW,KA,  KP  , I GT  YPE  , ICT  YPE  , I PRCST  r-NRCOSlO 

COMMON  /COSTIN/  AFEl ,AFF1 ,AFG1, AFHl, AFC2 ,AFn2 ,AFE2,AFF2, AFC3 , PMRC0S2O 
lAFn3, AFF3, AFF3, AFFA,AFFA,AFGA,AFHA,AFI A,AFn5,AFE5, AFFS, AFG5, AFC6,  PNRC0S30 
2AFC6, AFE6, AFF6, AFP  7, AFE 8 ,AFF 8 , AFGR , AFH8 , AF F9 , AFF9 , APG9 , AFH9 , AF 19 , pMRCOSAO 
3AFniO,AFE10, AFFIC, AFGIO, AFC11,AFD11,AFE11,AFF11 ,AFP12,WP1 ,H C 1 , W C 1 , pmRCO 550 
AWP2,WC?,CB  l,CCl,Cri,CR2,rC2,CD2,CR3,CC3,C03,GCl ,G01,GF1  ,GC2,Gn2,  PNRC0560 
5GF2,  r-F2,GG2,GH2,GI  2,GJ2,GC3,G03,GE3,GF3,GG3,GH3,GI  3 ,G  J3  , GK3  , GL  3 , PMRC0570 
6CM3,  CN3,GP3,  CCA,  CD  A , GE  A ,GF  A,GGA,  GHA  ,G  I A ,G  JA  ,G  KA  , GL  A , GC5  ,Gn5,G«=5,  PNRC05R0 
7GF5,GG5,rFTTA8(  1 1 ) ,PF TTAB ( 1 1 ) PNRC05P0 

COMMON  /CSTPRV/  CBLC  ,C  BMC  ,CC  A SF  ,CCF  U ,CCL  , CCM,CC0M1  , CCOML',  CCCMM  , PMRC0600 

1 CCONT,  CCRD,  CEBFU,CFBRO,CETJ,CEXI  N,CGFU,CGRD,  PNRCOMO 

2 CGT,CGT0T,C1GN,CIRJFU,  CIRJRD,  CLF ,CLFL , CLGG , CL  1 ,CL M,  PNRC0620 

3 CLBFU,CLRR0,CLRT,CLTC,CLTP,CM,CMGG,CMP,CMTC,CMTP,  PNRC0630 

A CMV,CNn7,CNRJFU,  CNRJRD,  CP ,CPAF I ,CPFNG  ,CP L ,C PLC , PNRC06A0 

5 CPMFGL ,CPMFGM,CP0A,CPR,CPRC,CPS,CPSMGG,CPSN2  ,CPSR AM ,CPSSGG,  PNRC0650 

6 CPTOOL,CR  AF  I,CROFV,CREG,CRENG,r.  RFTn,CRjC,CRMFGL  ,CRMFGM,CRQA,  PNRC0660 

7 CRTOOl  ,CSA,CSRFU,CSRRD,CSRT,CT,CTAFI  ,CTC  ,C  TEB  ,CT  I P J , CT  JFll , PNRC0670 


; fTJLF.rrjLFLfCTJPn.CTJT,  CTLtCTH,CTN'RJ,CTP,C»iH<CWHFUtrWHP, 

» CPnnc,CPPS,CPrU,PP^FPP,PRFUAF,PRPAF  ,r.CLB,CC»*ft,CTCB,CLIB,CNC7Bt 
S fPPP.rPLR.r  IGNR.f SAP, PROFEX 

NAMFL  1ST  /FPRPPT/  Cn  ,CT  M,r.  T ,C FX I N,CGT  ,CREG  ,CHV  ,CPSN?  ,C  PSSGGt 
L CPS^‘GC,CP  SP  AM,rLF,ClFL*CCCML,CCOMM,CCCMI  .CNOZ  t CR  J C t CNR  JRJ  , 

J CNR  JPn.CTNP  J.CPS 

rFTl)=CFTTAB(MATTK  ) 

PPTU  = PFTTAR( MftTTK  » 

I = CASEM 

CFCU=CFTTAR( 1 ) 

PFrU=PFTT4BI I ) 

IF  (CFT  .NF.  n.)  fFTU=CFT 

IF  (PFT  .NF,  0,)  PFTU=PFT 

IF  (CFC  .NF.  0.)  CFriJ=CFr 

IF  (PFC  .NF.  0.)  PFCU=PFC 

CTL  = 1 ,059*PRNAl*PPNBl*CFTU*WTANK**PRNC I 

rTM=i  .r5c»PPNA2*PFMP2*PF  T'J*WTANK**PRNC2 

CT=PkNA3*(  CTL+CTM  )+PPMB  3 

CFXIN  = 0.0 

IF  I VFXIN  .EO.  C.C  ) GO  TO  9991 

r EX  IM=  I . l*PRNA<.*PPNflA*  (PRNC<t/VEXIN)**PRND4*VFX  I N^PPAFA 
CONT INUF 

IF(KFH.NF.l)  GD  TO  lOCC 

rGT=l.059*PPNA5*PPNB5*VPFC**PRNC5/l000. 

CPEG=PRNA6 
CMV=PRN  A7 

CFSM2=PRNAP*(  CGT+CREG+CMV)«-PRNB8 
IFIkFM.NE .3)  GO  TO  20CC 

rPSSr.G=  1. 1*PRMA9*PRNP9*I  PRNC9*(  PRN09/GGW)  '>*PRNE9*GGW*P9NF9  |♦PRNG9 


PNRC0680 
PNRC0(S9n 
PNRCOTOO 
PMRC0710 
PNBC0720 
PNOC0730 
PNRC0740 
PNRr07S0 
PNRC0750 
PN«>Cn770 
PNRC078n 
PNRr.0790 
PNRCOBOO 
PNRC0910 
PNOC0P20 
PNP  C0P30 
PNRC0840 
PNRCORPO 
PNRC0860 
PMRr0P70 
PNRCOPPn 
PNRC0P90 
PNPCOoon 
p*>'RC09in 
PMRC0920 
PNRC0930 
PNRr09A0 
PNRC09‘)n 
PNRC0960 


2rco 

IFIKFm.nE  .2) 

GO  TO  300C 

PNPr0970 

1C 

CP  SF'GG  = PRNA  10 

P'JRC09R0 

3CC0 

IFIK  FM  .NF  .A) 

GO  TO  AOOC 

PMRCP990 

r 11 

CPSP  AM=  1.1+PRNAl  1*  (PR  NR  1 1*  I PRNC  1 !♦  PRND 1 1 ♦HPPUf'P  I - P PNE 1 1 •HP«>U‘<P 

PNRCl 000 

1 *«.PPNF  1 1 ) ♦PPNO  1 1 

PNPCIOIO 

j AOCO 

CCNTINUE 

PN'>C10  20 

CPS=0. 

PMPCl  O'^O 

IF  (KFN  .FQ. 

n CPS=CPSN2 

PMRCl OAO 

IF  (KFH  .FO. 

?)  CPS=rPSMGG 

PNPf.  lOBO 

IF  (KFM  .EQ. 

3)  CPS=CPSSGG 

PNpriofO 

IF  (KFM  .EO. 

A)  CPS=CPSPAM 

PNRC  1070 

12 

CLF=PRrA  12*PRNB12*(PRMC12/HTF UEL )•♦PRNDl2»WTFUE L/IOOO.^ PRNE12 

PNRCl 080 

13 

CL  FL  = 1.  1*PRNA13*PRNR13*(PRNC13/MTFUFLI**PRN013*WTFUFL+PRNE13 

PNRClOon 

CrnML=PRNAlAOPPNPl A*l. l*rFC U*(PRNC14/WC0MM)**PRN01A*MCCMM 
CrOMMsl  .1*PRNA15*PRNP15*PFCU*(  PRNCl5/WCCHH)**PRNni  5*WCCf'R 
CCOMIsl  .1*PRNA16*PRNB16* (PRNC 16/VCOMl 1 •♦PRN016*VC0NI 
CAnZ  = l.  l*PRN  Al7*PRNPl7*(PRNCl7>PRNr)l7*R5*PRNEl7*Yl  )*WNOZ 


PNRCl 100 
PNRCll 10 
PMPCl  120 
ONor.  1130 


PNRCl lAO 
PNRCl  IPO 
PNRCl 160 
PNRriiZO 
PNRCl  IPO 
PNRC 1 190 
PNRC1200 
PNRC1210 
PNRC1220 
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L 


18  rRjrsPPNAiaYICCOMH-CCOMH+CCOMI-fCNOZI^PRNBlS 

19  CNRJFU=PRNA19*( l.+PRJCI*! I . I 5*PRNB19P ( CT^CEX I N>C PS ♦Cl F^CLFL ♦CR JC ) 
1 ♦PRMCIR) 

CPFU=CNRJFU 

PROFPR*CNR  JFU*PRX/(  l.  + PRJCI 

22  CNRJRO=(  l.»PR  j:  |•PR^A22*(PRNB22»l.l84*PRND^2P^CCM♦FPNC22) 
CPPS*CNRJRD 

23  CTNRJ=CNPJF1KCNR  Jpn 
CTL  = CTl RPPNA  19 


CT  = CT*PRNA  19 
CFXIM=rEXIN*PRNA  19 
C rT=r.  GT*PRMA  19 
rpFG  = C‘’Ff.*PPNA19 
CWV  = r *<V*PPNA19 
CP';N2=CPSM2*P9NA19 
rPSSrG=rpssr,G*PRNA  lo 
fP5MCG=rP';MGG*PPNA  19 
CDSR  AM  = rPSRAM*PRN'A  19 
CPS=rPS*PRNA19 
CLF=rLF*PR\'A19 
CLFL=CI  FI  *PRNA19 
rrnML=ccnML*PRNA  i9 
crnMM=r cr“M*PRNA  ic 

ccn« ! =r,rr'^  i^pRNA  19 

C^07=CF'07*PRNA19 

cpjc=rp jr^ppNAio 

IF  IIPRCST  .NF.  C»  WPITF  (6,ERRPRT» 

RFTUPNI 

FMH 


PMRGl 
PXPCIZ^O 
S'!?  C1259 
PMRri2<'0 
PNRf,  1270 
P^Rf.I  2R0 
P^'»ri  290 
PMRri 300 
PNRC1310 
PMRC1320 
PVRC1330 
PNRr  1340 
'’NPC1350 
PMRC1360 
P^•PC1370 
PMRf 13R0 
PNor 1390 
PNRC1400 
PNPC1410 
PMP':i420 


SURPniJTIMr  PTJCST 


TURPf’JFT  PROPULSION  COST 


PT jrooio 

PTJC0020 

PT  jr.ooio 

PTJC0040 

PFAl  NP7WT,MP  P’-JCOOSO 

/:D'IVLS7  WTANK.ViXI  N,VBEQ,3GW,3PPUMP,wr  FJFLt<<CnPN,/CO'<If  »TJC0063 

1 R5,Yl,WN0  7»KFMfMATTKtAtncnM,WMC  ,VBI  fOTHRTtRNOZI  f NT  7WT  , MP  , r AS  P P,  PTjr00  70 

2 F»"FT,WT,WF,FMAX  , S,  T4f  ME  TTJ  ,ZXNR  ,0,WPtFCtPPEAK,  BS  P t NDET  , C A , WCS  f PT  JCOORO 

3 WWH,WTC,  WTP.WGO  , V.SC  » WLV  t VG  T , WOt  HP  ,0  P t WN  ,MET  AL  , NCCNFG  PTjr.0090 

COMMON  /COSTIN/  PRlAl,PRIA2,PRJC,PRIA3,PRI83tPRIA4,PRIE4,PRI  «5,  PTjr.OlOO 

IPPI A6,PRIA7,PRlA8tPR IB8fPRIA9fPRIG9tPPI AlOtPRI All.PRIGll.PPIAl?,  PTJCOIIO 

2PPIPl2f  PP IF12tPR  lA  13,PRIE  13,PRIA14,PBIE14,PRI A15,PRIE19 .PRIA16,  PT JC0120 

3PPIF  16,PR I A17,PR  IF17,PR lA  ISfPRI B1 8,PRI El 8» PRI A19, PRI E19 ,PR I A20,  PT jro 1^0 
4PPIA21tPRI A22,PB  IB22,PRIA23,PRIB23,PRIC23  tPRI A24,PRIC24,PR1 A25t  PT JC0140 

5PP  1B25,  PRI  A2  6tPR  lB26tPRtr26»PRNAl,PRNA2  *PRNA3  tPRNfl3,  PRNA4,  PRNF4,  PT  JCni«;o 
6PRNA5f PRNAEf PRNA7,PPNA8,PRNB8,PRNA9,PRNG9,PRNA10fPPAAll,PRNGll f PTJC0160 

7PPNAI21PONBI21PRNE  12t  PRNA13»PRNE13,PRNA14  ,PRNFl4,PRNAl5,PRN81f,,  oTjroi70 

8PRNA17f  PRN A18,PRNP1B,PRNA19,PRNB19,PRNC1 9tPRNA20, PRKC20f PRNA21 , PT JCOl BO 

9PPNB21f  PPNA22fPRNP  22» PRNC22 »PLPC  »PLA 1 , PLA3 , PLP3 , PL  A4 , PL A6 , PL AP , PTjrO  190 

APLRBtPL A9,PL All,PLBll,PLAl3,PL813fPLC13tPLDl3tPLA14,PLD14,PLAl5,  PT JC02O0 

PPLB15tPLF15,PLF15.PLAl6,PLE16fPLAl7,PLAl8fPLB18,PLClflf PLA19,PL A?0,PTjr0710 
CPLfl20f PLA21,PLB2  l,PLC21, PTA 1 ,P TO  I tP TA4  ♦PTB4  ,PTA5 t PTB5 » PT ES t PT Aft , PTJC0  220 
(:PTE6,PT  A7,PTB7,PTr  7,PTJC  ,P  TAB  t PT08  ,P  TA9  t PTB9  ,PT  AlO  , PT  810  , OT  r 10  , PT  jr.0?30 

FPFA3, PFP3,PFA4,PEF4,PEA5,PEF5,PE  Aft tPF B6 t PEE6 t PE A7  f PF F7 , PE A8 , PP  A9,  PTJC0240 
FPFAlOi  PFBlOf  PFC  lO.PEAll  ,PEBllfPEEll,PEBCf  PSPC,PSA3  ,PSfl3,'PS  A4  f PS  E4 , PT  JCO  2 50 
GPSA5,PSF5,PSAft,PSFft,P  SGft tPSA7  ,PSF 7 ,PSA8 »PSA9 , PSAl 0 t PS  BIO , PSC 10 , PT JC0260 
FPSA11,PSP11,PSF1  l,rFT,PFT,CFCASE  , PFC  ASF  ,CF  C , PFC  ,C  FR  , PFM  , I YE  AR  PTjr,027O 

COMMON  /COSTIN/  PR  I B 1. PR  I C 1 1 PR  I B2 1 PR IC 2 # PRI 84 , PR  I C4 1 PRI 04, PR  I P5, PT JCO 2P0 
IPRIC5,PRIB9,PRIC9,PRID9,PRIE9,PRIF9,PRIBU,PR1CI  1,  FRinil.PRlFl  I,  PTJC0290 

2PPIF1 1,PR IC12,PR  IPl2,PRlBl3,PRlCl3,PRI0l3,PRIBl4,PRlC14,PRini4,  PTJC0300 

3PRIB15,PP IC15,PR  ini5,PRIBlft,PRIC Ift, PRI Olft ,PR I Bl 7 , PR IC 17 , PR  10 17 , PTJC0310 

4PRIF17, PRIC18,PR  10 18, PR  IB  19, PR IC 19 , PRI  019, PRI 824 , PRNPl , PRNCl , PRNB ?PT JCO 320 


PT JC0120 
PT jro  m 
PT  JCO  140 


oTjroi70 
PT JCOl BO 
PT jro 190 
PT JC02O0 
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5f  PRMr  2, PP^n^, PRNTA, PPNPA  ,PPNP 5 ,PR NC 5, P»NB9tPRNC9t  PR^C9. PRNF9 tPRNFQPT JCO 3 30 
6fPP^'P  11  fPPNC  ll,  PPNni  I ,PRNFll,  PRNFll  ,PRNC12,PRN012,  PRNB13,PRNC1  3t  PT  JC0  3A0 
TPPNnn,  PPNPIA.PPNC  l4,pRNDl^,PRNBl5tPRNCl5tPRN015.PR^'^lAtPRNCl5^  PT  JC0350 

BPRNDl6,PP^'P17tPPNr  17,  PRNP  I 7 , PRNF  1 7 , PRNR20  , PL  Bl  ,PLr  I ,PL A2  , PLB2,  PLP4PTjr0360 
9,PLC4,PLA5,PLR5,PLB6,PLC  6,PLA7,PLB7,PLB9,PLr.9,PLAlO,PLBl0,PL4l2,  PTJC0  370 
API  B12,PLP14,PLC  lA,PLCl5,PLni5,PLBl6,PLCl6,PLr>l6,PLPl9,PLCl9,PTni,  PTJC0380 
BPTr  l,PTA?,PTB2,PTA3,PTB3,PTC5,PTD5,PTB6,PTC(S,PTD6,PTe8,PTrR,PFAl,  PT  JC0  390 
rPPPl.PPC  l,PFft2,PFP2,PFr2,PFB4,PFC4,PED^,PEB5,PEC5, PFC5, PFF5,PFr6,  PT JCO^OO 
CPFn(S,PER7,PEr  7,  PEn7,PEC  ll,PF01l,PSAl  ,PSBl  ,PSC1  , PS  A2  , PS B2 , PSC2,  PSBAPT  JC0410 
F,PSC^,P«:nA,PSB5,PSC5,PSn5,PSE5,PSB6,PSC6  ,PS06,PSE6  , FSR7  , PSC7 , PS  C7 , PT  jr  0A20 
FPFr7,pscil,PS0l  l,PRMr22,PL021,PLE2l,PTm0,PTEl0,PR  in?6  OTJC0<*30 

r^M^4n^J  /rnSTlN/  profit, 00,R,AFAI,AFBI,AECI,AFDI,AFII,AF42,AFB2,  PTJOOAAO 
lAFG?, AF A3, AFB3, AFG3,AFAA,AFBA,AFCA,AFDA,AF JA,AFA5, AFP5, AFC5, AFH5,  PT JGOASO 
2AFA6, AFBg, AFG6, AFA7, AFC7,AF07,AFA8, AFP8,AFC8,AFn8, AFT8, AFA9,AFB9,  PT JC0A60 
3AFC9, AFn9, AFjq, AF A 1 0 , A FB I 0 , AFC  10 , AFH 10 , AF Al I , AF 8 1 1 , AFG 1 1 , AF A 12 , PTJCOA70 

AAFCl2,AFni2, AF4  13, AFR  13, AFC  13, AF  AlA, AFBIA ,AFCIA ,KFUZE ,WA1 ,WE 1 , WFl , PT JCOARO 
5WA2,WC?,WP7,KGA1N,CA1,CE 1 ,CF 1 ,CA2 , CE2 ,CF2 ,CA3 ,CF 3 , CF3 ,GA 1 , GB 1 , GF I , PT j C0A90 


6KIF(S,KG76,KSTAR,KAGATF  ,NC  HA  N,  K SGA  TE  , G A2  ,GB2  ,GK2  ,GA3  , GR3  ,GQ3  ,GAA, 
7GPA, GHA,rA5, CB5,GH5,KG ,KC  ,KW , KA , KP , I G TV PF , 1 C TYPE , 1 PRCST 
common  /rnSTlN/  AFFl,AFFl,AFGl,AFHl,AFC2,AFD2,AFE2,AFF2,AFr3, 
lAFn3,  AFF3,  AFC  3,  AFF A,AFFA,AFG4,AFHA,AFU  ,AFD5,AFE5,  AFF5,  AFGS,  AFC6, 
2AFn6,AFFft,AFF6,AFB  7, AF E B, AFF 8, AFG8 , AFHB ,AFE9 ,AFF9 , AFG9 , AFHR , AF i q, 

3 AFC  10, A FF 10, A FF  1C, AFG  1C , AFC  1 1 , AFOl I , AF E 1 1 , AFFl 1 , AF 8 12 ,W P 1 ,WC 1 , WC 1 , 
AWR2,WC2,CBl,CCl,C0  1,f B2,rC2,C0  2,CB3,CC3,C03,GCl,Gni  ,GF1 ,GC2,Gn2, 
5GF?, GF2, GG2, GH2,GI 2,G J2 ,GC3 ,G03 1 GF 3 ,GF 3,GG3, GH3 ,GI 3 ,G J3 , GK3, GL  3, 
ECM3,GN3,GP3,GC4,GrA,GFA,GFA,GGA,GHA,Gl A,GJ4,GKA,GLA,GC5,Gn5,GFS, 
7rF5,GG5,rFTTAB(  1 1 ) .PFTTABll 1> 

COM^^PN  ZCSTPRV/  CPLC,CBMC,CCASE,CCFU,CCL,CCM,CCCPI  , CCCML  , CCOMM  , 

1 CCONT,CCPD,CFRFU,CEPRn,CETJ,CFXlN,CGFU,CGRD, 

2 rGT,CGTOT,C  IGN,C  IRJFU,  CIRJRD,  CLF  ,CLFL  ,CIGG,CL  I ,CL  •», 

3 CLRFl),r.LRRO,CLRT,CLTC,CLTP,CM,CMGG,CMH,CPTC,r.MTP, 

A CMv, CNOZ,CNRJFU,  CNRJRO,  C P,C PAF I , CPFNG  ,C PL , CPLC , 

5 CPMFGL ,rPMFGM,CPOA,CPR ,CPRC,CPS,CPSMGG,CPSN2,CPSRAM,CPSSGG, 

6 rpTOni , CRAFI ,CROFV,CPFG,rRENG,CRFTO,CR JC ,CRMFGL,CRMFGM,rROA, 

7 CRTOOL  ,CSA,CSRFU,CSPPD,CSRT,CT,CTAFI  ,CTC,CTEB,CTI  PJ,CTJFU, 

8 CTJl  F,  CTJLFL  ,r,  TJRn,r  TJT,  C TL,CTM,CTNRJ,CTP,CWH,CWHFU,rwHP, 

C CBOor, GRPS,CPFU,PRnFPR,PRFUAF,PRRAF,CCLB,CCMB,CTCe,CLI B,CNCZP, 

A CPPB,CPlB,CIGNB,CSAP,PROFFX 
niMENSION  CFTAR Y131,PrTARV( 3) 

^AMFLIST  /ERRPRT/  CFT  J ,C  TL  ,C  TM  ,C  T ,C  T JLF  ,CT  JLF  L , CT  JFl), 

1 CTJRn,CTJT 

FATA  CFTARY/  .2,  1.,  1./ 

CATA  PFTARY/.257,2.571,1./ 

CFTIJ=CFTAR  YIMFTTJ  J 
PFTU=PFTARY(HETTJ) 

PTPlUal  .52 


PTC1U= 
IF  (TA 
IF 
IF 
IF 
IF 
IF 


t 

.GF.  2060.)  PTB1U*3.08 
(TA  .GT.  2360.)  PTB1U*5.6A 
(CFT  .NF.  0.)  CFTU*CFT 
(PFT  .NE.  0.)  PFTU*PFT 


(PTBl  .NF.  0.1  PTBIU*PTB1 
(PTCl  .NF.  0.)  PTCIU-PTCI 
CFTJ*PTA1*PTB1UBFNFTB*PTCIU*1.222APT01 
CTL*  l.059*PTA2*CFTU*HT**PTB2 


PT jcosno 
pTjr.0510 
PT JC0520 
PTjr0530 
PTJC05A0 
PTjrnsBo 
PT JC0560 
PT JC0570 
JC05P0 
PT  jr  0590 
PT JC0600 
PTJC0610 
PTJC0620 
PT JCn630 
PT  JCn6A0 
PT JC0h50 
PT  JC066n 
PTJC0670 
JC06BO 
PTJC0690 
PT  JCOTOO 
PT  jro7io 
PT jro720 
PT  JCOT’O 
PT  JC07<,0 
PTJC0750 
PT  JC0760 
PTjr0770 
PT  JC07B0 
PTJC0790 
PT JCOBOn 
PTJCOBIO 
PTJC0B20 
PT JC0B30 
PT JCOBAO 
PT JC0850 
PT JCn860 
PTJC0870 


HA  309 


nr 


3 

rTM=l  .OSo*PTfl3*PFTU*WT**PTB3 

PT JC08RO 

4 

CTsPTft4*(  rri  ♦CTM  )*PTP  A 

PTJC0R90 

c 

CTJL  F=PT4S*PTP5*(PTr.5/WF  )**PTD  5* WF /I  OOO.* PTE5 

PT JC0900 

6 

CTJLFL*  l.l*PTft6*PTP6*(PTf6/WF  »**PTD6*WF4-PTF6 

PTJC0910 

7 

CTJFU=PTA7*(  l.*PTJCI*( 1. 1 5*PTB7* ( CE TJ^C T*CT JLF+CT J LFL » ♦ PTC 7) 

PTJC0920 

CPFU=CTJFII 

PTJC0930 

PPnFPP=rTJFU*PT JC/f l.*PTJC ) 

PTJC0O40 

10 

rTJPr»=PTA  10*(PTR  10*  1.  A62*PTD  1 C*F  MA X**PTE10*PTC10)  • ( l.*PT  JC  » 

PTJC0950 

CRPS  = CTJR  0 

PT  JC0960 

11 

CTJ  T=r.TJFl)4f  TJB  D 

PTJC0970 

rFTJ=CFTJ*PTA7 

PT  jr.0980 

CTl=rTl*PTA7 

PTJCORQO 

CTM=CTM*PTA7 

pTjcinnn 

CT=r,T*PTA7 

PTJCIOIO 

CTJL  F=rTJLF*PTA7 

PTJC1020 

CTJL  FL  = rTJLFL*PTA7 

PTJC1030 

IF  ( IPRCST  .NE.  0)  WRITE  I6,ERRPRT) 

PTJC1040 

rpturn 

PTJC1050 

FM1 

PTJC1060 

! 

j 

■ 

I 


♦BLOCK  DATA  2 

Default  for  NAMCNF,  NAMPAK  and 
SUPER 

HA-5 

♦BLOCK  DATA  3 

Default  for  NAMBYP  and  NAMVPM 

HA -7 

BLOCK  DATA  4 

Solid  Rocket  Sustainer  Fuel  Data 

H-9 

♦BLOCK  DATA  5 

Solid  Rocket  Sustainer  Fuel  Data 

HA -8 

BLOCK  DATA  6 

Liquid  Rocket  Sustainer  Fuel  Data 

H-14 

BLOCK  DATA  7 

Default  for  NAMBOO,  NAMEXB  and 
NAMRJS 

H-19 

BLOCK  DATA  8 

Air  Properties 

X 

1 

o 

BLOCK  DATA  9 

Inlet  and  Ramjet  Fuel  Data 

H-21 

BLOCK  DATA  10 

Parametric  Aerodynamics  Data 

H-24 

BLOCK  DATA  11 

Built-In  Turbojet  Parameters 

H-28 

BLOCK  DATA  12 

Turbojet  Combustor  Data 

H-28 

BLOCK  DATA  13 

Turbojet  Fan  Map 

H-28 

BLOCK  DATA  14 

Turbine  Map 

H-30 

BLOCK  DATA  15 

Default  for  NAMTJ 

H-31 

♦BLOCK  DATA  16 

Turbojet  Weights  Data 

HA-11 

♦ BLOCK  DATA  17 

Parametric  Aerodynamics  Data 

HA-12 

♦BLOCK  DATA  18 

Parametric  Aerodynamics  Data 

HA-18 

BLOCK  DATA  19 

Parametric  Aerodynamics  Data 

H-43 

♦BLOCK  DATA  20 

RCM  Cost  Data 

HA-23 

AC  OS 

Utility 

H-51 

ASIN 

Utility 

H-51 

♦ DATA  2 

Utility 

HA-28 

INVRT 

Utility 

H-52 

LEVCM 

Utility 

H-53 

NEMWTH 

Convert  NEM  Value  to  Worth 

H-55 

♦PAGE 

Page  Numbering 

HA-28 

PROTC 

Utility 

H-58 

k 


HA-311 


Table  1.  Module  Index  (Cont'd.  ) 


MODULE 

COMMENTS 

PAGE 

*RJINPT 

Input  Ramjet  Fuel /Inlet  Maps 

HA-28 

*SETUP1 

Utility 

HA-33 

♦SETUPS 

Utility 

HA-35 

♦SORTCM 

Screening  Supervisor 

HA-38 

TBASIC 

Utility 

H-70 

TF1102 

Utility 

H-74 

VALRED 

Utility 

H-74 

WBASIC 

Utility 

H-74 

WCBDll 

Utility 

H-75 

WMAT3 

Utility 

H-77 

WRITRX 

Utility 

H-78 

WRTl 

Utility 

H-79 

♦ CMGSM 

Input  Supervisor 

HA -40 

♦SUPRCM 

Concept  Generation  Supervisor 

HA-61 

♦HACKCM 

Output 

HA-74 

AERCJWT 

Wing /Tail  Sizing 

H-108 

♦ COSTWT 

Relative  Cost  Measured  by  Weight 

HA-79 

♦PACKER 

Launcher  Packaging 

HA-79 

PAYLOD 

Payload  Packaging 

H-117 

SKNWT 

Utility 

H-127 

SLU 

Utility 

H-130 

♦SURF 

Utility 

HA-86 

♦ WORTH 

Concept  Relative  Worth 

HA -90 

YNOiSE 

Utility 

♦PROPULSION  SIZING  MODULES* 

H-136 

♦ PSM 

Supervisor  for  Propulsion  Sizing 

HA-91 

♦SOLROC 

Solid  Rocket  Sustainer  Sizing 

HA -94 

♦ ROCLIQ 

Liquid  Rocket  Sustainer  Sizing 

HA-103 

HA-312 


Table  1.  Module  Index  (Cont'd.  ) 


MODULE 

COMMENTS 

PAGE 

BEXEC 

External  Booster  Sizing 

H-164 

CURVE 

Utility 

H-165 

*EXBOO 

External  Booster  Sizing 

HA-118 

>;=PROPXX 

Ramjet  Sizing  Supervisor 

HA-126 

AMACH 

Utility 

H-177 

AM2X 

Utility 

H-178 

BLINE 

Utility 

H-178 

* BOOST 

Ramjet  Booster  Sizing 

HA-133 

>nCDINLT 

Inlet  Drag 

HA-144 

CHECK 

Utility 

H-195 

DRDES 

Utility 

H-196 

DTRCET 

Utility 

H-196 

♦EXRAM 

Utility 

HA-150 

TARGET 

Utility 

H-201 

FASTX 

Utility 

H-202 

FMBPAK 

Utility 

H-204 

GUESS 

Utility 

H-206 

♦INLETP 

Ramjet  inlet  Sizing 

HA-155 

♦INLIFT 

Inlet  Lift 

HA-168 

♦ISEN 

Utility 

HA -175 

LINE 

Utility 

H-223 

LXFTI 

Utility 

H-223 

LXFT2 

Utility 

H-225 

LXFT3 

Utility 

H-227 

MACHNO 

Utility 

H-230 

*MATLS 

Utility 

HA-17b 

NOZEX 

Utility 

H-233 

♦PROPl 

Ramjet  Performance 

HA-179 

HA-313 


|; 


r 


Table  1.  Module  Index  (Cont'd.  ) 


MODULE 

COMMENTS 

PAGE 

♦PR OPR J 

Ramjet  Sizing  Supervisor 

HA-185 

RAMNOZ 

Ramjet  Nozzle  Sizing 

H-247 

RGAMER 

Utility 

H-251 

RIDES 

Utility 

H-252 

RJWT 

Utility 

H-256 

SDUCER 

Utility 

H-257 

SURVEY 

Utility 

H-258 

♦SUSMAS 

Utility 

HA  - 1 95 

THETA 

Utility 

H-267 

TLUl 

Utility 

H-268 

TLU2 

Utility 

H-268 

♦XALPHA 

Off  Design  Test 

HA-202 

ZCONHH 

Utaity 

H-271 

ZCYLLL 

Utility 

H-272 

ZCYLHH 

Utility 

H-272 

ZELPLL 

Utility 

H-272 

ZELPSS 

Utility 

H-273 

ZELSPR 

Utility 

H-273 

ZSPRLL 

Utility 

H-274 

ZSPRSS 

Utility 

H-274 

* AERODYNAMICS  MODELS 

♦ADM 

Aerodynamics  Supervisor 

HA-205 

♦AERMOD 

Aerodynamics  Supervisor 

HA-205 

BDYLPM 

Utility 

H-290 

BLTGEO 

Utility 

H-291 

BLTWD 

Utility 

H-294 

BOOSTD 

External  Booster  Drag 

H-296 

CLINE 

Utility 

H-297 

Li 


HA-314 


Table  1.  Module  Index  (Cont’d. ) 


MODULE 

COMMENTS 

PAGE 

* DRAG 

Vehicle  Drag 

HA -220 

FASTF 

Utility 

H-303 

FASTS 

Utility 

H-305 

FRCTN 

Utility 

H-306 

* INLIFX 

Inlet  Lift 

HA-227 

il^LIFT 

Vehicle  Lift 

HA-231 

*LIFT1 

Utility 

HA -241 

LIFT2 

Utility 

H-324 

LIFTS 

Utility 

H-326 

LIFT4 

Utility 

H-328 

LIFTS 

Utility 

H-331 

PMOMNT 

Utility 

H-332 

WRTOUT 

Utility 

=:-VEHICLE  PERFORMANCE  MODEL=:- 

H-334 

VEHPER 

Performance  Supervisor 

H-335 

AIRl 

Air  Properties 

H-335 

DERIV 

Utility 

H-337 

DSLINE 

Utility 

H-345 

ERR(3UT 

Utility 

H-347 

* MAINS 

Phase  Supervisor 

HA-243 

^OUTPUT 

Tabular  Output 

HA-254 

* PR  OP  11 

Ramjet  Performance 

HA-256 

♦RUNGEK 

Utility 

HA-262 

SLINE 

Utility 

H-372 

❖STDATA 

Performance  Supervisor 

HA-268 

TJPER 

Turbojet  Performance 

H-380 

TPROP 

Utility 

H-383 

XALPH2 

Utility 

H-389 

XALPHl 

Utility 

H-391 

HA-315 


Table  1.  Module  Index  (Cont'd.  ) 


MODULE 

COMMENTS 

PAGE 

❖TURBOJET  SIZING  MODELS 

❖TURBO 

Turbojet  Sustainer  Sizing 

HA-275 

INLET 

Turbojet  Inlet  Sizing 

H-398 

INLEXP 

Turbojet  Inlet  Sizing 

H-400 

STORE 1 

Utility 

H-412 

STORE2 

Utility 

H-413 

WATE 

Turbojet  Sustainer  Weights 

H-413 

GENENG 

Turbojet  Engine  Design 

H-416 

AFQUIR 

Utility 

H-417 

ATMOS 

Utility 

H-420 

COAFBN 

Utility 

H-421 

COCOMB 

Combustor  Design 

H-424 

COCOMP 

Compressor  Design 

H-426 

COFAN 

Utility 

H-428 

COINLT 

Utility 

H-430 

COLPTB 

Utility 

H-431 

COMIX 

Gas  Mixing 

H-433 

COMNOZ 

Main  Nozzle  Sizing 

H-439 

CONDIV 

Utility 

H-440 

CONOUT 

Output 

H-443 

CONVRG 

Nozzle  Sizing 

H-446 

ERR  OX 

Utility 

H-448 

ENGBAL 

Design  Supervisor 

H-449 

ETAAB 

Utility 

H-454 

FASTBK 

Utility 

H-455 

FRASHO 

Utility 

H-456 

FRTOSD 

Utility 

H-457 

GUESX 

Utility 

H-458 

MAPBAC 

Utility 

H-458 

HA-316 


Table  1.  Module  Index  (Cont'd.  ) 


MODULE 

COMMENTS 

PAGE 

MATRIX 

Utility 

H-459 

OUTPAT 

Output 

H-460 

PARABO 

Utility 

H-462 

PERFF 

Output 

H-462 

PROCOM 

Utility 

H-464 

PUTIN 

Utility 

H-465 

RAM 

Utility 

H-467 

RAM2 

Utility 

H-467 

SEARCH 

Utility 

H-468 

THCOMP 

Utility 

H-469 

THERMO 

Utility 

H-470 

THTURB 

Utility 

H-470 

ZERO 

Utility 

H-470 

’ *CGSM  EXECUTIVE* 


.1 

r 

*CARD 

Card  Image  Utility 

HA-280 

K 

a 

*INCOST 

RCM  Input  Utility 

HA-281 

*RCM  MODULES* 

h 

t 

r 

*COST 

RCM  Executive 

HA-285 

*AAICST 

Airframe  & Integration  Cost 

HA-289 

m- 

*GUCOST 

Guidance  Cost 

HA-291 

*CTCOST 

Controls  Cost 

HA-293 

*WHCOST 

Warhead  Cost 

HA-295 

*PLRCST 

Liquid  Rocket  Cost 

HA -296 

*PEBCST 

External  Booster  Cost 

HA-298 

^ PSRCST 

Solid  Rocket  Cost 

HA-300 

*PIRCST 

Integral  Ramjet  Cost 

HA-302 

*PNRCST 

Non -Integral  Ramjet  Cost 

HA-305 

*PTJCST 

Turbojet  Cost 

HA-308 

^ 

HA-317 

( Reverse  side  blank) 

